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EINLEITUNG 


Die Grenzen sprengen 


I n Sachen Grafik ist schon 
alles dagewesen. Behaupten 
einige. Wir wollen Ihnen bewei¬ 
sen, daß das nicht stimmt. Die¬ 
ses 64’er Sonderheft Grafik setzt 
mal wieder Maßstäbe. Mit Giga- 
CAD erhalten Sie ein Grafik- 
Programm, das es bisher noch 
nicht gegeben hat. Wenn Sie 
sich die Beispiel-Grafiken auf 
den ersten Seiten angesehen 
haben, dürfte Ihnen »das Wasser 
im Mund zusammenlaufen«. Zu Recht. Solche 
Grafiken war man bisher vom C 64 nicht gewohnt. 
Selbst Computer, die ein Vielfaches mehr kosten, 
kennen ähnliche Programme nicht. 

Giga-CAD ist wohl eines der leistungsfähigsten 
Programme für den C64, um computergestützt 
dreidimensionale Grafiken zu konstruieren. Räum¬ 
liche Körper lassen sich auf nur denkbar einfache 
Art mit Hilfe eines Joysticks eingeben. Sie werden 
bequem mit Hilfe von Symbolen und Menüs durch 
das Programm geführt. Das erleichtert den 
Umgang mit Giga-CAD erheblich. Grafiken können 
Sie bis zu einer Auflösung von 1000 mal 640 Punk¬ 
ten berechnen und ausdrucken lassen. Aber damit 
noch nicht genug: Selbst Filme mit 24 Bildern pro 
Sekunde sind für Giga-CAD kein Problem. Das 
heißt sie sind garantiert flimmerfrei. Lassen Sie sich 
begeistern, und begeistern Sie auch andere mit 
einer Vorführung. 

Erschrecken Sie nicht vor den ellenlangen 
Listings. Selbstverständlich sind alle Programme 
auf Disketten erhältlich. Weil wir überzeugt sind, 
daß das Giga-CAD-System wie eine Granate ein¬ 
schlägt, bieten wir noch einen besonderen Service 
an: Zusätzlich zu den zwei Disketten mit allen 



Programmen dieser Ausgabe 
können Sie eine weitere dritte 
Diskette vollgepackt mit Demos 
zu Giga-CAD beziehen. Apropos 
vollgepackt: alle Disketten sind 
beidseitig bespielt und zwar 
randvoll. Das bedeutet fast ein 
Megabyte Programme und 
Demos zu dieser Ausgabe! 

Auch wenn Giga-CAD alleine 
schon ein Sonderheft wert wäre, 
die weiteren Programme in die¬ 
ser Ausgabe haben es ebenfalls in sich. Der enga¬ 
gierte Grafik-Programmierer findet alles, was sein 
Herz begehrt. Das reicht von Basic-Erweiterungen 
zum einfachen und vor allem schnellen Zeichnen 
und Erstellen von Grafiken, über Busineß-Grafiken 
bis hin zu Hardcopy-Routinen für verschiedene 
Drucker. Sprite-Programmierung wird genauso 
unterstützt wie Grafik auf dem C128. Wer den Plot¬ 
ter 1520 besitzt, wird begeistert sein von Plot- 
Basic. Mit ihm lassen sich auch komplizierte Zeich¬ 
nungen mit minimalem Aufwand erstellen. Ge¬ 
schwindigkeitsfanatiker sollten sich vor allem ein¬ 
mal die »schnellste Grafikerweiterung für den 
C 64« ansehen. Sie erlaubt das Ziehen einer Linie 
mit einer Geschwindigkeit von fast 12000 (zwölf¬ 
tausend!) Punkten pro Sekunde. Wenn das nichts 
ist. • 

Ich glaube, daß Sie mit diesem 64’er Grafik- 
Sonderheft wieder einmal ein Heft der Superlative 
bekommen, mit Programmen, die es bisher noch 
nicht gegeben hat. Sie zeigen auch, daß der C 64 
noch immer nicht ausgereizt ist. Es macht einfach 
Spaß, zu sehen, wie bisherige Grenzen immer wie¬ 
der gesprengt werden. 
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Das Angebot dieser Ausgabe: 

Wer keine Zeit oder Lust hat alle Programme selbst in mühevoller Kleinarbeit abzutippen, kann wie¬ 
der auf den bewährten Programm-Service zurückgreifen. Wegen dem Super-Grafik-Programm 
Glga-CAD bieten wir einen besonderen Service an: 

Angebot 1: Alle im Inhaltsverzeichnis mit dem Diskettensymbol gekennzeichneten Lisüngs sind 
aut 2 Disketten gespeichert (beidseitig beschrieben) 

Angebot 2: Zusätzlich bieten wir eine weitere Diskette an mit vielen Demos zu Gigo-CAD. wie 
Filme. Hardcopies in zwei-, vier- und zehnfacher Große, etc Anhand dieser Demos 
werden Sie Giga-CAD sehr viel schneller beherrschen lernen. 

Angebot 3: Einen großen Preisvorteil gewinnen Sie, wenn Sie alle Disketten aut einen Schlag 
bestellen. Sie erhalten damit 6 Diskettenseiten mit fast einem Megabyte gespeicher¬ 
ter Information. 

Angebot 1: Disketten mit allen Programmen ... _ _ _ _ . 

Bestoli-Nr. L6 86 S6D1 (sFr. 29,501öS 349,-r) DM 34,90 

Angebot 2:1 Diskette mH Glga-CAD-Demos ... . 

Bestoli-Nr. L6 86 S6D2 (sFr. 17.-/ÖS 199,-») DM 19,90 

Angebot 3: 3 Disketten mH allen Programmen und Demos ... _ . — — * 

Bestoli-Nr. L6 86 S6D3 (sFr. 43,50/ÖS 498,-r) DM 49,80 

• inW MwSt Unverbindkcho Pf&sompfehJung 


Programme aus früheren Ausgaben: 


84'ar-Ausgaba 5/86 

BostelhNr. L6 86 05D Diskette 

OM 29,90* (»Fr. 24,90/ÖS 299,-r) 
64er DOS V3 

S. 

10 

Grafik und Computeranimation 

S. 

18 

Fantastische Grafik 

S. 

29 

Disk-Wizard (LdM) 

Mehr als nur ein Diskettenmonitor 

S. 

54 

Super Hardcopies für Epson- 
Drucker und Kompatible 

S. 

63 

Greatprint - Große Zeichen auf 
dem Bildschirm (mit Demo) 

s. 

69 

Super Hardcopy (Epson, 1620, 

CP 80 X) 

s. 

70 

Der »Epson-Plotter« 

Drucker als Plotter 

s. 

79 

Charakter-Editor 

s. 

81 

Steel-Stab (Splelellsting) 

s. 

86 

TipsiTrlcks zum C128 

Merge 

s. 

95 

Sprlteslow 

s. 

97 

Old 

s. 

98 

Eingabe 

s. 

98 

Tips »Tricks für Profis 

Allo Pokes 

s. 

99 

Outadr 

s. 

100 

Array-Sort 

S. 100 

Baslc-Programme im Interrupt 

s. 

103 

Neue Moduls für Hypra-Basic 
(Sprlteprogrammierung) 

S. 103 

Pascal-Kurs Zeichen 

S. 142 

Joseph 

s. 

142 

Matrimult - ein Programm zur 
Multiplikation beliebiger Matrizen 

S. 145 

Adreßprogramm mH Superbaso 64 

S. 

168 

Zviza 

Ein neuer Zeichensatz für Vlzawrite 

s. 

171 


64'er-Ausgabe 4/86 
Bestell-Nr. L6 86 04D Diskette 
DM 29,90* (sFr. 24,90/ÖS 299,-r) 

Quizmaster - Prüfungsvor¬ 
bereitungen oder Party-Gag S. 53 

Hypra Basic - Erstellen per¬ 
sönlicher Basicerweiterungen S. 58 

Druokroutine zu DATABASE (DB II) - 
Endlich Datensätze auf 
dem Drucker ausgeben S. 63 

Hardmaker - Grafik-Bilder au3 
fast allen Programmen drucken S. 67 

Synchro Justage - 

Jetzt ist Schluß mit .LOAD ERROR« S. 77 

Mlcro-Tagebuch - Niemand hat Zu¬ 
tritt zu Ihron privaten Aufzeichnungen S. 77 
Ex-Line - 

Baslczeilen mit 252 statt 80 Zeichen S. 78 
Soft-Flash - 

kleiner THck an der Floppy S. 79 

Strich-Cursor - verleiht Ihrem Cursor 
ein äußerst professionelles Aussehen S. 79 
Upslde Down - 

Dreht den Bildschirm um 180 Grad S. 79 

Disk-Optimlzor - 

Optimale Ausnutzung Ihrer Disketten. 

Basic und Compilerversion S. 80 

Aptelmännchen - 

Diashow lür Grafiken S. 84 

Autochange - Ihr Commodore 128 
sprlnot automatisch 

in den richtigen Modus S. 85 

Taktzykien - Exaktes Ausmessen 
eines Unterprogrammes hilft, 

Laufzeiten zu verringern. Für Basic 

und Maschinenprogramme S. 86 


64'er-Ausgabe 3/86 
Bestell-Nr. L6 86 03D Diskette 
DM 29,90* (SFr. 24.90/ÖS 299,-*) 

Eingabehilfe Checksummer V3 

und MSE S. 55 

Kudiplo - Funktion diskutieren 

und plotten S. 58 

64'er DOS - alle Funktionen 

der 1541 beschleunigen S. 65 

Shapes auf dem C64 mit 

Demo-Programm S. 71 

Auto-Old: 

letzte Rettung nach Kiew« s. 79 

Englisch für Fortgeschrittene S. 80 

HiRes-ScroUing mit Demo-Programm 

und Quelltext S. 81 

1520-Plotter als Drucker S. 82 

Laufschriftgenerator - ruckfreie 

Laufschrift für eigene Programme S. 83 

Cc.-*—"lcs-!nterface mit Quelltext 

ffll J C128 S. 84 

View Picture - Endlich auch farbige 

Hi-Eddi-Bilder für eigene Programme S. 91 


64'er-Ausgabe 2/86 

Bestell-Nr. L6 86 02D Diskette 
DM 29,90* (sFr. 24,90/ÖS 299,-*) 
64'er-Ausgabe 1/86 
Bestell-Nr. L6 86 01D Diskette 
DM 29,90* (sFr. 24,90/öS 299,-*) 
64'er-Ausgabe 12/85 
Bestell-Nr. L6 85 12D Diskette 
DM 29,90* (sFr. 24,90/öS 299,-*) 
Bestell-Nr. L6 85 12K Kassette 
DM 29,90* (sFr. 24,90/ÖS 299,-*) 
64'er-Ausgabe 11185 
Bestell-Nr. L6 85 11A 
DM 29,90* (SFr. 24,90/öS 299,-*) 
64'er-Ausgabo 10/85 
Bestell-Nr. L6 85 10A 
DM 29,90* (sFr. 24,90/öS 299,->) 
64'er-Ausgabe 9/85 
Bestell-Nr. L6 85 09A 
DM 29,90* (sFr. 24,90/öS 299,-*) 
64’er-Ausgabe 8185 
Bestell-Nr. L6 85 08A 
DM 29,90* (sFr. 24,90/ÖS 299,-*) 
64'er-Ausgabe 7/85 
Bestell-Nr. L6 85 07A 
DM 29,90* (sFr. 24,90/öS 299,-*) 
64’er-Ausgabe 6185 
Bestell-Nr. L6 85 06A 
DM 29,90* (SFr. 24,90/öS 299,-*) 
64'er-Ausgabo 5/85 
Bestell-Nr. L6 85 05A 
DM 29,90* (SFr. 24,90/öS 299,-*) 
64'or-Ausgabo 4/85 
Bestell-Nr. L6 85 04A 
DM 29,90* (sFr. 24,90/ÖS 299,-*) 
64'or-Ausgobe 3/85 
Bestell-Nr. L6 85 03A 
DM 29,90* (SFr. 24,90/ÖS 299,-*) 
64'er-Ausgabe 2/85 
Bestell-Nr. L6 85 02A 
DM 29,90* (sFr. 24,90/ÖS 299,-*) 
64’er-Ausgabe 1/85 
Bestell-Nr. L6 85 01A 
DM 29,90* (sFr. 24,90/ÖS 299,-*) 


64’er-Sonderhefte 

SonderheH 5/86 - Grundwissen 

Bestell-Nr. L6 86 S5D 1 Diskette 
DM 29,80* (sFr. 24,90/öS 299,-*) 

Sonderheft 4/86 - Abenteuer 

Bestell-Nr. L6 86 S4D 2 Disketten 
DM 34,80* (SFr. 29,50/ÖS 349,-*) 

SonderheH 3/86 - C16, C116, VC20, Plus 4 

1 Diskette für VC20 und C16/116: 
Bestell-Nr. L6 86 S3 CD 
DM 29,90* (SFr. 24.90/ÖS 299,-*) 

1 Kassette für VC 20: 

Bestell-Nr. L6 86 S3 KV 
DM 19,90* (sFr. 17,-/öS 199,-*) 

1 Kassette für C16: 

Bestell-Nr. L6 86 S3 KC 
DM 19,90* (sFr. 17,-/ÖS 199,-*) 

SonderheH 2/86 - Tips »Tricks 

Bestell-Nr. L6 86 S2D Diskette 
DM 29.90* (sFr. 24,90/öS 299,-*) 

SonderheH 1/88 - C 128er 

Bestell-Nr. L8 86 S1D Diskette 
DM 29,90* (SFr. 24,90/öS 299,-*) 

Sonderheft 8/85 - Assembler 

Bestell-Nr. L6 85 S8D Diskette 
DM 29,90* (SFr. 24,90/öS 299,-*) 
Bestell-Nr. L6 85 S8K Kassette 
DM 19,90* (sFr. 17.-/ÖS 199,-*) 

Sonderheft 7/85 - 
Professionelle Anwendungen 

Bestell-Nr. L6 85 S7D 2 Disketten 
DM 34,90* (SFr. 29,SO/ÖS 349,-*) 
Bestell-Nr. L6 85 S7K 4 Kassetten 
DM 34,90* (sFr. 29,50/ÖS 349,-*) 

Sonderheft 6/85 - Top-Themen 
Bestell-Nr. L6 85 S6 2 Disketten 
DM 34,90* (SFr. 29,50/ÖS 349,-*) 

SonderheH 5/85 - Floppy, Oatssetto 
Bestell-Nr. L6 85 S5D Diskette 
DM 29,90* (sFr. 24,90/ÖS 299,-*) 
Bestell-Nr. L6 85 S5K Kassette 
DM 19,90* (sFr. 17.-/ÖS 199,-*) 

SondorhoH 4/85 - Grafik 

Bestell-Nr. L6 85 S4A 
DM 29,90* (sFr. 24,90/ÖS 299,-*) 

SonderheH 3/85-Spiele 
Bestell-Nr. L6 85 S3 A 2 Disketten 
DM 34,90* (sFr. 29,50/ÖS 349,-*) 

Sonderhoft 2/85 - Abenteuersplele 

Bestell-Nr. L6 86 S2 

DM 34,90* (sFr. 29.50/ÖS 349,-*) 

Sonderheit 1/85 - Tlpa*Wcka 
(2-überarb. Auflage) 

Bestell-Nr. CB 023 Floppy-UBIItles 
DM 29,90* (sFr. 24,90/öS 299.-*) 
Bestell-Nr. CB 024 Hilfsprogramme 
DM 29,90* (sFr. 24,90/öS 299,-*) 

* inkl. MwSl. Unverbindliche Praisempfehlung, 


Bitte verwenden Sie für Ihre Bestellung und Überweisung die eingeheftete Postgiro-Zahlkarte, 
oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. 

Sie erleichtern uns die Auftragsabwicklung, und dafür berechnen wir Ihnen keine Versandkosten. 
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EINGABEHILFEN 


C 64 


Checksummer 
64 V3 


Der Checksummer 64 V3 überprüft jede Basic- 
Zeile direkt nach der Eingabe, erkennt Fehleinga¬ 
ben sowie Vertauschungen von Ziffern und 
erspart eine aufwendige Fehlersuche. 

D er Checksummer 64 V3 ist ein kleines Maschinenpro¬ 
gramm, das Sie sofort unterrichtet, ob Sie die jeweilige 
Programmzeile korrekt eingegeben haben. 

So gehen Sie vor: 

1. Programm abtippen und speichern. 

2. Starten mit RUN 

3. Nach kurzer Zeit sehen Sie am Bildschirm: 
CHECKSUMMER 64, CHECKSUMMER AKTIVIERT, AUS¬ 
SCHALTEN MITPOKE 1,55, ANSCHALTEN MITPOKE 1,53, 
READY. 

4. Anschalten des Checksummer 64 V3 mit POKE 1,53. 

5. Test: Geben Sie in einer freien Zeile ein: >1 REM« und 
drücken die RETURN-Taste. Am Bildschirm oben links sollten 
Sie die Prüfsumme < 63 > sehen. 

6. Geben Sie ein Listing aus unserem Heft ein. Nach jeder 
Zeile wird die Zahl, die im Listing in Klammern < > steht, in 
den Bildschirm eingeblendet. Stimmen die Zahlen nicht über¬ 
ein, so liegt vermutlich ein Eingabefehler vor. 

Die Zahl in den Klammern, und auch die Klammern 
selbst, dürfen beim Abtippen nicht mit eingegeben wer¬ 
den! 

7. Der Checksummer 64 V3 bemerkt auch Vertauschun¬ 
gen von Zahlen und Buchstaben, aber nicht das Fehlen (oder 
Hinzufügen) von Leerzeichen. 

8. Unsere Basic-Listings enthalten keine Steuerzeichen 
mehr. Diese werden ersetzt durch Klartext und stehen zwi¬ 
schen geschweiften Klammern. Deshalb sind weder die 
Klammern noch was dazwischen steht, abzutippen, sondern 
die in Tabelle 1 aufgeführten Tasten zu drücken. Auf Ihrem 
Bildschirm erhalten Sie dann wieder die entsprechenden 
Grafikzeichen. 

9. Alle Grafikzeichen werden ebenfalls ersetzt durch unter¬ 
strichene oder überstrichene Großbuchstaben. 

Unterstrichene Buchstaben bedeuten, daß Sie die 
SHIFTTaste und den angegebenen Buchstaben drücken 
müssen, überstrichene jedoch die Commodore-Taste mit 
dem Buchstaben. 


Auch hier erhalten Sie am Bildschirm das entsprechende 
Grafikzeichen und nicht etwa das im Listing erkennbare Zei¬ 
chen. 

Die Leerzeichen zwischen den einzelnen Basic-Befehlen 
können beim Abtippen entfallen (ohne Einfluß auf die Check¬ 
summe zu nehmen). Dies ist besonders bei speicherkriti¬ 
schen Programmen wichtig. Ebenso müssen Zeilen, die 
mehr als 80 Zeichen pro Zeile enthalten, mit den bekannten 
Abkürzungen für die Basic-Befehle (siehe auch das Hand¬ 
buch zum C 64, Anhang D, Seite 130) eingegeben werden. 

Sie können die Programme auch weiterhin ohne den Check¬ 
summer eintippen. (F. Lonczewski/gk) 

Hinweis: (13 SPACE] bedeutet 13mal die Leertaste drücken 


9 REM ******************************* 

10 PRINT"ICLR,11SPACE,RVS8N>CHECKSUMMER 64 

V3IRVOFFJ" 

11 PRINT"<2DOWN,9SPACE>EINEN MOMENT, BITTE 

12 FOR 1=828 TO 864:READ A:POKE I,A:PS=PS+ 
A+l:NEXT I 

13 IF PSO5802 THEN PR I NT" PRUEFSUMMENFEHLE 
R IN ZEILEN 20-22":END 

14 SYS 828:PS=0:FOR I=5B464 TO 58583:READ 
A:POKE I,A:PS=PS+A+1:NEXT I 

15 IF PS<>16267 THEN PRINT"PRUEFSUMMENFEHL 
ER IN ZEILEN 22-30":END 

16 POKE 1,53:POKE 42289,96:POKE 42290,228 

17 PRINT"t4D0WN,9SPACE>CHECKSUMMER AKTIVIE 
RT. " 

18 PRINT" C2DOWNJAUSSCHALTEN : POKE1,55" 

19 PRINT" LBC1WN>ANSCHALTENC2SPACE>: POKE 1,5 
3":NEW 

20 DATA 169,0,133,254,162,1,189,93,3,133,2 
55,160,0,177,254 

21 DATA 145,254,136,208,249,230,255,165,25 
5,221,95,3,208,238,202 

22 DATA 16,230,96,160,224,192,0,160,2,169, 
0,170,133,254,177 

23 DATA 95,240,40,201,32,208,3,200,208,245 
,133,255,138,41,7 

24 DATA 170,240,14,72,165,255,24,42,105,0, 

202.208.249.133.255 

25 DATA 104,170,232,165,255,24,101,254,133 
,254,76,111,228,192,4 

26 DATA 48,219,198,214,165,214,72,162,3,16 
9,32,157,1,4,189 

27 DATA 212,228,32,210,255,208,12,0,92,72, 
32,201,255,170,104 

28 DATA 144,1,138,96,202,16,228,166,254,16 
9,0,32,205,189,169 

29 DATA 62,32,210,255,104,133,214,32,108,2 

29.169.141.32.210.255 

30 DATA 76,128,164,9,60,18,19 

© 64'et- 

Der Checksummer 64 V3 erkennt auch 
Vertauschungen von Zahlen 


CTRL steht für Control-Taste, so bedeutet [CTRL-A], daß Sie die 

(CYAN) 

Control-Taste 8 4 

Control-Taste und die Taste »A« drücken müssen. Im folgenden steht: 

[PURPLE) 

Control-Taste 8 5 

[DOWN] 

Taste neben rechtem Shlft, Cursor unten 

(GREEN) 

Control-Taste 8 6 

(UP) 

Shift-Taste 8 Taste neben rechtem Shlft; Cursor hoch 

(BLUE) 

Control-Taste 8 7 

(CLR) 

Shift-Taste 8 2. Taste ganz rechts oben 

(YELLOW) 

Control-Taste 8 8 

(INST) 

Shift-Taste 8 Taste ganz rechts oben 

(RVSON) 

Control-Taste 8 9 

(HOME) 

2. Taste von ganz rechts oben 

(RVOFF) 

Control-Taste 8 0 

(DEL) 

Taste ganz rechts oben 

(ORANGE) 

Commodore-Taste 8 1 

(RIGHT) 

Taste ganz rechts unten 

PROWN) 

Commodore-Taste 8 2 

(LEFT) 

Shift-Taste & Taste unten rechts 

(LIG.RED) 

Commodore-Taste 8 3 

(SPACE) 

Leertaste 

(GREY 1) 

Commodore-Taste 8 4 

(SHFT-SPCEJ 

Shift-Taste & Leertaste 

(GREY 2) 

Commodore-Taste 8 5 

(Fl) bis (F8) 

Funktionstasten 

(LIG.GREEN) 

Commodore-Taste 8 6 

(RETURN) 

Shift-Taste & Return 

(LIG.BLUE) 

Commodore-Taste 8 7 

(BLACK) 

Control-Taste 8 1 

(GREY 3) 

Commodore-Taste 8 8 

(WHITE) 

(RED) 

Control-Taste 8 2 

Control-Taste 8 3 

Tabelle 1. Die Steuerbefehle in den Listings 
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C 64 


EINGABEHILFEN 


MSE - Abtippen 
skher und 
leidtt gemocht 

Ähnlich wie der »Checksummer« ist auch der 
MSE ein leicht zu bedienendes Hilfsmittel bei der 
Eingabe von Listings, diesmal jedoch bei reinen 
Maschinensprache-Programmen. 

I m Gegensatz zum »Checksummer« aber ist die Eingabe 
nicht ohne den MSE möglich. Der MSE verringert die 
Tipparbeit um ein Drittel und schließt Fehleingaben voll¬ 
kommen aus. Außerdem können Sie die Werte blind einge¬ 
ben, ohne andauernd auf den Bildschirm schauen zu müs¬ 
sen. Dies wird durch akustische Meldungen realisiert. 

MSE ist ein Maschinenspracheditor, mit dem ein Vertippen 
ausgeschlossen ist. Eine abgetippte Zeile wird nur angenom¬ 
men, wenn sie richtig ist. Eine Checksumme am Ende jeder 
Zeile prüft, ob die richtigen Werte in der richtigen Zeile an der 
richtigen Stelle stehen. Wenn nicht, ertönt ein Warnsignal, 
und man beseitigt den Fehler. 

War die Zeile korrekt, erklingt ein Gong, und die nächste 
Zeilennummer wird ausgegeben. Damit ist also auch »blin¬ 
des« Eintippen möglich; Sie können sich voll auf den Text kon¬ 
zentrieren. 

So arbeitet man mit MSE 

Laden und starten Sie MSE. Zuerst wird der Programm¬ 
name und die Start- und Endadresse erfragt. Diese Angaben 
entnehmen Sie dem Kopf des jeweiligen abgedruckten 
Listings. MSE meldet sich dann mit der Zeilennummer der 
ersten Zeile. 

Wenn Sie die Zeile richtig eingegeben haben, erscheint die 
nächste Zeilennummer und so weiter bis zum Ende. Zum 
Schluß wird das fertige Programm mit »CTRL-S« auf Diskette 
oder Kassette abgespeichert. Dazu sind keine weiteren Anga¬ 
ben mehr erforderlich. Das Programm kann dann ganz normal 
wieder geladen und gestartet werden. Wenn Sie nicht alles auf 
einmal tippen wollen, können Sie jederzeit unterbrechen und 


den eingetippten Teil mit »CTRL-S« abspeichern. Wollen Sie 
Weiterarbeiten, laden und starten Sie MSE wieder. 

Geben Sie auf die Frage nach der Startadresse aber jetzt »L« 
ein, um Ihr Teilprogramm zu laden. Jetzt können Sie mit »CTRL- 
N« die Adresse eingeben, an der Sie weitertippen müssen. 
Wenn Sie sich nicht gemerkt haben, wie weit Sie gekommen 
sind, geben Sie nach dem Laden »CTRL-M« ein. 

Auf die Frage nach der Startadresse antworten Sie mit der 
Anfangsadresse, die links in der Kopfzeile auf dem Bildschirm 
steht. Nun wird Ihr Programm aufgelistet. Mit »SPACE« wird 
das Listen fortgesetzt, mit »STOP« abgebrochen. Das Ende 
Ihres Programmteils erkennen Sie sehr einfach daran, daß nur 
noch der Wert »AA« in der Zeile steht. Die Adresse dieser Zeile 
müssen Sie anschließend mit »CTRL-N« eingeben. Das Pro¬ 
gramm ist nur mit »STOP/RESTORE« zu verlassen. Speichern 
Sie aber vorher unbedingt immer Ihren Text ab. 

Hinweise zum Abtippen 

Vor dem Abtippen oder späteren Wiederladen des MSE- 
Laders müssen Sie unbedingt folgende Zeile eingeben: 
POKE 43,1: POKE 44,32: POKE 8192,0: NEW 

Den MSE-Lader brauchen Sie nur einmal. Nach erfolgrei¬ 
chem Abtippen und Starten mit RUN geht der Lader verloren 
und es wird das endgültige Programm MSE VI.0 erzeugt. So 
gehen Sie vor: 

Starten Sie das Programm mit RUN. Fehlerhafte Zeilen wer¬ 
den angezeigt und müssen korrigiert werden, bis der Lader 
zum »READY« durchläuft. Jetzt müssen Sie das fertige MSE- 
Programm speichern. Dazu brauchen Sie nur »RETURN« zu 
drücken, weil die erforderlichen Angaben schon auf dem 
Bildschirm stehen. (Kassettenbesitzer müssen in Zeile 343 
die letzte Zahl in »1« abändern.) Ab jetzt können Sie »MSE 
VI.C-- direkt, also ohne den DATA-Lader, benutzen. MSE VI.0 
wird ganz normal mit »,8« geladen (keine POKEs notwendig). 

(N. Mann/D. Weineck/gk) 


MSE-Befehle: 

DEL 

löscht die letzte Eingabe. 

CTRL-S 

speichert das eingetippte Programm ab. 

L oder CTRL-L 

lädt ein Programm. Start- und Endadresse werden 
automatisch ermittelt. 

CTRL-M 

listet den Speicherinhalt. Abbruch mit STOP-Taste, 
weiter mit Leertaste. 

CTRL-N 

erlaubt die Eingabe einer neuen Adresse zum 
Weitertippen. 

CTRL-P 

gibt ein MSE-Listing auf dem Drucker eus. 


1B0 

REM **************************** 

<091 > 

KE 198,3 

<"»49> 

110 

REM * * 

< 159 > 

343 PRINT"{3D0WN > SAVE"CHRS(34)"MSE V1.0"CH 


120 

REM * MSE LADER * 

<206> 

RS(34)",8 

< 171 > 

130 

REM * * 

< 179> 

344 END 

<092> 

220 

REM **************************** 

<211 > 

1000 

DATA 00,0B,08,OA,00,9E,32,30,36,31,00 


230 

REM 

<036> 


,00,00,A2,08,A9,36,85,A4,A9, 1247 

< 119> 

240 

DIM H(75): FÜR 1=0 TO 9 

< 113> 

1001 

DATA 08,85,A5,A9,00,85,A6,A9,80,85,A7 


250 

H(48+1)=1: H(65+1)=1+10:NEXT 

<041 > 


, A0,00 ,B1, A4,91, A6,C8,D0,F9, 2888 

<054> 

260 

FOR 1=2048 TO 3755 : READ AS 

< 198> 

1002 

DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01 


270 

H=ASC(LEFTS(AS,1)>:L=ASC(RIBHTS(AS,1)) 

< 199 > 


,4C,00,B0,20,D1,B1,A9,06,8D, 2787 

< 144> 

230 

D=H(H)*16+H(L):S=S+D:POKE I,D 

<219> 

1003 

DATA 21 ,D0,A9,03,8D,20,D0,8D,86,02,A0 


290 

A=A+1:IF A<20 THEN NEXT:A=-1 

< 141 > 


,B3,A9,74,20,FF,B1 ,A0,B3,A9, 2667 

<237> 

300 

PRINT “ ZEILE:";1000+Z; 

<011> 

1004 

DATA B9,20,FF,Bl,A0,00,20,CF,FF,99,01 


310 

READ V :Z=Z+1:IF V=S THEN 330 

<218> 


,02,C8,C9,0D,D0,F5,88,F0,D2, 2912 

<217> 

320 

PR INT 11 PRUEFSUMMENFEHLER ! ”: STOP 

< 138> 

1005 

DATA C0,0F,90,02,A0,0E,BC,00,02,20,EA 


330 

IF A<0 THEN 341 

<221 > 


,B1,A0,B3,A9,CF,20,FF,Bl,20, 2323 

<013> 

340 

S=0:A=0:PRINT:NEXT 

<046> 

1006 

DATA 8E,B4,85,FC,85,62,20,8E,B4,85,FB 


341 

PRINT"<CLR>Pfi43,1:Pfl44,B:Pfi45,172:Pfl46 



,85,61,20, A7 ,B4,D0,20, A0 , B3 , 2864 

< 199> 


,14 

<010> 

1007 

DATA A9 , E5,20, FF, B1 , 20,8E , B4,85,60,20 


342 

POKE 631,19:POKE 632,13:P0KE 633,13:P0 



,8E,B4,85,5F,20,A7,B4,D0,0A, 2624 

<091 > 

Der MSE zum bequemen Abtippen von Maschinenprogrammen für den C64 
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1008 DATA A5,61,C5,5F,A5,62,E5,60,90,06,20 

,43,B3,4C,3A,B0,A9,AA,A0,00, 2379 <167> 

1009 DATA 91,FB,E6,FB,D0,02,E6,FC,20,3F,B2 

,90,EF,4C,FB,B4,A2,02,B6,58, 3118 <152> 

1010 DATA A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0 

,FB,C9,30,90,0C,C9,47,B0,08, 2970 <231> 

1011 DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0 

,0F,4C,0B,B1,20,D2,FF,A6,58, 2322 <121> 

1012 DATA 95,F7,C6,5B,D0,D2,60,AE,8D,02,F0 

,26,C9,0C,D0,03,4C,0B,B6,C9, 2685 <057> 

1013 DATA 13,D0,03,4C,BB,B5,C9,0D,D0,03,4C 

,BA,B4,C9,10,D0,03,4C,6B,B5, 2282 <225> 

1014 DATA C9,0E,D0,06,20,5F,B4,4C,64,B1,4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <208> 

1015 DATA 0A,0A,B5,F9,A5,FB,20,02,B1,05,F9 

,60,C9,3A,90,02,69,0B,29,0F, 1950 <092> 

1016 DATA 60,A6,59,E0,08,90,1F,A6,58,E0,02 

,B0,06,20,D2,FF,4C,8E,B0,C6, 2509 <188> 

1017 DATA 59,A0,14,A9,92,20,F2,B1,CA,D0,FA 

,84,57,68,68,4C,8B,B1,A6,D3, 2891 <197> 

1018 DATA E0,08, B0,03,4C , 92 , B0,20 , D2 , FF , A6 

,58,E0,02,90,09,C6,59,20,D2, 2468 <049> 

1019 DATA FF,C6,58,D0,F9,4C,8E,B0,48,4A,4A 

,4A,4A,20,59,B1,68,29,0F,C9, 2419 <035> 

1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2 

,FC,9A,20,D1,B1,20,48,B2,20, 2261 <073> 

1021 DATA EA,B1 ,20,9F ,B2, A5,FC,20,4E,B1,A5 

,FB,20,4E,B1,20,ED,Bl,A9,3A, 2860 <14B> 

1022 DATA A0,20,20,F2,Bl,A9,00,85,59,20,8E 

,B0,20,ED,B1,A4,59,20,EF,B0, 2530 <233> 

1023 DATA 9t ,FB,C8,84,59,C0,08,90,EC,20,10 

,B2,A9,12,20,D2,FF,20,8E,B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9 

,14,A0,14,20,F2,B1,4C,A2,B1, 2665 <034> 

1025 DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2 

,20,3F,B2,90,9F,4C,8B,B5,A9, 2648 <123> 

1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00,D8 

,9D,00,D9,9D,00,DA,9D,00,DB, 2476 <237> 

1027 DATA E8 , D0 , EF , 60, A9,0D , 2C , A9,20,4C , D2 

,FF,20,D2,FF,98,4C,D2,FF,20, 2965 <160> 

1028 DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00 

,B1,5C,F0,06,20,D2,FF,C8,D0, 3100 <077> 

1029 DATA F6,60,A5,FB,85,5A,A0,00,84,5B,B1 

,FB,18,65,5A,85,5A,90,02,E6, 2606 <156> 

1030 DATA 5B , 06,5A , 26,5B, CB , C0,08,90 , EC , A5 

,5A,65,5B,85,FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69,08,85,FB,90,02,E6,FC,60,A5,FB 

,C5,5F,A5,FC,E5,60,60,A0,B3, 3106 <183> 

1032 DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20 

,D2,FF,CC,00,02,C8,90,F4,A9, 2692 <09B> 

1033 DATA 10,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E,Bl,A5,61,20,4E, 2453 <236> 

1034 DATA Bl, 20 , ED , B1 , A5,60,20,4E , B1 , A5,5F 

,20,4E,Bl,A9,9F,20,D2,FF,20, 2575 <038> 

1035 DATA EA,B1,24,5E, 10,01,60,A9, 12,20,D2 

,FF,A2,2B,20,ED,B1,CA,D0,FA, 2646 <161> 

1036 DATA A9,92,4C , D2 , FF , A5 , D6 , C9 , 16, B0,01 

,60,A9,A0,85,A4,A9,78,B5,A6, 2945 <204> 

1037 DATA A9,04,85,A5,B5,A7,A2,13,A0,27,B1 

,A4,91,A6,B8,I0,F9,CA,F0,19, 2671 <208> 

1038 DATA 18,A5,A4,69,28,85,A4,90,02,E6,A5 

,18,A5,A6,69,28,85,A6,90,E0, 2503 <251> 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,8D,18,D4,A9,00,8D,05,D4, 2776 <000> 

1040 DATA A9,F7,8D,06,D4,A9,11,8D,04,D4,A9 

,32,BD,01,D4,A9,00,8D,00,D4, 2413 <126> 

1041 DATA A0,80,20,09,B3,A9,10,8D,04,D4,60 

,A2,FF,CA,D0,FD,88,D0,FB,60, 2914 <240> 

1042 DATA A9,0F,8D,1B,D4,A9,2D,8D,05,D4,A9 

,A5,8D,06,D4,A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9,07,8D,01,D4,A9,05,8D,00,D4,A0 

,FF,20,09,B3,A9,20,8D,04,D4, 2250 <07B> 

1044 DATA A9,00 , BD ,01, D4,8D, 00, D4,60,38,20 

,F0,FF,8A,48,98,48,18,A0,06, 2179 <175> 

1045 DATA A2,18,20 , F0 , FF , A0 , B4 , A9,0A, 20 , FF 

,B1,20,12,B3,20,E4,FF,F0,FB, 2931 <093> 

1046 DATA A2,1D,A9,14,20,D2,FF,CA,D0,FA,68 

,A8,6B,AA,18,4C,F0,FF,0D,0D, 2704 <088> 

1047 DATA 0D,20,20,20,20,20,20,20,4D,41,53 

,43,48,49,4E,45,4E,53,50,52, 1144 <216> 

1048 DATA 41,43,48,45,20,2D,20,45,44,49,54 

,4F,52,20,0D,0D,20,20,20,20, 1023 <038> 


1049 DATA 20,20,20,20,56,4F , 4E , 20,4E , 2E , 4D 

,41,4E,4E,20,26,20,44,2E,57, 1128 <206> 

1050 DATA 45,49,4E,45,43,4B,00,0D,0D,0D,20 

,20,20,50,52,4F,47,52,41,4D, 1102 <117> 

1051 DATA 4D,4E,41,4D,45,20,3A,20,00,0D,0D 

,20,20,20,53,54,41,52,54,41, 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,0D,0D,20,20,20,45,4E,44,41, 1014 <129> 

1053 DATA 44,52,45,53,53,45,20,20,20,3A,20 

,24,00,92,05,20,50,52,4F,47, 1171 <217> 

1054 DATA 52,41,4D , 4D , 20,3A , 20,00,12,20,20 

,2A,2A,2A,20,46,41,4C,53,43, 1024 <027> 

1055 DATA 48,45,20,45,49,4E,47,41,42,45,20 

,2A,2A,2A,20,20,92,00,0D,0D, 1058 <09B> 

1056 DATA 2A , 2A , 2A , 20,45,4E , 44,45,20,2A, 2A 

,2A,00,13,05,20,20,12,44,92, 920 <148> 

1057 DATA 49,53,4B,20,4F,44,45,52,20,12,54 

,92,41,50,45,00,00,13,20,20, 1151 <035> 

1058 DATA 49,2F, 4F , 20,2D , 20,46,45,48,4C, 45 

,52,00,20,Dl,B1,20,48,B2,A0, 1606 <012> 

1059 DATA B3 , A9 , CF , 20 , FF , B1 , 20,8E , B4,85 , FC 

,20,8E,B4,85,FB,C5,61,A5,FC, 3207 <251> 

1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5 

,60,B0,19,20,A7,B4,D0,14,60, 2860 <112> 

1061 DATA 20,A7,B4,F0,0C,85,F9,20,A7,B4,F0 

,05,85,F8,4C,EF,B0,68,68,20, 2749 <0BB> 

1062 DATA 43 , B3,4C , 5F , B4,20 , CF , FF , C9,4C , D0 

,09,20,Dl,B1,20,48,B2,4C,0B, 2372 <046> 

1063 DATA B6,C9,0D,60,A9,00,85,5E,20,5F,B4 

,20,EA,B1,20,0D,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20 , E4 , FF , F0 , FB , 20 , E1, FF , F0,26 

,20,9F,B2,24,5E,10,09,20,4E, 2435 <198> 

1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20 

,3F,B2,90,D7,A0,B4,A9,28,20, 2190 <207> 

1066 DATA FF,B1,20,E4,FF,C9,0D,D0,F9,A9,00 

,S5,5E,A5,61,85,FB,A5,62,85, 3056 <240> 

1067 DATA FC , 20 , E0 , B2,4C , 64 , B1, A5, FC , 20,4E 

,B1,A5,FB,85,FF,20,4E,B1,A9, 3003 <221> 

1068 DATA 20 , A0,3A , 20 , F2 , B1 , A0,00,20 , ED , B1 

,Bl,FB,20,4E,B1,C8,C0,08,90, 2566 <070> 

1069 rA F3,20,ED,Bl,24,5E,30,03,A9,12,2C 

,A9,20,20,D2,FF,20,10,B2,A5, 2190 <059> 

1070 DATA FF , 20,4E , B1 , A9,92,20 , D2 , FF , 4C , EA 

,Bl,A9,FF,85,B8,85,B9,A9,04, 3073 <029> 

1071 DATA 85 , BA , 20 , C0 , FF , A2 , FF , 4C, C9 , FF , 20 

,CC,FF,A9,FF,4C,C3,FF,20,5F, 3315 <1B9> 

1072 DATA B4,A9,80,85,5E,20,4E,B5,20,48,B2 

,A2,24,A9,2D,20,D2,FF,CA,D0, 2596 <111> 

1073 DATA FA,20,EA,B1,20,EA,B1,20,60,B5,4C 

,C1,B4,20,B8,B5,A6,5F,A4,60, 2812 <015> 

1074 DATA A9,61,20, D8, FF , B0,0A , 20 , B7 , FF ,29 

,BF,D0,03,4C,FB,B4,A9,01,20, 2577 <201> 

1075 DATA C3,FF,20,68,B6,A0,B4,A9,4F,20,FF 

,Bl,20,F9,B1,4C,FB,B4,20,68, 2921 <237> 

1076 DATA B6,A9,37,A0,B4,20,FF,B1,20,F9,B1 

,A2,08,C9,44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54, D0 , F1 , A9,01, AB, 20, BA , FF , A0,00 

,E0,01,F0,1A,A9,40,8D,20,02, 2403 <101> 

1078 DATA A9,3A, 8D ,21, 02 , B9,01,02,99,22,02 

,C8,CC,00,02,90,F4,C8,C8,D0, 2182 <127> 

1079 DATA 0C , B9,01,02,99,20,02 , C8 , CC , 00,02 

,D0,F4,98,A2,20,A0,02,4C,BD, 2018 <025> 

1080 DATA FF,20,B8,B5,A5,BA,C9,08,90,33,A6 

,B9,86,57,A9,01,20,C3,FF,A9, 2800 <022> 

1081 DATA 60,85,B9,20,C0,FF,B0,28,A5,BA,20 

,B4,FF,A5,B9,20,96,FF,20,A5, 2911 <053> 

1082 DATA FF,85,61 ,A5,90,4A,4A,B0, 13,20,A5 

,FF,85,62,20,AB,FF,A5,57,85, 2663 <214> 

1083 DATA B9,A9,00,20,D5,FF,90,03,4C,A3,B5 

,86,5F,84,60,A5,BA,C9,01,D0, 2639 <131> 

1084 DATA 0A,AD,3D,03,85,61,AD,3E,03,85,62 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120> 

1085 DATA IC,20,ED,Bl,CA,D0,FA,60, 1230 <214> 

6 64'er 


MSE (Schluß). Dieses Listing können Sie (müssen 
aber nicht) mit dem Checksummer 64 V3 in 
diesem Heft eingeben. 
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Auf zu neuen 

Grafijidimensionen 

mit Gign-CAD 


Dreidimensionale Grafiken und Filme waren bis¬ 
her nur mit professionellen CAD-Programmen zu 
realisieren. Was den Großrechnern Vorbehalten 
war, ist nun auch auf Ihrem C64 möglich: »Giga- 
CAD« bricht dieses Monopol der »Großen« und 
macht automatisiertes und computergestütztes 
Zeichnen und Konstruieren zum Kinderspiel. 

E s hat sicher jeder schon einmal mit etwas neidischem, 
aber doch begeistertem Blick jene Computer-Grafiken 
betrachtet, die von so verblüffender Räumlichkeit und 
Faszination sind, daß C 64-Besitzer nur davon träumen konn¬ 
ten! Lassen Sie sich nun von Giga-CAD in die Dimensionen 
der 3D-Grafik entführen und gestalten Sie selbst Ihre absolut 
plastischen Bilder! Ihre Tätigkeit wird damit vom klassischen 
Reißbrett an den Bildschirm verlagert. Bemerkenswert ist, 
daß die Konstruktion von Objekten mit sehr geringem Auf¬ 
wand möglich ist. Es wäre sicherlich ein Alptraum, müßte man 


die Koordinaten dreidimensionaler Gebilde über die Tastatur 
eingeben. Deshalb bieten wir Ihnen mit Giga-CAD ein Ein¬ 
gabesystem, mit dessen Hilfe räumliche Körper auf die denk¬ 
bar einfachste Art bildschirmorientiert konstruiert werden. 
Hierbei steht dem Anwender eine komfortable Benutzerober¬ 
fläche zur Verfügung. Gesteuert wird mit dem Joystick. Die 
Eingabe erfolgt in der Sprache des Anwenders unter ein¬ 
facher und leichtverständlicher Benutzerführung. Dieses 
Konzept öffnet die Tür zu vielen schöpferischen Möglichkei¬ 
ten während des Entwurfs- und Zeichenprozesses, da es 
nicht auf reine Grafikbefehle begrenzt ist. So ist das Erstellen 
von Körpern nicht mehr bittere Vorarbeit zur Berechnung 
schattierter Grafiken, sondern reines Vergnügen. 

Darüber hinaus eröffnen wir Ihnen noch die Möglichkeit, 
Grafiken mit einer Auflösung von 640*400 beziehungswei¬ 
se 1000*640 (!) Punkten zu berechnen und auf Ihrem 
Drucker auszugeben. Hierzu ist dem Programmpaket eine 
Hardcopy-Routine beigefügt, die es ermöglicht, auf allen 
grafikfähigen 8-Nadel-Druckern (nach einfacher Anpassung) 
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sämtliche Grafiken, auch in doppelter Dichte, zu erzeugen. 
Alles in allem handelt es sich hierbei um ein Software-Paket, 
dessen Konzept aufgrund der Entwicklungsdauer von 6 Mo¬ 
naten als ausgereift bezeichnet werden kann. 

Nach dem Laden (Listing 1) befinden Sie sich in einem 
Menü. Mit dem Joystick (Port 2) können Sie das kreuzförmige 
Sprite über den Bildschirm bewegen. Am besten befassen 
wir uns zuerst mit der Eingabeeinheit. Dazu muß der Cursor 
auf den Begriff »Erstellen« in der Kopfzeile gesetzt und der 
Feuerknopf gedrückt werden. Hat man sich nun nach ent¬ 
sprechender Aufforderung Gewißheit darüber verschafft, 
daß sich die Systemdiskette im Laufwerk befindet, drückt 
man einfach eine Taste und der entsprechende Programmteil 
(Listing 3) wird von Diskette nachgeladen. Sollten Sie einmal 
irrtümlich auf »Erstellen« gegangen sein, können Sie Ihre 
Wahl mit < — > wieder rückgängig machen. 


Flache Rotation 



Kro Zeichnen Löschen Exit 


fr a 



Bild 1. Eine Brücke entsteht. Deutlich erkennt man die drei 
möglichen Projektionsebenen, die während der Konstruktion 
zu sehen sind. 


In der Eingabeeinheit ist der Bildschirm in vier Bereiche 
aufgeteilt (Bild 1). In den drei unbelegten Grafikfenstern wer¬ 
den erstellte Körper in allen drei Projektionen dargestellt. Das 
Viertel links unten beinhaltet neun 3D-Koordinatensysteme. 
Mit Hilfe dieser Symbole kann man Gebilde transformieren, 
also geometrisch am Bildschirm verändern. Das heißt, man 
kann Objekte um alle drei Achsen drehen und in alle drei Rich¬ 
tungen verschieben, dehnen, stauchen und spiegeln. Am 
oberen Bildschirmrand befindet sich eine Kopfzeile, die eine 
Übersicht aller verfügbaren Hauptfunktionen liefert: 
»Fläche«, »Rotation«, »Form«, »Makro«, »Zeichen«, »Löschen« 
und »Exit«. Auf diese Punkte wird im folgenden eingegangen. 

1. »Fläche« 

Dieser Menüpunkt dient der Eingabe von einzelnen 
Flächen, die man zu einem Gesamtgebilde zusammenfügen 
kann. Aufrufen kann man diese und alle anderen Funktionen, 
indem man mit dem Cursor-Sprite auf den entsprechenden 
Begriff in der Kopfzeile fährt und den Feuerknopf drückt. Das 
wäre hier das Wort »Fläche« in der oberen linken Bildschirm¬ 
ecke. Auf diesem Wege gelangt man auf eine weitere Bild¬ 
schirmseite (Bild 2). Die Mitte des Bildschirms, die später der 
Drehachse entspricht, ist mit einem kleinen Kreuz markiert. 
Um maßstabgetreu konstruieren zu können, ist ein Punkt¬ 
raster mit 10 Pixel Abstand über die Grafik gelegt. Zuerst ein¬ 
mal bewegt man den Cursor auf den ersten Eckpunkt der 
gewünschten Fläche. Mit dem Feuerknopf wird dieser Punkt 
fixiert. Alle weiteren Eckpunkte der geplanten Fläche werden 
ebenso mit dem Cursor markiert und anschließend mit 
< Feuer > in den Datensatz der behandelten Fläche über¬ 
nommen. Die Eingabe der Konturen einer Fläche wird mit der 
»Gummiband*-Methode vorgenommen. Dabei bleibt der Cur¬ 


sor bis zum Ende der Eingabe mit dem Anfangspunkt und 
dem zuletzt fixierten Eckpunkt durch eine blinkende Linie 
verbunden. Diese Linie kann man nun, gleich einem Gummi¬ 
band, ganz nach Wunsch über den ganzen Bildschirm »deh¬ 
nen« und so die Gestalt der Fläche völlig beliebig entwerfen. 
So ist gewährleistet, daß es sich bei der Fläche immer um 
einen geschlossenen Polygonzug handelt. Bei der Konstruk¬ 
tion von Flächen empfiehlt es sich darauf zu achten, daß sich 
keine Linien überschneiden und so eine weitere Fläche »ein¬ 
schließen«. Die eingeschlossene Fläche würde nämlich spä¬ 
ter beim Schattieren ausgespart. Freilich kann man durch das 
bewußte Einsetzen dieser Eigenschaft durchaus brauchbare 
Effekte erzielen. 

Mit der Taste < — > kann man die Eingabe der Fläche 
abschließen. Aber zunächst stehen dem Anwender noch fol¬ 
gende leistungsstarke Befehle zur Auswahl: 

<CLR> - löscht die gesamte Bildschirmseite zur Neuein¬ 
gabe. 

< — > - verläßt den »Flächen«-Modus wieder, wenn bis¬ 

her weniger als drei Eckpunkte fixiert wurden. 
<L> - löscht den zuletzt definierten Eckpunkt. 

<C> - fügt jederzeit gestrichelte Hilfskreise in die Gra¬ 

fik ein, um Rundungen besser zeichnen zu können 
(Bild 2). Mit je einem Feuerknopfdruck werden der 
Mittelpunkt und ein Punkt der Kreislinie festgelegt. 
Bei erneutem Drücken der Taste <C> wird der 
Kreis wieder gelöscht. 



Bild 2. Hilfskreise erleichtern die Gestaltung zweidimensio¬ 
naler Flächen 


So weit, so gut. Hat man nun die Eingabe der Fläche mit 
< —> abgeschlossen, gelangt man wieder in die 3D- 
Ansicht. Um die räumliche Lage und Position der Fläche zu 
veranschaulichen, blinkt nun der gezeichnete Linienzug in 
allen drei Ansichten und wartet darauf, von Ihnen weiterbe¬ 
arbeitet zu werden (Bild 3). In dem Grafikfenster rechts oben 
sieht man die Fläche von vorn, darunter von oben, und in dem 
Viertelbildschirm links oben von der Seite. Mit Hilfe der neun 
Symbole kann man die Fläche nun in die gewünschte Lage 
bringen. Man wählt dazu eines der grafischen Symbole mit 
dem Joystick aus und drückt den Feuerknopf. In Bild 4 wird 
die Lage der drei Projektionen bezüglich der Achsenkreuze 
veranschaulicht. Demnach steht die in der Abbildung mit »X« 
gekennzeichnete Achse senkrecht in dem Viertel »1«. Die 
Anordnung der weiteren Achsen ist analog aus der Grafik 
ersichtlich. Das mit dem Cursor angewählte Symbol wird 
schwarz hinterlegt und die Achsen werden gegebenenfalls 
eingezeichnet. Der Grad der Verformung wird jetzt per Joy¬ 
stick festgelegt: 

1. Drehung (die drei Symbole in der ersten Reihe): 

- Joystick nach oben: Drehung um 15 Grad in Pfeil¬ 

richtung 
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Bild 3. Die erstellte Fläche (Bild 2) läßt sich leicht in die drei¬ 
dimensionale Ansicht einbinden 


selbst durch, dann bekommen Sie am schnellsten ein Gefühl 
dafür, wie der bearbeitete Körper reagiert. 

Auch hier kann man wieder auf einige Sonderbefehle 
zurückgreifen: 

< + > - verdoppelt die aktuelle Fläche und ermöglicht 

die Positionierung des Duplikats. 

< * > - verbindet durch Zwischenflächen das Duplikat 

mit der ursprünglichen Fläche (Bild 5). Damit 
haben Sie auch schon eine der leistungsstärksten 
und nützlichsten Funktionen kennengelernt, die 
von enormer Vielseitigkeit ist. 

<L> - löscht die blinkende Fläche und führt zu einem 

endgültigen Rücksprung ins Eingabehauptmenü. 

< — > - fixiert die Fläche in ihrer momentanen Lage und 

verläßt schließlich den »Flächen«-Modus. 

< 0 > - faßt die Tasten < 7 > bis < 9 > zu einer Funktion 

zusammen und dehnt, beziehungsweise staucht 
somit die ganze Fläche in alle drei Richtungen um 
einen einzugebenden Faktor. 


- Joystick nach rechts: Drehung um 1,5 Grad in Reil¬ 

richtung 

- Joystick nach unten: Drehung um 15 Grad entgegen 

Reilrichtung 

- Joystick nach links: Drehung um 1,5 Grad entgegen 

Pfeilrichtung 

2. Verschiebung (die drei Symbole in der mittleren Reihe): 

- Joystick nach oben: Verschieben um 20 Einheiten in 

Pfeilrichtung 

- Joystick nach rechts: Verschieben um 2 Einheiten in 

Pfeilrichtung 

- Joystick nach unten: Verschieben um 20 Einheiten 

entgegen Pfeilrichtung 

- Joystick nach links: Verschieben um 2 Einheiten 

entgegen Pfeilrichtung 

3. Dehnung/Stauchung (die Symbole in der untersten Reihe): 

- Joystick nach oben: Dehnung um den Faktor 1,2 

- Joystick nach rechts: Dehnung um den Faktor 1,02 

- Joystick nach unten: Stauchung um den Faktor 1,2 

- Joystick nach links: Stauchung um den Faktor 1,02 

Die Symbole können auch über die Tasten < 1 > bis < 9 > 

angewählt werden. Sie entsprechen der Anordnung der 
Koordinaten-Kreuze folgendermaßen: 

12 3 

4 5 6 
7 8 9 

Drückt man nun eine dieser Tasten, so kann man eine Zahl 
eingeben, die den Drehwinkel, Verschiebungssummanden, 
beziehungsweise -faktor festlegt. Beachten Sie bitte, daß 
sich der Bereich der Koordinaten zwischen -3276,8 und 
3276,7 bewegt und so vollkommen übertriebene Vergröße¬ 
rungen zu einem Absturz führen können. Aber bei einiger¬ 
maßen sinnvoller Handhabung stößt man nie auf diese Gren¬ 
zen, da auf dem Bildschirm nur der Bereich von -160 bis 160 
darstellbar ist. Aus Geschwindigkeitsgründen wurde hier auf 
eine Abfrage verzichtet. Generell kann jedoch der Körper 
überden Bildschirmrand hinausstehen. Überstehende Linien 
werden dabei automatisch abgetrennt, bleiben jedoch mit 
ihren Koordinaten weiterhin unverändert im Speicher erhal¬ 
ten. Bei dem Verschiebungssummanden sei darauf hinge¬ 
wiesen, daß diesem genau dieselbe Einheit zugrunde liegt 
wie dem Punktraster bei der 2D-Eingabe. Einer Verschie¬ 
bung um den Summanden 10 entspricht also der Abstand 
von zwei Rasterpunkten. Auf den Viertel-Bildschirmen aber 
wird die Fläche dann nur noch um fünf Bildpunkte verscho¬ 
ben. An dieser Stelle sei ferner erwähnt, daß man die Fläche 
durch Eingabe des Faktors -1 spiegeln kann, was manchmal 
ganz nützlich ist. Am besten probieren Sie alle Umformungen 


iFlache Rotation Form Makro Zeichnen Loschen Exit 


+ 

2 1 
- - + 



Bei all diesen Befehlen ist es wichtig zu wissen, daß sie nur 
verfügbar sind, wenn keines der Symbole Invertiert ist. Wol¬ 
len Sie nun beispielsweise unmittelbar nach öirler mit dem 
Joystick durchgeführten Drehung um die Achse zwei den 
Modus verlassen, müssen Sie zuerst mit < Feuer > die 
Umformungen vorläufig abschließen. Sollten Sie die Absicht 
haben, mit dieser Funktion einen Körper aus mehreren Ein¬ 
zelflächen zusammenzusetzen, möchten wir Ihnen einen 
kleinen Tip zur Arbeitserleichterung geben. Versuchen Sie 
nicht, Ihre Flächen kompliziert im Raum zu verdrehen. Ein 
Gebäude zum Beispiel läßt sich viel leichter konstruieren, 
wenn Sie als Grundriß eine gerade an Stelle einer gekippten 
Fläche verwenden. So behalten Sie in der Draufsicht immer 
den Überblick (Bild 1). Erst wenn das Gebilde fertig ist, sollte 
man es in die gewünschte Lage (mit »Form«) drehen. Durch 
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ea^ «4 

< 4. 4, 

GIGR-CRD SYSTEM 


Bild 5. Zur Veranschaulichung der Funktion »Flächen verbin¬ 
den« hier die drei Projektionsansichten einer Fläche 




4 , <- 4 , <4 

< 4 . *4 

< 4 * 4 , 

GIGR-CRD SYSTEM 


Bild 5a. Wird nun die Fläche mit < + > dupliziert, verscho¬ 
ben und die < * > -Taste gedrückt, entsteht der fertige Kör¬ 
per 


erneutes Anwählen von »Fläche« kann man diesen Modus 
ebenso wie mit dem < — > verlassen. 

2. »Rotation« 

Diese Funktion dient der Erzeugung von Rotationskörpern. 
Dabei ist nur ein Linienzug einzugeben, der bei Rotation den 
Rotationskörper beschreibt. Das hört sich zunächst vielleicht 
komplizierter an als es ist. Auch hier verfügt der Anwender 
über einen gerasterten Bildschirm, an dessen Unterkante 
sich zusätzlich eine Skala befindet (Bild 6). Diese Skala ent¬ 
spricht der Rotationsachse. Bei der Eingabe des Linienzugs, 
der hier jedoch nicht geschlossen sein muß, verfährt man 
analog zum »Flächen«-Modus. Sie werden auch hier durch 
entsprechend ähnliche Funktionen unterstützt, die mit den 
Tasten <CLR/HOME>, < —>, <L> und <C> aufge¬ 
rufen werden. Ist die Eingabe abgeschlossen, drückt man 
einfach die < — > -Taste. Jetzt folgt die Abfrage des Compu¬ 
ters, mit wievielen Facetten (pro Polygonabschnitt) der Kör¬ 
per erstellt werden soll. Damit diese Größe etwas anschauli¬ 
cher wird, wollen wir uns zunächst mit einem einfachen und 
bildhaften Beispiel befassen. 

Beispiel: 

Möchten Sie eine Pyramide mit fünfeckigem Grundriß kon¬ 
struieren, so ist nur das Zeichnen einer schrägen Linie erfor¬ 
derlich, deren Eckpunkt die Achse berühren muß. Geben Sie 
jetzt auf die Frage »Anzahl der Facetten ?« einfach < 5 > ein. 
Sind die restlichen Eingaben entsprechend abgeschlossen, 
blinkt kurz darauf eine fünfeckige Pyramide auf dem Bild¬ 
schirm. Als nächstes fragt der Computer Sie nach dem Rota¬ 
tionswinkel. Sagt Ihnen die Vorgabe von 360 Grad zu, 
drücken Sie einfach die RETURN-Taste. Wollen Sie jedoch 


zum Beispiel eine Halbkugel erstellen, so geben Sie statt 
360 Grad nur 180 Grad ein. Die nächste abgefragte Größe 
ist anfangs noch nicht von Interesse und wird erst bei der 
Schattierung wichtig. Daher verzichten wir an dieser Stelle 
auf nähere Erläuterungen. Vorerst gibt man am besten, wie 
vom Computer vorgeschlagen, <0> ein. 

Abschließend kann man noch den Makro-Namen einge¬ 
ben, unter dem der Teil-Körper intern vom Computer verwal¬ 
tet wird. Das hat den Vorteil, daß ein Rotationskörper immer 
wieder aufgerufen und eingefügt werden kann. 


afeHiat.Ro,tation j 
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Bild 6. Durch Rotation der zweidimensionalen Mantellinie ent¬ 
steht das Glas, das in Bild 7 zu sehen ist 


Wenige Sekunden später blinkt der berechnete Rotations¬ 
körper in der 3D-Ansicht (Bild 7) und kann genauso wie eine 
einzeln^ Flächen weiterbearbeitet werden, wobei man voll¬ 
kommen analog verfährt. Ebenso kann man mit < + > 
Gebilde duplizieren, mit <L> löschen und mit <0> den 
Gesamtkörper verzerren. Die Funktion < * > entfällt zwar 
hier, aber dafür gibt es in diesem Modus eine andere Beson¬ 
derheit. Drückt man die Taste < Fl >, so kann man mehrere 
Umformungen zusammenfassen. Diese Funktion wird mit 
einem dunkelblauen Rahmen bestätigt. Führt man jetzt Dre¬ 
hungen, Verschiebungen und Dehnungen durch, so bleibt 
die Lage des Objekts unverändert, intern jedoch berechnet 
der Computer die neuen Koordinaten, zeichnet aber den Kör¬ 
per nicht erneut auf den Bildschirm. Drückt man wiederum 
< Fl >, so werden die Umformungen »sichtbar« und der Rah¬ 
men nimmt wieder seine ursprünglich hellblaue Farbe an. 
Rechnet der Computer, verschwindet der doppelte Rand um 
die Symbole, der die Bereitschaft zur weiteren Eingabe 
anzeigt. Hat man schließlich den Körper in die gewünschte 
Position und Lage gebracht, wird der Modus durch < — > 
oder durch Aufrufen von »Rotation« in der Kopfzeile verlas¬ 
sen. Damit ist die Eingabe von Rotationskörpern beendet. 


3. »Form« 

Dieser Menüpunkt eröffnet Ihnen die Möglichkeit, mit dem 
gesamten auf dem Bildschirm befindlichen (also nicht nur mit 
dem gerade blinkenden) Körper Translationen durchzufüh¬ 
ren. Das geschieht vollkommen analog mit den Symbolen und 
den Tasten < 1 > bis < 9 > und < 0 >. Auch hier kann man 
wieder mit < Fl > Umformungen zusammenfassen, was 
zum Teil bei komplexen Körpern einen erheblichen Ge¬ 
schwindigkeitsgewinn mit sich bringt. 

4. »Makro« 

Ein einmal konstruiertes geometrisches Gebilde, das im 
Rahmen der 421 möglichen Flächen aus beliebig vielen Ein¬ 
zelflächen zusammengesetzt sein darf, kann mit einem 
Namen versehen werden. Ein solches Gebilde wird »Makro« 
genannt. Unter Angabe des Namens kann man ein Makro 
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Bild 7. Bereits verformter Rotationskörper 



Bild 8. Synchronisiertes Zeichnen in allen drei Projektions¬ 
ebenen 


beliebig oft erneut auf den Bildschirm holen. Somit kann der 
Anwender seinen immer wiederkehrenden Anforderungen 
entsprechend eine Makro-Bibliothek anlegen. Hat man sich 
zum Beispiel auf Innenarchitekur »spezialisiert«, wäre es 
sinnvoll, einen Stuhl nur einmal einzugeben und ihn dann wei¬ 
terhin immer wieder zur Verfügung zu haben. Vom Benutzer 
einmal definierte Bibliotheken bleiben im System und stehen 
wirklich problemlos zum wiederholten Aufruf bereit. Die 
enorm universellen Makro-Operationen, die in diesem Pro¬ 
gramm verfügbar sind, können sich durchaus neben denen 
professioneller CAD-Programme sehen lassen. Sie werden 
alle von einem Menü angesteuert, das nach dem Anwählen 
von »Makro« erscheint. 

A. - Makro laden: Makros, die bereits erstellt und auf Dis¬ 
kette abgelegt wurden, lassen sich mit dieser Option unter 
Angabe des Filenamens laden und in das Gesamtgebilde ein- 
fügen. Existiert bereits ein gleichnamiges Makro im Speicher, 
so fordert der Computer Sie zur Eingabe eines neuen 
Namens auf. 

B. - Makro speichern: Nach Aufrufen dieses Menüpunktes 
können Sie Makros, die Sie erstellt haben und die sich im 
Speicher befinden, auf Diskette speichern, um sie zu einem 
späteren Zeitpunkt neu zu laden und wieder zu verwenden. 
Zum Speichern muß der Name, unter dem das Makro verwal¬ 
tet wird, und der Filename, unter dem es auf Diskette abge¬ 
legt werden soll, eingegeben werden. 

C. - Diskettenkommando senden: Hier kann der Anwender 
Diskettenoperationen durchführen. Soll beispielsweise das 
Makro »Stuhl« auf Diskette gelöscht werden, so muß man 
»S:MA.STUHL < RETURN >« eingeben. Hier sei zum leich¬ 
teren Verständnis bemerkt, daß Makros auf Diskette mit 
einem »MA.« vor dem Namen gekennzeichnet sind, der 


jedoch weder beim Laden noch beim Speichern einzugeben 
ist. 

D. - Makros auf Diskette: Nach Betätigung der Taste < D> 
gibt der Computer die Namen aller Makros aus, die sich auf 
der eingelegten Diskette befinden. 

E. - Makros im Speicher: Die Names> aller im Speicher befind¬ 
lichen Makros werden, vorausgesetzt es existieren welche, 
auf dem Bildschirm gelistet. 

F. - Makro erstellen: Arbeiten Sie gerade an einem Objekt 
und Sie gelangen zu der Erkenntnis, daß Sie ein noch nicht 
erstelltes Makro benötigen, so rufen Sie einfach diesen 
Menüpunkt auf. Nach Eingabe eines entsprechenden 
Namens ist der Bildschirm zur Konstruktion des Makros 
gelöscht, ohne daß jedoch Ihr bereits geschaffenes Kunst¬ 
werk verlorengeht. Der Begriff »Makro« ist invertiert und der 
Anwender kann mit den Funktionen »Fläche«, »Rotation«, 
»Form«, »Zeichnen«, »Makro laden« und »Makro einfügen« 
das gewünschte Objekt »zusammenbasteln«. 

G. - Makro einfügen: Sind Sie im »Makro erstellen«-Modus, 
können Sie das eben erstellte Makro wieder in ihren Gesamt¬ 
körper integrieren, indem Sie auf die Frage »Makro-Name ?« 
den Namen des neuen Makros eingeben. Während das bis¬ 
her Erstellte auf dem Bildschirm erscheint, blinkt das neue 
Makro und kann genauso wie ein Rotationskörper, unter Ver¬ 
wendung derselben Zusatzfunktionen wie < + >, <L>, 
<F1 > und <-—> eingefügt werden. 

Man kann aber auch jederzeit Makros, die bereits im Spei¬ 
cher existieren unter Angabe ihres Namens aufrufen und 
erneut verwenden. Hier muß jedoch für das Duplikat ein 
neuer Name eingegeben werden, damit die Makros weiterhin 
unterscheidbar sind. 

H. - Alles Erstellte als Makro: Wollen Sie in Zukunft das 
gesamte im Speicher befindliche Gebilde als Makro behan¬ 
deln, müssen Sie diesen Menüpunkt wählen und einen 
Namen für dieses Makro eingeben. Daraufhin wird der ganze 
Speicherinhalt unwiderruflich zu einem Makro verschmol¬ 
zen. 

Auch das Makromenü kann mit < — > wieder verlassen 
werden. 

5. »Zeichnen« - dreidimensional 

Dieser Menüpunkt eröffnet dem Benutzer die Möglichkeit, 
direkt in der 3D-Ansicht zu zeichnen und zu konstruieren! 
Auch hier wird die maßstabgetreue Arbeit durch ein Punkt¬ 
raster erleichtert (Bild 8). Jetzt blinkt auf allen 3 Grafik- 
Fenstern ein Cursor in Form eines Kreuzes. Man kann mit 
»Joystick vor und zurück« den Cursor auf dem Viertel rechts 
oben hinauf und hinunter bewegen. Auf den anderen Bild¬ 
schirmteilen bewegt sich der Cursor entsprechend, jedoch 
nur eindimensional. Die fehlende Dimension erhält man, 
wenn man zusätzlich den Feuerknopf drückt. Somit kann man 
das Fadenkreuz auch in der »Tiefe« vor und zurück bewegen. 
Ansonsten wird bei »Zeichnen« vollkommen analog zu »Flä¬ 
che« verfahren. Der hauptsächliche Unterschied liegt darin, 
daß hier die Fläche nicht mehr in der 3D-Ansicht in das Objekt 
integriert werden muß, da sie automatisch am richtigen Platz 
ist. Der für Sie wichtigste Unterschied dürfte der sein, daß die 
Eckpunkte hier mit < t > fixiert werden, da der Feuerknopf 
anderweitig belegt ist! Zur Auswahl stehen wieder folgende 
Befehle: 

<CLR> - löscht die soeben bearbeitete Fläche und stellt 
die Ausgangsposition wieder her. 

<L> - löscht den zuletzt fixierten Punkt mit den dazu¬ 

gehörigen Linien. 

< + > - fixiert die gesamte Fläche endgültig und ermög¬ 

licht die Eingabe einer weiteren Fläche in der 3D- 
Ansicht. 

<C> - dient dem Einfügen von gestrichelten Hilfskrei¬ 

sen. 
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< — > - fixiert die Fläche, wenn sie mehr als zwei Eck¬ 

punkte hat, und verläßt den »Zeichnen«-Modus. 

< t > - fixiert einen Eckpunkt an der momentanen Cur¬ 

sorposition. 

<F> - führt zu einem Sprung aus dem »Zeichnen«- 

Modus in den »Fläche«-Modus. Die Fläche ist nun 
wieder aus der 3D-Ansicht herausgelöst und 
blinkt, um neu positioniert und eingefügt zu wer¬ 
den. 

Diese Funktion ist von großem Nutzen, wenn Sie Flächen 
eingeben wollen, deren Lage oder Form sehr kompliziert ist. 
Die Taste < — > führt wieder zum Rücksprung ins Eingabe¬ 
hauptmenü. 

6. »Löschen« - problemlose Korrektur 

Eines der wichtigsten Leistungsmerkmale bei CAD- 
Programmen ist die Fähigkeit, Fehleingaben zu korrigieren 
und einzelne Bestandteile eines Objektes sowie deren Lage 
erneut zu ändern. Denn früher oder später will jeder Anwen¬ 
der nachträglich noch etwas verändern oder verbessern und 
Eingaben rückgängig machen. Leider bleibt so etwas bei vie¬ 
len Programmen nur ein Wunschtraum. Das so mühsam Kon¬ 
struierte muß neu eingegeben werden. Anders dagegen lie¬ 
gen die Dinge bei »Giga-CAD«: Dem Anwender wird ein 
umfangreicher Katalog von allen nur erdenklichen Manipula¬ 
tionen geboten. 

Man braucht dazu einfach nur den Menüpunkt »Löschen« 
in der Kopfzeile mit dem Cursor anzuwählen und erhält durch 
ein übersichtliches Menü eine Auswahl der Grund-Optionen. 

A. - Flächen durchblättern: Der Grafikbildschirm mit den 
drei Projektionen wird wieder eingeschaltet und eine der Flä¬ 
chen beginnt zu blinken. Mit den Tasten < + > und <-> 
kann man zyklisch vor- und zurückblättern, das heißt, nach 
der letzten Fläche kommt wieder die erste. Drückt man nun 
zum Beispiel < + >, fängt die entsprechend der Reihenfolge 
nächste Fläche an zu blinken. Die »nächste« Fläche ist also 
immer die Fläche, die nach der momentanen Fläche konstru¬ 
iert wurde. Sind Sie schließlich bei der gewünschten Fläche 
angelangt, die es zu ändern gilt, können Sie mit den jewei¬ 
ligen Tasten folgende Funktionen aufrufen: 

<L> - löscht die blinkende Fläche im Speicher und 

zeichnet das Gebilde anschließend erneut ohne 
die gelöschte Fläche. Nun blinkt die nächste Flä¬ 
che zur weiteren Bearbeitung. 

<V > - ändert die Verbindungsvorschrift einer Fläche. 

Es sind dafür nur die Zahlen < 0 > bis < 2 > zuge¬ 
lassen, doch darauf wird noch ausführlich einge¬ 
gangen. 

< *- > - verläßt den »Löschen«-Modus. 

< t > - führt zu einem Sprung in den »Flächen«-Modus, 

so daß die Fläche neu positioniert werden kann. 
Auch hier kann man mit der Taste <F1 > Befehle zusam¬ 
menfassen, was die Arbeitszeit erheblich verkürzt. Der Nach¬ 
teil liegt jedoch darin, daß dann gelöschte Flächen weiterhin 
auf dem Bildschirm bleiben. Aber beim Durchblättern werden 
diese Flächen natürlich übergangen, da sie ja intern nicht 
mehr existieren. Drückt man nochmals < Fl >, so wird das 
Gebilde ohne die gelöschten Flächen wieder auf den Bild¬ 
schirm gezeichnet. 

B. - Makros durchblättern: Um ein ganzes Makro zu eliminie¬ 
ren, benötigt man diesen Menüpunkt. Die Makros können 
auch hier mit < + > und <-> durchgeblättert werden, 
ebenso wie in der gerade beschriebenen Routine für Flä¬ 
chen. Die Taste < Fl > hat hier keine Funktion. Alle anderen 
Funktionen sind identisch zu »Flächen durchblättern«. Des¬ 
halb wird hier auf eine nähere Beschreibung verzichtet. 

C. - Bekanntes Makro löschen: Wollen Sie nun ein Makro 
löschen, dessen genauen Namen Sie kennen, sollten Sie 
diese Funktion aufrufen und den Namen des Makros einge- 



Bild 9. Ein Haus nach der Konstruktion in der Eingabeeinheit 

ben. Daraufhin beginnt das Makro wieder zu blinken und man 
kann es, wenn man sich wirklich sicher ist, mit < L> löschen. 
Liegen Sie um wenige Makros daneben, besteht weiterhin 
die Möglichkeit, das richtige Objekt mit < + > und <-> 
auszuwählen. Zur weiteren Bearbeitung stehen wiederum 
dieselben Befehle wie im letzten Menüpunkt zur Verfügung. 

D. - Alles löschen: Bestätigt der Anwender nach Aufruf die¬ 
ser Option die Frage »Sind Sie sicher ?« mit < J >, so wird das 
gesamte im Speicher befindliche Gebilde endgültig gelöscht. 
Es gibt keine Möglichkeit mehr, das alte Objekt zu rekonstru¬ 
ieren, es sei denn, man hat es bereits gespeichert. Der Bild¬ 
schirm steht währenddessen zur Neueingabe bereit. 

E. - Verbindungsvorschrift: Die aktuelle Verbindungsvor¬ 
schrift wird in alle Flächen kodiert, die man konstruiert. Um 
diese laufende Verbindungsvorschrift zu ändern, wählt man 
diese 1 «' lenüpunkt und kann dieser Größe einen neuen Wert 
(0 bis 2) zuordnen. Die Verbindungsvorschrift, die bei Rota¬ 
tionskörpern eingegeben wird, hat auf diesen Wert ebenso¬ 
wenig Einfluß wie das Ändern einer Verbindungsvorschrift 
beim Durchblättern von Makros und Flächen. Will man nun 
beispielsweise zukünftig alle einzeln erstellten Flächen mit 
der Verbindungsvorschrift <2> konstruieren, so kann man 
in diesem Menü die Taste < E > drücken und daraufhin eine 
< 2 > eingeben. Dann werden alle weiteren einzeln erstell¬ 
ten Flächen mit der Verbindungsvorschrift <2> vom 
System übernommen. 

Mit der < ~>-Taste gelangt der Benutzer wieder in das 
Grafikhauptmenü. 

7. »Exit« 

Schließlich gilt es in diesem Programmteil noch die letzte 
und kürzeste Funktion anzusprechen. Mit »Exit« gelangt man 
in ein übergeordnetes Menü, mit dessen Hilfe man Körper 
weiterbearbeiten kann. Dazu müssen Sie jedoch erst die 
Systemdiskette einlegen und dies dem Computer mit einem 
Tastendruck bestätigen. Selbstverständlich kann man noch 
vor dem Ladevorgang mit der Taste < - > in das Menü 
zurückkehren. Sollte sich statt der Systemdiskette eine 
andere Diskette im Laufwerk befinden oder ein Diskettenfeh¬ 
ler auftreten, wird der Ladevorgang abgebrochen und das 
Eingabemenü erscheint wieder. 

Die vierte Dimension - Filme erzeugen 


Soeben haben wir den Programmteil kennengelernt, der aus¬ 
schließlich der Generierung von Körpern dient. Nun werden 
wir uns den vielen Funktionen der Bearbeitungseinheit 
zuwenden. Neben der Möglichkeit, die erstellten Gebilde in 
mehreren Größen darzustellen, schufen wir zusätzlich noch 
eine Option, um bewegte Grafiken, sprich Filme, zu erzeu- 
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Bild 10. Zur Weiterverarbeitung wird die Vorderansicht auf 
dem ganzen Bildschirm dargestellt 



Bild 11. Bei der Verformung in der Bearbeitungseinheit wer¬ 
den die Grafiksymbole in den Bildschirm eingeblendet 

gen. Somit dringt man in die geheimnisumwitterte vierte 
Dimension vor und hat hier wieder eine ganze Reihe von 
Manipulationsmöglichkeiten, um Körper in zeitlicher Abhän¬ 
gigkeit zu verformen und so einen kaum noch zu überbieten¬ 
den plastischen Effekt zu erzielen. Auf diese Weise wird es 
Ihnen erstmals möglich, bewegte »Hidden-Line«-Grafiken 
wie von Geisterhand auf den Bildschirm zu zaubern, ohne 
auch nur eine Minute Ihrer Zeit dafür zu opfern, wenn Sie ein¬ 
mal das Gebilde geschaffen haben. Auch in diesem Pro¬ 
grammteil ist durch zahlreiche Systemkommandos eine der 
wesentlichsten Eigenschaften von »Giga-CAD« verwirklicht. 
Es wird ebenso wie in der Eingabeeinheit ein Optimum an 
Benutzerfreundlichkeit erreicht. Dieser Programmteil (Listing 
2) steht dem Anwender sofort nach dem Laden zur Verfü¬ 
gung. 

Zuerst einmal fällt der Unterschied zum Eingabesystem in 
der grafischen Darstellung auf: Das Gebilde wird nicht mehr 
in allen drei Projektionen dargestellt (Bild 9). Man sieht nun 
die Konstruktion in der Vorderansicht (Bild 10). Der Bild¬ 
schirm ist nicht mehr in vier Grafikfenster aufgeteilt, sondern 
das Gebilde wird doppelt so groß dargestellt und zwar so, daß 
es den ganzen Bildschirm zur Darstellung beansprucht. Der 
Aufruf sämtlicher Kommandos erfolgt in gewohnter Weise 
über die Kopfzeile, die jedoch nun andere Befehle beinhaltet. 
Zu lesen sind die Funktionen »Erstellen«, »Form«, »Disk«, 
»Zoom«, »Darstellen«, »Zusätze«, »Modi«. 

1. »Erstellen« 

Mit dieser Funktion können Sie, wie bereits angesprochen, 
in die Eingabeeinheit gelangen. Diese wird vom Computer 
von Diskette nachgeladen. 


2. »Form« 

Diese Funktion entspricht exakt jedem Detail der gleich¬ 
namigen Funktion in der Eingabeeinheit. Hier wird aber das 
Grafikfenster mit den Symbolen erst nach Aufruf dieses 
Menüpunktes in die Grafik eingeblendet (Bild 11). 

3. »Disk« 

Hinter diesem Begriff in der Kopfzeile verbirgt sich ein wei¬ 
teres Menü, das dem Benutzer erlaubt, sämtliche Disketten¬ 
operationen durchzuführen. Zur Auswahl stehen folgende 
Optionen: 

A. Objekt laden: Mit diesem Menüpunkt ist es möglich, auf 
Diskette gespeicherte Körper zu laden. Dazu braucht man 
nur den Dateinamen (natürlich ohne »OB.«) einzugeben. 
Beachten Sie dabei jedoch stets, daß davon das momentan 
im Speicher befindliche Gebilde überschrieben wird und 
somit nicht mehr zur Verfügung steht. Deshalb sollten Sie Ihr 
Objekt zuerst speichern. 

B. Objekt speichern: Diese Funktion speichert die gesamte 
Konstruktion, die sich im System befindet, zusammen mit 
allen Makros auf Diskette ab. So kann sie jederzeit mit dem 
zuvor erläuterten Kommando geladen werden. 

C. Diskettenkommando senden: Auch bei diesem Menü¬ 
punkt besteht kein Unterschied zu dem Befehl mit dem glei¬ 
chen Namen im Makromenü. 

D. Directory anzeigen: Drückt man die Taste < D>, so wird 
der Disketteninhalt auf dem Bildschirm ausgegeben. Durch 
Tastendruck gelangt man wieder in das Diskettenmenü. 

E. Grafik laden: Grafiken, die auf Diskette mit einem »PI.« vor 
dem Namen versehen sind, können, freilich ohne »PI.«, zum 
Betrachten geladen werden. Man gelangt daraufhin in einen 
besonderen Modus, der durch einen hellgrauen Rahmen 
gek-.- nzeichnet wird. Folgende Tasten sind jetzt mit den 
jeweiligen Funktionen belegt: 


<1 > - schaltet um auf Bildschirm 1. 

< 2 > - schaltet Bildschirm 2 ein, auf dem sich die gela¬ 

dene Grafik befindet. 

<M> - wechselt zwischen Multicolor- und hochauf¬ 

lösender Darstellung. 

<F1 >, <F7> 

- verändern die Strich- beziehungsweise Hinter¬ 
grundfarbe, wobei der Durchgang zyklisch ist. 

<F2>, <F8> 

- schalten noch einmal die jeweils vorhergehende 
Farbe für den Körper und Hintergrund ein. 

<F3>, <F5> beziehungsweise <F4>, <F6> 

dienen der Veränderung der zweiten und dritten 
Multicolorfarbe. Dabei »blättern« die »geSHIFTe- 
ten« Funktionstasten wieder rückwärts. 

<R> - umrandet die Grafik mit einem dünnen Rahmen. 

<S > - ermöglicht es, die Grafik zu speichern. Hierzu ist 

nur die Angabe des Filenamens erforderlich. 

< — > - führt zu einem Rücksprung aus diesem Modus, 

woraufhin der Rahmen wieder hellblau wird. 

F. Grafik speichern: Nach Aufruf dieses Menüpunktes kann 
man Grafiken speichern. Dazu muß man die Nummer des Gra¬ 
fikbildschirms und den Filenamen eingeben. 

4. »Zoom« 

Weil die Auflösung des C 64 nicht überragend ist, ist es oft 
sehr von Nutzen, wenn der Benutzer Details aus der Nähe 
betrachten kann. Diesen Wunsch erfüllen Ihnen folgende 
Befehle: 

A. - Zoomen des Objekts: Diese Funktion ermöglicht es, 
einen beliebigen Ausschnitt der Grafik zu selektieren und zu 
vergrößern. Dabei geht man folgendermaßen vor: 

Fahren Sie einfach mit dem Cursor auf die linke obere Ecke 
des erwünschten Ausschnittes und fixieren Sie diese mit 
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dem Feuerknopf. Bewegt man nun den Cursor an eine andere 
Stelle, zieht dieser einen blinkenden Rahmen hinter sich her. 
Somit kann der Anwender ein Fenster in der Grafik definieren 
das dann vergrößert wird. An dieser Stelle ist anzumerken! 
daß der Rahmen sich nicht deformieren läßt. Das Verhältnis 
der Seitenkanten bleibt immer gleich. Führt man den Cursor 
ein Stück nach unten, bewegt er sich automatisch etwas 
nach rechts und umgekehrt. Damit ist gewährleistet, daß das 
Gebilde nie seine Form verliert und »zerquetscht« wird. 

Um nun die Eingabe des Ausschnittes zu beenden, bewegt 
man den Cursor auf den rechten unteren Eckpunkt des Aus¬ 
schnittes und drückt wiederum den Feuerknopf. Hat man nun 
auf diese Weise den Ausschnitt ausgewählt, wird das Rah¬ 
menblinken beendet. Nach einer kurzen Wartezeit erscheint 
der nunmehr vergrößerte Ausschnitt auf dem Bildschirm. Das 
»Zoomen« läßt sich fast beliebig oft wiederholen. 

Haben Sie erst den ersten Eckpunkt des Rahmens fixiert 
und möchten Sie diesen anders positionieren, brauchen Sie 
nur <L> zu drücken. Mit der Taste < - > kann man den 
»Zoom«-Modus verlassen. 

B. - Originalgröße: Ist man nun des Vergrößerns überdrüssig 
geworden, kann man mit diesem Menüpunkt die Ausgangs¬ 
größe wieder hersteilen. Der Körper wird dann in seiner 
ursprünglichen Größe auf dem Bildschirm dargestellt. 

C. - Optimaler Ausschnitt: Das Gebilde wird automatisch 
auf dem Bildschirm optimal dargestellt, so daß es den Bild¬ 
schirm ganz ausfüllt. Diese Optimierung wird vom Computer 
berechnet und der jeweilige Ausschnitt in der Grafik mit 
einem Rahmen markiert (Bild 12). Kurz darauf erscheint die 
vom Computer errechnete neue Grafik auf dem Bildschirm 
(Bild 13). Auch hier kann man wieder per Hand »Zoomen« und 
die Originalgröße mit der zuvor besprochenen Option wie¬ 
derherstellen. 

D. - Betrachten der Grafik: Mit dieser Funktion kann man 

Grafiken optional sowohl auf dem ersten als auch auf dem 
zweiten Bildschirm betrachten. Hier befindet man sich wie¬ 
derum in dem bereits bei »Grafik laden« angesprochenen 
Modus. j-i ‘ 

E. - Zentrieren: Dieser Befehl verschiebt das räumliche 
Gebilde stets so, daß es sich genau in der Mitte des Bild¬ 
schirms befindet. Dabei nimmt es automatisch seine Original¬ 
größe wieder an und Ausschnittsvergrößerungen werden 
dabei rückgängig gemacht. Es ist unbedingt zu empfehlen, 
vor dem Erstellen von Filmen das Objekt zu zentrieren, da 
man sonst Gefahr läuft, daß sich das Gebilde aus dem Bild¬ 
schirm dreht und zeitweise nicht mehr sichtbar ist. 

Mit der < — > -Taste kehrt man zurück in das Hauptmenü. 


5. »Darstellen« 

Dieser Menüpunkt dient der computergestützten Berech¬ 
nung von Grafiken, wobei die Kopfzeile ausgeblendet bleibt. 
Damit ist es Ihnen möglich, Gebrauchsgrafiken für Ihren spe¬ 
zifischen Bedarf und Ihren persönlichen Anforderungen ent¬ 
sprechend zu erstellen. Hat man den Hidden-Line-Modus 
eingeschaltet, während man diesen Menüpunkt aufruft, wird 
eine eigens für »Giga-CAD« entwickelte Routine (Listing 4) 
von Diskette nachgeladen. Dies geht in der gewohnten Art 
und Weise vor sich. Währenddessen ist die Rahmenfarbe 
hellgrau. Lassen Sie sich nicht davon irritieren, wenn wäh¬ 
rend der Berechnung von Hidden-Line-Grafiken das Floppy- 
laufwerk zu arbeiten beginnt, denn der Computer speichert 
einige Systemdaten auf Diskette. Aus diesem Grund sollten 
Sie Ihre Diskette im Laufwerk lassen. Nur durch Zwischen¬ 
speichern der aktuellen Daten hat der Computer genügend 
Speicherplatz zur Verfügung, um alle Operationen zu opti¬ 
mieren und so die größtmögliche Geschwindigkeit zu errei¬ 
chen. Alle vom Computer gesteuerten Diskettenoperationen 
sind mit einer umfassenden Diskettenfehlerbehandlung gesi- 
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Bild 12. Man kann es dem Computer überlassen, einen opti¬ 
malen Ausschnitt zu selektieren 



G IGR-CRD SYSTEM 

Bild 13. Der vom Computer berechnete Ausschnitt belegt den 
ganzen Bildschirm 


chert. Gehen Ihnen die Systemdaten verloren, so steht auch 
das Objekt nicht mehr zur Verfügung. Alle weiteren Berech¬ 
nungen müssen daher vom Computer abgebrochen werden 
und das Programm kehrt ins nächste Menü zurück. Ist jetzt 
eine solche Grafik fertig, wird erneut die Bearbeitungseinheit 
geladen. Auch diesmal befindet sich der Benutzer wieder in 
dem bereits angesprochenen Modus, in dem er zwischen 
beiden Bildschirmen mit <1 > und <2> umschalten, mit 
<M> Multicolor ein- und ausschalten und mit <S> Grafi¬ 
ken speichern kann. Die Funktionstasten dienen wieder der 
Manipulation der Bildschirmfarben. 

Bei Darstellungen ohne Hidden-Line stehen die Dinge ähn¬ 
lich. Lediglich werden diesmal keine Werte auf Diskette 
gespeichert und auch kein weiterer Programmteil von Dis¬ 
kette geladen. 

6. »Zusätze«-Sonderfunktionen 

Was man kaum für möglich hält, ist mit diesem Programm¬ 
punkt realisierbar: 

Die durch die Grafikauflösung des C 64 gesetzten Grenzen 
werden gesprengt und Bilder mit einer Auflösung von sage 
und schreibe 1000*640 Punkten möglich. Auch die Fähig¬ 
keit, Filme mit 24 Bildern pro Sekunde zu berechnen, läßt auf¬ 
horchen. Sie brauchen sich nur für einen der folgenden 
Menüpunkte entscheiden, und schon steht Ihren Wunder¬ 
grafiken (von der Berechnungszeit abgesehen) nichts mehr 
im Wege. 

A. 4-fache Auflösung: Es werden Bilder in der gewählten 
Darstellungsart berechnet und mit einer Auflösung von 
640*400 Punkten berechnet. Dabei geht der Computer 
intern folgendermaßen vor: Zuerst muß der Name der Grafik 
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angegeben werden, der dann dem Filenamen auf der Dis¬ 
kette entspricht. Nun darf die Diskette während des Rechen¬ 
prozesses nicht mehr gewechselt werden. Daraufhin werden 
je zwei Bilder gleichzeitig berechnet. Diese enthalten, seitlich 
aneinandergefügt und vergrößert, die obere Hälfte der Grafik. 
Zwischen beiden Grafiken wird ständig hin- und hergeschal¬ 
tet, um den Zeichenvorgang für den Anwender kontrollierba¬ 
rer und überschaubarer zu gestalten. Sind beide Grafiken fer¬ 
tig, speichert der Computer sie selbständig und versieht sie 
mit einem »HV.« vor und der Nummer der Grafik hinter dem 
eingegebenen Namen. Anschließend wird die untere Hälfte 
gezeichnet und ebenso gespeichert. Daraufhin wird die Gra¬ 
fik in der Standardgröße dargestellt und man befindet sich 
wieder Im Hauptmenü. Sind schattierte Grafiken oder Grafi¬ 
ken im Hldden-Line-Modus erwünscht, wird vorher vom 
Computer der entsprechende Programmteil nachgeladen. 
Wie man nun diese Grafik zu Papier bringt, wird ausführlich 
in der Anleitung zur Hardcopy-Routine geschildert. 



Bild 14. Ohne Fluchtpunkt fällt es schwer, die räumliche Lage 
des Objektes zu erfassen 


k Zoom Darstellen Zusätze Modi 



Bild 15. Erst bei eingeschaltetem Fluchtpunkt läßt sich die 
Anordnung der räumlichen Objekte erkennen 


B. - lOfache Auflösung: Hier wird ebenso vorgegangen wie 
im obigen Fall. Der Computer muß jedoch hier fünf »Streifen« 
mit je zwei Bildern nebeneinander berechnen. Dabei wird die 
Grafik hochkant dargestellt, also um 90 Grad gedreht. Außer¬ 
dem wird dem Namen das Kürzel »HZ.« vorangestellt. Zum 
Ausdruck benötigt man wiederum die beigefügte Hardcopy- 
Routine. 

C. - Film erstellen: Mit diesem Menüpunkt lassen sich die 
bereits angesprochenen Filme erstellen. Damit ist für Sie 
praktisch keinerlei zeitlicher Aufwand verbunden. Sie brau¬ 
chen nur ein paar Parameter zu definieren und können alles 
weitere Ihrem Computer überlassen. In der Folge werden nun 
alle verfügbaren Optionen aufgeführt. 


a. - Drehung des Körpers an/ aus: Mit diesem Menüpunkt 
läßt sich eine Drehung um eine der drei Achsen vorgeben. 
Dabei ist anzugeben, ob um die X-, Y-, oder Z-Achse gedreht 
werden soll. Drücken Sie erneut <A>, wird Ihre Eingabe 
wieder aufgehoben. 

b. - Drehung um den Körper an/aus: Auch um den Körper 
kann man sich drehen. Mit anderen Worten dreht sich hier die 
Lichtquelle mit dem Körper, wohingegen bei a.) die Licht¬ 
quelle feststeht. Die ersten zwei Punkte dieses Untermenüs 
heben sich gegenseitig auf. Das heißt, drückt man <B>, 
wird automatisch die »Drehung des Körpers« ausgeschaltet. 
Auch hier muß man die entsprechende Achse angeben. 

c. - Drehung der Lichtquelle an/aus: Hiermit kann man die 
Lichtquelle optional um die X-, Y- oder Z-Achse zum Rotieren 
bringen. Diese Funktion macht keinen Unterschied zwischen 
Drehung »um den« und »des« Körper(s). Mit der Funktion wer¬ 
den Tages-Simulationen möglich. 

d. - Verschieben des Fluchtpunktes: Oftmals lassen sich 
besonders wirkungsvolle Effekte durch eine Verschiebung 
des Fluchtpunktes erreichen. Hierzu müssen drei Summan¬ 
den vorgegeben werden, die der Verschiebung in X-, Y- und 
Z-Richtung entsprechen. Viele Objekte wirken auch plasti¬ 
scher, wenn man die Perspektive variiert. 

e. - Verschieben der Schnittebene: Diese Funktion erlaubt 
Ihnen, einen Blick ins Innere Ihres Objektes zu wagen. Der 
Vorteil gegenüber einem Schnitt in einer normalen Grafik ist 
erheblich! In der bewegten Grafik kann man einen Körper 
langsam aufschneiden. Dadurch entsteht ein realistischer 
und plastischer Eindruck. Hierzu müssen Sie nur einen Ver¬ 
schiebungssummanden angeben. In vielen Fällen ist es aber 
auch ratsam, eine fixierte Schnittebene, die während des 
Films nicht verschoben wird, durch das Objekt zu legen. 

f. - Kippen der Z-Achse: Mit dieser Funktion hat es eine 
besu. idere Bewandtnis. Bei Drehungen um die Z-Achse bei 
»a.« und »b.« ist zu empfehlen, die Drehachse etwas nach vorn 
zu neigen. Dazu sollte der Körper in horizontaler Lage belas¬ 
sen werden. Neigt man nämlich den Körper einfach nach vorn 
und läßt ihn um die Z-Achse rotieren, sieht man ihn zwangs¬ 
läufig zeitweise von unten. Probieren Sie’s doch einfach ein¬ 
mal aus: Kippen Sie die Achse mit dieser Funktion um -30 
Grad nach vorn und lassen Sie dann den Film berechnen! 

g. - Verändern der Größe: Die Größe ist ein weiterer Parame¬ 
ter, den der Anwender variieren kann. Dazu braucht man 
lediglich den Vergrößerungsfaktor anzugeben. 

h. - Berechnung: Haben Sie nun alle gewünschten Manipu¬ 
lationen vorgenommen, können Sie mit diesem Menüpunkt 
die Berechnung starten. An dieser Stelle sei darauf hingewie¬ 
sen, daß sich beliebig viele Manipulationen zusammenfassen 
lassen. Lediglich a.) und b.) sind nicht gleichzeitig möglich. 
Dieser Menüpunkt muß noch mit der Taste <J> bestätigt 
werden. Nun kann die Arbeit des Computers auch fast schon 
beginnen. Doch zuerst ist noch der Name des Films einzuge¬ 
ben. Bevor Sie jedoch die RETURN-Taste drücken, sollten 
Sie die Diskette einlegen, auf die der Film gespeichert wer¬ 
den soll. Achten Sie dabei bitte darauf, daß auf dieser Dis¬ 
kette ausreichend Platz ist. Ein einzelner Film benötigt 192 
Blocks, ein Film in einem der Doppelmodi 384 Blocks. Außer¬ 
dem muß noch etwas Platz für die Systemdaten vorhanden 
sein. Ferner ist zu beachten, daß die Diskette während der 
Berechnungszeit im Laufwerk und das Laufwerk angeschal¬ 
tet bleiben muß. Handelt es sich nicht um einen Draht-Modell- 
Film, wird noch vor Eingabe des Filenamens ein weiterer Pro¬ 
grammteil von der Systemdiskette geladen. Alle zum Film 
gehörigen Files (24) sind mit einem »Fl.« vor und mit der Num¬ 
mer hinter dem Filenamen gekennzeichnet. Eine Säule am 
rechten Bildschirmrand zeigt an, wieviel von dem Film bereits 
fertig ist. Beim letzten Filmbild ist die Säule schließlich voll¬ 
ständig mit einem dunklen Balken aufgefüllt. Betrachten kann 
man den Film später mit der separaten »Movie«-Routine. 
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i. - Neue Parameter: Mit dieser Funktion lassen sich alle 
Parameter wieder löschen, um anschließend neue Bedingun¬ 
gen für den Film vorzugeben. 

Mit der < — >-Taste kann man in das »Zusätze«-Menü 
zurückkehren. 

D. - Film ergänzen: Mit dieser Funktion können Sie einzelne 
Filmbilder erstellen. Zunächst muß hier bei dem Filenamen 
die Nummer des Filmbildes mit eingegeben werden. Dieser 
Menüpunkt wird in keinster Weise von den Parametern für 
komplette Filme beeinflußt. Somit lassen sich beliebige Bil¬ 
der zu einem Film Zusammenhängen. So wird es zum Beispiel 
möglich, gegenläufige Bewegungen oder das Platzen eines 
Körpers in Form einer bewegten Grafik darzustellen. Von Nut¬ 
zen ist diese Funktion obendrein, wenn durch einen Disket¬ 
tenfehler ein einzelnes Filmbild verlorengeht. 

E. - Rahmen zeichnen an/aus: Wurde dieser Menüpunkt 
aktiviert, so umrandet der Computer alle Grafiken in den Spe¬ 
zialgrößen mit einem dünnen Rahmen, bevor diese auf Dis¬ 
kette gespeichert werden. 

Wie gewohnt, können Sie auch dieses Menü mit der 
< — > -Taste verlassen. 

7. »Modi« 

Nun sind eigentlich schon die wesentlichen Optionen 
angesprochen worden, um aktiv in die Gestaltung der Grafik 
eingreifen zu können. Aber damit sind die Möglichkeiten, die 
das Programm in sich birgt, noch lange nicht erschöpft. 
»Giga-CAD« bietet Ihnen noch weitere Extras, die die ganze 
Sache noch weiter abrunden. Dieser Menüpunkt bietet dem 
Benutzer einen umfangreichen Katalog von Manipulations¬ 
möglichkeiten bei der grafischen Darstellung von Körpern. 
A. - Fluchtpunktdarstellung an/aus: Gebilde wirken mit 
Fluchtpunktdarstellung einfach räumlicher. Dieser Menü¬ 
punkt ermöglicht eine perspektivische Darstellung. Dabei 
werden Tiefe und Entfernung eines Objektes dadurch simu¬ 



aber <J;c~mal mit Schnittlinien 

liert, daß sonst parallele Linien in einem Punkt zusammenlau¬ 
fen (Bild 14,15). Der Fluchtpunkt ist obendrein noch frei defi¬ 
nierbar. Einzugeben sind daher die Koordinaten des Flucht¬ 
punktes. Die wichtigste Rolle spielt dabei die Y-Koordinate. 
Sie gibt nämlich die Entfernung des Fluchtpunktes an. Hier 
ist es ratsam, ein wenig herumzuexperimentieren. So finden 
Sie schnell heraus, welcher Fluchtpunkt für Ihr Objekt am 
günstigsten ist, da er von der Größe abhängt. 

B. - Zeichnen der Schnittlinien an/aus: Wenn sich zwei 
oder mehrere Flächen schneiden, entsteht eine Schnitt¬ 
kante. Diese Option bewirkt nun, daß die Schnittkanten mit 
Linien gekennzeichnet werden. Das Programm ist so konzi- 



* 


18 


SONDERHEFT 6/86 










































































C 64 


GRAFIK-ERWEITERUNG 




Bild 18. Hier ist der Unterschied zwischen 
den Verbindungsvorschriften 0,1 und 2 zu sehen 


piert, daß dieser Faktor nur bei reinen Hidden-Line-Grafiken, 
also nicht bei schattierten, eine Rolle spielt. Der Unterschied 
zwischen »Zeichnen der Schnittlinien an« und »-aus« wird in 
den Bildern 16 und 17 veranschaulicht. 

C. - Hidden-Line-Modus an/aus: Die bearbeitete Grafik 
wurde bisher aus Geschwindigkeitsgründen als sogenann¬ 
tes »Draht-Modell« dargestellt. Somit geraten auch Linien, die 
in Wirklichkeit nicht sichtbar wären (da sie durch andere Flä¬ 
chen verdeckt würden) auf den Bildschirm. Schaltet man nun 
den Hidden-Line-Modus ein, werden diese Linien verdeckt 
und damit aus der Grafik ausgeblendet. Dabei ist jedoch die 
Berechnungszeit wesentlich höher. 

D. - Schattierungs-Modus an/aus: Auch schattierte Grafi¬ 
ken sind mit »Giga-CAD« möglich. Dabei holt das Programm 
64 beziehungsweise in Multicolor 192 verschiedene Grau¬ 
abstufungen durch unterschiedliche Rastermuster aus der 
Trickkiste. Dabei wird der Körper so schattiert, als würde er 
von der Sonne angestrahlt. Der Rechenaufwand ist der glei¬ 
che wie bei Hidden-Line-Grafiken. Jedoch werden hier die 



sonst weißen Flächen mit dem jeweiligen Muster aufgefüllt. 
Hier kommt nun endlich die so oft angesprochene Verbin¬ 
dungsvorschrift zum Tragen. Veranschaulicht wird dies in Bild 
18. Der erste der dargestellten Kelche wurde mit der Verbin¬ 
dungsvorschrift »0«, der zweite mit »1« und der dritte mit »2« 
kon ctr uiert. Bei einer Kugel wäre beispielsweise die Verbin- 
dungavorschrift »2« anzuraten. Bei Gebäuden sollten Sie 
aber besser Verbindungsvorschrift »0« wählen. Rotationskör¬ 
per, wie der abgebildete Kelch, sind oftmals mit »1« sehr wir¬ 
kungsvoll. 

E. - Lichtquellen-Koordinaten: Die Lage der Lichtquelle, die 
den Körper bei der Schattierung »anstrahlt«, ist frei definier¬ 
bar. Auch hier lassen sich wieder die Koordinaten wie beim 
Fluchtpunkt eingeben. 

F. - Multicolor-Modus an/aus: Grafiken können ebenso in 
Multicolor dargestellt werden, wobei die Anzahl der verschie¬ 
denen Schattierungsstufen sogar auf 192 ansteigt. 

G. - Doppelmodus HiRes und Multi an/aus: Zwei Grafiken 
werden gleichzeitig auf je einem Grafikbildschirm in Multi¬ 
color und HiRes erstellt. Während der Berechnung bleibt der 
HiRes-Bildschirm eingeschaltet. Sämtliche Doppelmodi wer¬ 
den bei Grafiken mit 4- beziehungsweise lOfacher Auflösung 
ignoriert. 

H. - Hidden-Line und Schattierung an/aus: Mit diesem 
Menüpunkt ist es möglich, Grafiken gleichzeitig in Hidden- 
Line- und im Schattierungsmodus auf je einem der beiden 
Grafikbildschirme darzustellen. Dabei wird ständig zwischen 
beiden hin- und hergeschaltet (Bild 19, 20). 

I. - Schnittebene an/aus: Wollen Sie wissen, »was die Dinge 
im Inneren zusammenhält«, schneiden Sie doch einfach den 
Körper mit dieser Funktion auf. Übrigens ist eine Verschie¬ 
bung der Schnittebene bei Filmen nur wirksam, wenn sie mit 
diesem Menüpunkt zuvor eingeschaltet wird. Dabei gibt der 
hier eingegebene Wert den Startwert der Verschiebung an. 
Die Schnittebene ist immer parallel zur Projektionsebene 
(Bildschirm), aber dafür in der Tiefe variabel. Wollen Sie nun 
Ihr Objekt sehr weit vorn durchschneiden, müssen Sie den 
Wert negativ, hinter der Hälfte positiv wählen. Mit einem Trick 
läßt sich ganz einfach eine sinnvolle Tiefe der Schnittebene 
ermitteln. Gehen Sie einfach in der Eingabeeinheit in den 
»Zeichnen«-Modus. Hier können Sie direkt am Punktraster im 
Bildschirmfenster mit der Draufsicht den Abstand abzählen, 
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Bild 21. Auch komplizierte Objekte wie diese Bohrinsel lassen 
sich mit »Giga-CAD« verwirklichen 

wobei man von der Mitte (Kreuz) ausgehen muß. Der Abstand 
zwischen zwei Rasterpunkten entspricht 10 Einheiten. 

Mit der < — >-Taste kann die Eingabe der Darstellungs¬ 
modi abgeschlossen werden. Wirksam werden jedoch die 
Parameter erst, wenn man »Darstellen« aufruft. Die perspekti¬ 
vische Darstellung wird bei »Form« und »Zoom« auch schon 
aktiviert. Einige dieser Befehle sind so untereinander ver¬ 
knüpft, daß keine unsinnigen Kombinationen entstehen. 
Schaltet man beispielsweise den Schattierungs-Modus an, 
wird gleichzeitig Hidden-Line-Modus aktiviert. 

Ab die Bilder laufen lernten 

Jetzt haben wir alle Befehle und Funktionen kennengelernt, 
die zum Erstellen und Bearbeiten zur Verfügung stehen. 
Manche Dinge muten vielleicht zunächst komplizierter an, als 
sie eigentlich sind. Der gekonnte Umgang damit erfordert 
selbstverständlich etwas Übung und Erfahrung, die Sie sich 
jedoch sehr schnell automatisch aneignen werden. Dann fin¬ 
den Sie auch den Schlüssel zu den unbegrenzten Möglich¬ 
keiten, die das Programm bietet. Viele Dinge, die sehr kompli¬ 
ziert und daher schwer vorzustellen sind, kann man mit »Giga- 
CAD« veranschaulichen. Zum Beispiel können Chemie- 
Freaks ihre Molekülmodelle räumlich erstellen und anschlie¬ 
ßend als Film rotieren lassen. All diejenigen, die technische 
Zeichnungen anfertigen wollen, kommen hier selbstver¬ 
ständlich auch auf ihre Kosten (Bild 21, 22). Selbst der 
Hobby-Bastler kann mit diesem Software-Paket seine Pro¬ 
jekte vorher grafisch konstruieren (Bild 23). Wer seinen 
Dachboden ausbauen möchte, kann überprüfen, ob ein 
zusätzlicher Tisch nicht doch ganz passend wäre oder ob 
eine Kommode nicht besser wirkt. Wer es genau wissen will, 
kann ja noch zusätzlich seine Gebilde aufschneiden. Auch 
der Einsatz für die Schule wäre denkbar. Werbegrafiken sind 
ganz einfach und effektvoll zu realisieren. Wer also noch ein 



Bild 22. Schrauben können sehr leicht mit der Funktion 
»Flächen verbinden« realisiert werden 



Bild 23. Eine fertig schattierte Grafik mit einer Auflösung von 
1000*640 Punkten. 


Emblem für sein Geschäft sucht, sollte dabei nicht auf »Giga- 
CAD« verzichten. Damit sind nur einige wenige der denkba¬ 
ren Bereiche angesprochen. Folglich sind Ihrem Einfalls¬ 
reichtum keine Grenzen gesetzt (Bild 24, 25). Sollten Sie 
sich in irgendeinem Programmteil »verheddert« haben, gelan¬ 
gen Sie im allgemeinen mit der Taste < — > wieder ohne 
Datenverlust aus der Misere. Manchmal ergeben sich Warte¬ 
zeiten, besonders bei komplizierten Körpern. Man sollte sich 
dabei nicht zu der Annahme verleiten lassen, der Computer 
sei abgestürzt. Ferner möchten wir noch darauf hinweisen, 
daß die Zahl der Flächen auf 421 und die Zahl der Eckpunkte 
auf 1322 begrenzt sind. Das heißt im Klartext, daß der Com¬ 
puter beim Überschreiten dieser Zahlen alle weiteren Flä¬ 
chen ignoriert. Das tritt jedoch praktisch nur ein, wenn man 
bei Rotationskörpern völlig übertriebene Werte bei »Anzahl 
der Facetten« eingibt. 
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KByte RAM wie dem C 64 und einem 8-Bit-Prozessor wie 
dem 6510, der noch dazu nur auf 1 Megahertz getaktet ist, 
schattierte Hidden-Line-Filme in Echtzeit zu berechnen. So 
wählten wir die einzig sinnvolle Lösung. Hintereinander wer¬ 
den 24 einzelne Filmbilder berechnet, die sofort auf Diskette 
gespeichert werden (Bild 26). Das geschieht im bisher 
beschriebenen Hauptprogramm. Bevor man einen solchen 
Film betrachten kann, ist es notwendig, einen RESET auszu¬ 
lösen oder den Computer einfach auszuschalten. Danach 
müssen Sie das entsprechende Programm (Listing 5) mit 
»LOAD"CAD.MOVIE",8« von der Systemdiskette laden. Ein 
kompletter Film benötigt 48 KByte und kann somit nicht wäh¬ 
rend der Berechnung im Speicher bleiben. Ist nun ein Film 
fertig berechnet und komplett auf Diskette gespeichert, läßt 
sich der Film mit Hilfe dieser speziellen Routine betrachten. 
Sie lädt die gesamte Filmsequenz und kopiert sehr rasch ein 
Viertelbild nach dem anderen in die Grafik, wodurch eine 
nahezu fließende Bewegung entsteht. Nach dem Start des 
Programms wird der Maschinenspracheteil nachgeladen. 
Anschließend erscheint ein Menü mit einigen wichtigen 
Grundoperationen auf dem Bildschirm. 

A. - Film laden: Diese Routine dient dem Laden von Filmen. 
Sie brauchen dazu nur den Namen des Films angeben, also 
ohne »Fl.« und der Nummer nach dem Namen. Zur Kontrolle 
gibt der Computer immer an, welches der 24 Filmbilder er 
gerade lädt. 

B. - Einzelnes Bild laden: Diese Funktion ermöglicht es dem 
Anwender, ein beliebiges Filmbild an irgendeine Stelle in den 
Speicher zu laden. Es ist natürlich notwendig, daß der Name 
mit der nachgestellten Nummer eingegeben wird, da sonst 
nicht klar wäre, welches Bild aus dem Film geladen werden 
soll. Außerdem fragt der Computer noch, an welche Position 
(1 bis 24) im Film das Bild geladen werden soll. 



Bild 25. Selbst komplizierte Grafiken wie die »Tower Bridge« 
sind für »Giga-CAD« kein Problem 


C. - Diskettenkommando senden: Diese Funktion ent¬ 
spricht der bereits bekannten gleichen Namens. 

D. - Directory anzeigen: Auch dieser Menüpunkt wurde 
bereits besprochen. 

E. - Ablauf: zyklisch/vor- und rückwärts. Der Benutzer hat in 
Bezug auf die Sequenz des Films zwei Möglichkeiten: 
»zyklisch« oder »vor/rückwärts«. Bei Filmen, die reine Um¬ 
drehungen darstellen, ist ein zyklischer Ablauf ratsam. Bei 
allen Filmen, bei denen das (fiktive) 25. Bild nicht kongruent 
zur' ° sten ist, empfiehlt es sich, die andere Sequenz zu wäh¬ 
len. Das ist zum Beispiel bei der Verschiebung der Schnitt¬ 
ebene der Fall. In vielen Fällen sind sogar beide Variationen 
ganz wirkungsvoll. Aus diesem Grund empfiehlt es sich fast 
immer, beide Möglichkeiten durchzutesten. 

F. - Modus: HiRes/Multicolor: Mit dieser Funktion kann man 
zwischen HiRes- und Multicolordarstellung umschalten. 

G. - Farben ändern: Mit diesem Menüpunkt schufen wir die 
Möglichkeit, die Farben ganz Ihrem Geschmack entspre¬ 
chend auszuwählen. Als Tip sei an dieser Stelle bemerkt, daß 
im Multicolormodus die Farben 6,14,0,15,15 (in dieser Rei¬ 
henfolge eingeben) zu empfehlen sind. 

H. - Film ansehen: Bei diesem Menüpunkt handelt es sich 
um das Kernstück der ganzen Routine. Hiermit läßt sich der 
geladene Film betrachten. Während des Ablaufs bieten wir 
Ihnen noch einige Gestaltungsmöglichkeiten. Die Geschwin¬ 
digkeit der Rotation wird per Joystick gesteuert. Drückt man 
den Joystick nach links, so verlangsamt sich der Ablauf des 
Films. Schneller wird er, wenn man mit dem Joystick in die 
andere Richtung lenkt. Die Geschwindigkeit kann maximal 24 
Bilder pro Sekunde betragen. 

leistungsstarke Hardcopy-Routine 


Irgendwann stellt sich jedem Druckerbesitzer die Frage, wie 
er die berechneten Grafiken zu Papier bringen kann. Für eine 
einfache Hardcopy hat sicher jeder eine geeignete Routine, 
aber wie um alles in der Welt bringt man seinen Drucker dazu, 
Grafiken mit einer Auflösung von 1000*640 Punkten auszu¬ 
geben? Die Panik des verzweifelten Anwenders wird sich 
legen, wenn er erst einmal die Hardcopy-Routine »CAD. 
HARDCOPY« (Listing 6) geladen und gestartet hat. Endlich 
steht einmal eine Routine zur Verfügung, die mehr kann als 
nur den Inhalt eines einzelnen Grafikbildschirms in nur einer 
Größe auf nur einem Drucker auszudrucken. Das Programm 
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Bild 26. Eine komplette Film-Sequenz. Während sich dieser 
Torus dreht, wird er gleichzeitig aufgeschnitten 
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ist so konzipiert, daß es alle Drucker unterstützt, die folgende 
Fähigkeiten haben: 

- Der Drucker kann mit 8-Nadel-Grafik vertikal untereinander 
drucken. 

- Die Ausgabe der Grafik kann im Bit-Image-Mode erfolgen. 
Aber für alle Besitzer von anderen Druckern besteht kein 
Grund, den Kopf hängen zu lassen! Sämtliche Grafiken wer¬ 
den auf Diskette im gängigen Format gespeichert und lassen 
sich mit Programmen wie »Hi-Eddi« ausdrucken. Diejenigen, 
die einen MPS 801 oder MPS 802 besitzen, müssen statt 
Listing 6 und 21 Listing 7 und 22 beziehungsweise Listing 
8 und 23 eingeben. Wer eine höhere Auflösung als 
320 *200 Punkte wünscht, kommt hier auf seine Kosten. Die 
»Giga-CAD Hardcopy« -Routine hat es in sich! Sie brauchen 
das Programm nur einmal an Ihren Drucker anpassen, und 
schon werden die jeweiligen Daten immer mitgeladen. Mit 
dem Modus »doppelte Dichte« hat es eine besondere Be¬ 
wandtnis: Der Druckkopf druckt jeweils acht Zeilen in doppel¬ 
ter Dichte, wobei jede zweite Zeile ausgelassen wird. 


Anschließend bringt er die jeweils ausgelassenen Zeilen zu 
Papier, wobei der Ausdruck um einen halben Punkt nach 
unten versetzt erfolgt. Doch am besten befassen wir uns 
zunächst mit den einzelnen Menüpunkten. 

A. - Grafik laden: Selbstverständlich kann man auch Grafi¬ 
ken in der Standardgröße ausdrucken. Dazu ist es notwen¬ 
dig, die Grafik zu laden. Auch hier ist das »PI.« vor dem Namen 
nicht mit einzugeben, wenn der Computer Sie nach dem File¬ 
namen fragt. Wollen Sie andere Bilder, die nicht mit »Giga- 
CAD« erstellt wurden, ausdrucken, so ist der Filename auf 
Diskette so zu ändern, daß dem Namen ein »PI.« vorangestellt 
wird. Das geschieht üblicherweise mit dem »Diskettenkom¬ 
mando senden«, Menüpunkt »G«: »R:PI.NAME=NAME«. 

B. - Hardcopy einfach: Die Grafik, die zuletzt geladen wurde, 
wird nach Aufruf dieses Menüpunktes auf dem Drucker aus¬ 
gegeben (Bild 27). Sollte dabei nicht das gewünschte Ergeb¬ 
nis erzielt werden, sollten Sie sich erst Klarheit darüber ver¬ 
schaffen, ob die Anpassung auch wirklich korrekt war. 

C. - Hardcopy vierfach: Die Grafiken werden nacheinander 
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Bild 27. Eine Eckbank In einfacher Größe (Auflösung 320*200 
Punkte) 



Bild 28. Die Eckbank (Bild 27) in vierfacher Größe (Auflösung 
640*400 Punkte) 


von Diskette geladen und untereinander ausgedruckt (Bild 

28) . Es versteht sich von seihst, daß man hier den Filenamen 
eingeben und die entsprechende Diskette in das Laufwerk 
schieben muß. 

D. - Hardcopy lOfach: Dieser Programmpunkt entspricht im 
wesentlichen dem eben genannten. Die Grafik wird jedoch 
um 90 Grad gedreht und in lOfacher Größe ausgedruckt 
(fünf Streifen untereinander mit je zwei Bildern parallel) (Bild 

29) . 

E. - Einfache Dichte/Doppelte Dichte: Praktisch alle gängi¬ 
gen Hardcopy-Routinen drucken die Grafiken in einfacher 
Dichte aus. Aber bei den meisten Druckern bekommt man 
Schwierigkeiten mit dem rechten Blattrand beim Ausdruck 
von Grafiken mit vier- beziehungsweise lOfacher Auflösung. 
Diese Schwachstelle haben wir umgangen, indem wir die 
Möglichkeit schufen, Grafiken in doppelter Dichte auszu¬ 
drucken. Auch einzelne Grafiken können in doppelter Dichte 
ausgedruckt werden. Dabei wäre natürlich zu beachten, daß 
das nur mit entsprechenden Druckern möglich ist. 

F. - Druckeranpassung. Dieser Menüpunkt muß nur einmal 
aufgerufen werden, und zwar dann, wenn Sie Ihren Drucker 
anpassen wollen. Die ermittelten Daten werden auf Diskette 
gespeichert, um immer nach dem Laden des Programms zur 
Verfügung zu stehen. Zur Anpassung wäre sonst nichts wei¬ 
ter zu sagen, da der Computer Sie durch detaillierte Fragen 
bei der Eingabe unterstützt. Als Sequenz sind immer die 
ASCII-Codes der Steuerzeichen einzugeben. Zuerst muß 
dem Computer die Zahl der Steuerzeichen übermittelt wer¬ 
den. Wollen Sie also »ESC E« senden, muß folgendermaßen 
vorgegangen werden: Die Anzahl der Codes beträgt zwei, die 
Steuerzeichen haben die ASCII-Werte »27« und »69«. Es ver¬ 
steht sich natürlich von selbst, das jeweilige Druckerhand¬ 
buch eingehend zu studieren. Durch die Möglichkeit, die 
Sekundäradresse anzugeben, unter der der Befehl gesendet 



Bild 29. Die Eckbank (Bild 27) in lOfacher Größe (Auflösung 
1000*640 Punkte) 


werden soll, verträgt sich das Programm auch mit einigen 
Exoten unter den Druckern. Im Normalfall sollte man hier die 
Sekundäradresse für Linearkanal wählen. Ist das Ergebnis 
immer noch nicht befriedigend, sollte versucht werden, das 
Interface durch den eventuell vorhandenen DIPschalter auf 
Durchgang zu schalten. Die durch Listing 10 erzeugten 
Druckerdaten beziehen sich auf Epson und Kompatible. Bei 
Epsondruckern mit Data-Becker- oder Wiesemann-Interface 
müssen Sie als Sekundäradresse <1> eingeben. Das 
Görlitz-Interface verlangt statt dessen die Sekundäradresse 
<4.">. Besitzen Sie einen SG-10, so ist der »Zeilenabstand 
aui i., 144 Inch« einzustellen. Das entspricht der Sequenz: 
27,51,1 beziehungsweise bei Epson-Druckern 27,51,1.5 

G. - Diskettenkommando senden: Dieser Menüpunkt 
bedarf wohl inzwischen keiner näheren Erklärung mehr. 

H. - Directory anzeigen: Entspricht der bereits bekannten 
Directory-Routine. 

i. - Druckerkommando senden: Ein weiteres Extra, das zur 
hohen Flexibilität beiträgt, ist die Möglichkeit, beliebige 
Druckersequenzen zu senden. Damit kann man beispiels¬ 
weise den Druckertabulator weiter nach rechts setzen, um 
eine einzelne Grafik zu zentrieren. Die Eingabe der Sequenz 
erfolgt in gewohnter Art und Weise. 

J. - Druckerparameter prüfen: Bei dieser Funktion wird die 
aktuelle Druckereinstellung auf dem Bildschirm ausgegeben. 

Die Hardcopy-Routine wurde bewußt separat program¬ 
miert, um auch den Ausdruck anderer Grafiken zu ermögli¬ 
chen, ohne das ganze Hauptprogramm von »Giga-CAD« la¬ 
den zu müssen. 


Eingabehinweise 


Die Maschinenteile müssen mit dem MSE eingegeben wer¬ 
den. Mit dem Listing 11 hat es jedoch eine besondere 
Bewandtnis. Es handelt sich nämlich hierbei um die Grafikda¬ 
ten der Kopfzeilen und der Grafiksymbole. Diese wurden spe¬ 
ziell kodiert, so daß das MSE-Listing etwa um die Hälfte kür¬ 
zer wurde. Deshalb müssen die Daten nach dem Abtippen 
wieder dekodiert werden. Für Sie bedeutet das im Klartext, 
daß Sie zuerst Listing 11 in gewohnter Weise mit dem MSE 
eingeben müssen. Anschließend laden Sie das eingegebene 
Programm »HRG.CAD.SRC« und starten es. Auf Diskette wird 
daraufhin das File »HRG.CAD.OBJ« erzeugt, in dem die Gra¬ 
fikdaten in der erforderlichen Form vorliegen. Die beiden 
Cursor-Sprites werden durch ein kurzes Basic-Programm 
(Listing 9) direkt auf Diskette erzeugt. Es ist von enormer 
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Wichtigkeit, darauf zu achten, daß die REM-Zeilen und die 
Space-Zeichen zwischen den Befehlen nicht mit eingegeben 
werden! Andernfalls reicht der Speicherplatz nicht aus. Auch 
hier sollten die Basic-Listings wieder üblicherweise mit dem 
Checksummer abgetippt werden. Es empfiehlt sich, für das 
Programm eine eigene Diskette zu verwenden, um alle 
Systemfiles auf einer Diskette abzulegen. Sollten Sie einen 
geeigneten Compiler haben, wie den Austrocomp, wäre es 
ratsam, die Listings 2, 3 und 4 zu compilieren. Selbstver¬ 
ständlich ist das Programm auch so uneingeschränkt lauf¬ 
fähig, aber einige Dinge werden durch das Compilieren noch 
abgerundeter und flüssiger. An dieser Stelle sei erwähnt, daß 
natürlich alle langsamen Funktionen durch Programmierung 
in Assembler ein Optimum an Geschwindigkeit erlangen. 
Lediglich einfache Eingaben und die Menüsteuerungen sind 
in Basic programmiert. Das File mit den Druckerdaten wird 
von Listing 10 auf Diskette erzeugt. Die Source-Listings 
(Listing 24 bis 26) müssen nicht abgetippt werden. Sie die¬ 
nen lediglich der Verdeutlichung einiger Algorithmen. Es wur¬ 
den gezielt diese Source-Listing-Auszüge gewählt, da 
gerade diese Routine für den Leser von Interesse sein dürf¬ 
ten. Da wäre zum Beispiel die Directoryroutine (Listing 24). 
Wer hätte nicht schon einmal ein derartiges Unterprogramm 
in seinem Basic-Programm benötigt. Oft jedoch wird dann die 
Routine nur in Basic programmiert. Das artet jedoch zwangs¬ 
läufig in eine nervenaufreibende Warterei aus. Diese Pro¬ 
bleme fallen natürlich bei der sehr schnellen und zudem kur¬ 
zen Assemblerroutine ganz weg! 

Nun zur Hardcopy-Routine: Die meisten Routinen arbeiten 
nur mit einem bestimmten Drucker problemlos zusammen. 
Deshalb ist die Hardcopy-Routine von »Giga-CAD« sehr uni¬ 
versell angelegt. Sollte Ihr Drucker dennoch streiken, ermög¬ 
licht Ihnen eventuell das Source-Listing (Listing 25), die Rou¬ 
tine für Ihren Drucker umzuschreiben. In dem Source-Listing 
der Movie-Routine (Listing 26) wird das Geheimnis bewegter 
Grafiken gelüftet. Sämtliche Source-Listings sind ausführlich 
und übersichtlich dokumentiert, so daß eigentlich jeder 
Schritt nachvollziehbar ist. Somit können die Routinen auch 
für eigene Zwecke abgeändert werden. 

Erläuterung der Assembler-Routinen 


Um das ganze Programm für Sie durchsichtiger zu gestalten, 
haben wir in Tabelle 1 die verwendeten Assemblerroutinen 
mit ihrer Syntax abgedruckt. Somit geben wir Ihnen Gelegen¬ 
heit, eventuelle Änderungen anzubringen. Ferner lassen sich 
die Maschinenspracheteile auch in eigene Programme als 
Basic-Erweiterung einbauen. Aufhorchen läßt zunächst ein¬ 
mal die Tatsache, daß man über zwei Grafikbildschirme ver¬ 
fügt und wahlweise auf einem der beiden oder auf beiden 
gleichzeitig zeichnen kann. Außerdem kann man eine der bei¬ 
den Grafiken anzeigen, mit mehreren Verknüpfungsarten 
Grafiken ineinander kopieren und im Rasterinterrupt mit varia¬ 
bler Geschwindigkeit zwischen beiden umschalten. Selbst¬ 
verständlich sind auch Routinen enthalten, die die Darstel¬ 
lung dreidimensionaler Gebilde unterstützen. Daraus ergibt 
sich zwangsläufig, daß Routinen wie zum Beispiel zum Zeich¬ 
nen von Kreisen und Ellipsen wegen des fehlenden Spei¬ 
cherplatzes nicht integriert sind. Auch sind solche Routinen 
bei einem CAD-Programm überflüssig. Aber wer Lust hat, 
kann sich ja entsprechende Befehle dazuprogrammieren. 
Aber enorm praktisch ist dafür zum Beispiel der »Screenline«! 
Endlich ist Schluß mit dem »7ILLEGAL QUANTITY ERROR« 
beim Zeichnen von Linien. Der »Screenline«-Befehl schneidet 
automatisch überstehende Linien ab und stellt den verblei¬ 
benden Rest auf dem Bildschirm dar. Wie Sie anhand der 
Speicherbelegungstabelle (Tabelle 2) erkennen, wird der 
gesamte Speicher des C64 von »Giga-CAD« beansprucht. 


Bei der Planung und Entwicklung des Programms wurde ein 
besonderes Augenmerk auf die optimale Ausnutzung des zur 
Verfügung stehenden Speicherplatzes gelegt. Auch die 
Basic-Programme wurden mehrfach in Bezug auf Länge und 
Geschwindigkeit optimiert. Da der Speicher jedoch zu klein 
ist, um bei einer vernünftigen Punkt- und Flächenanzahl das 
gesamte Programm zu fassen, mußte auf die Overlay-Technik 
zurückgegriffen werden. Im Klartext heißt das, daß einzelne 
Programmteile nachgeladen werden und sich teilweise über¬ 
lappen. An dieser Stelle sei auf einen weiteren Vorteil der 
Maschinenspracheroutinen hingewiesen. Da man Teile von 
HiRes (1 bis 8) (Listing 12 bis 19) laden kann, lassen sich so 
die benötigten Befehle auswählen. Zu erwähnen ist lediglich 
die Einschränkung, daß die Teile in aufsteigender Reihen¬ 
folge geladen werden müssen, da Routinen mit höheren 
Nummern teilweise auf Routinen mit niedrigeren Nummern 
zurückgreifen. Außerdem muß man vor dem Aufruf anderer 
Befehle den »Create«-Befehl (SYS 37021) ausführen. Der Auf¬ 
ruf der Befehle erfolgt stets mit »SYS Adresse...«. Sieht ein 
Befehl eine Parameterübergabe vor, so müssen diese durch 
Kommata von der SYS-Adresse getrennt werden. Die Para¬ 
meter können sowohl Variable und Formeln als auch Zahlen 
sein. Der Verzicht auf einen Aufruf als Basic-Befehl hat zum 
einen den Vorteil, daß der Speicherplatz, den die Befehlsta¬ 
belle benötigen würde, eingespart wird. Zum anderen läßt 
sich dadurch der Aufruf schneller durchführen, da nicht in 
einer Tabelle gesucht werden muß. Außerdem kann man so 
das Programm besser compilieren. Der Zeichen-Modus, in 
der Tabelle durch die Variable »ZM« ersetzt, kann im allgemei¬ 
nen die Werte 0 bis 2 annehmen. <0> löscht, <1 > setzt 
und < 2 > invertiert Punkte. Eine weitere öfters verwendete 
Variable ist »BS«, die den Bildschirm angibt. Bei allen Zei- 
chenhefehlen ist für die Variable ein Wert zwischen 1 und 3 
anzugc^en. Bei < 1 > wird nur auf dem ersten, bei < 2 > 
ausschließlich auf dem zweiten Bildschirm gearbeitet. Gibt 
man als Bildschirmnummer < 3 > an, so wird auf beiden Bild¬ 
schirmen gleichzeitig gezeichnet. Anders liegen die Dinge 
bei den Befehlen »HIRES«, »SHOW«, »COPY«, »UNFLASH«, 
»PIC LOAD« und »PIC SAVE«. Hier kann man jeweils nur wahl¬ 
weise Bildschirm »1« oder »2« behandeln. Bei »SHOW« läßt 
sich zusätzlich für »BS« noch »0« verwenden, wodurch der 
Textbildschirm wieder eingeschaltet wird. 

1. »Joy 1«: Diese Routine ist für die Abfrage des Joysticks in 
Port 2 gedacht. Im Programm findet sie zum Beispiel bei der 
Eingabe des Verformungsgrades per Joystick ihre Anwen¬ 
dung. Nach Aufruf dieses Befehls erfolgt sofort wieder ein 
Rücksprung ins Basic. Die ermittelte Joystick-Stellung wurde 
in Speicherstelle 859 abgelegt. Bei »Giga-CAD« wird mit 
» J =PEEK ( 859) « der Variablen J der entsprechende Wert zuge¬ 
ordnet. Man erhält für J zunächst einmal die Werte »0« bis 
»8«. Bei »0« wurde der Joystick überhaupt nicht bewegt. Die 
Joystick-Stellungen sind, oben beginnend, von 1 bis 8 im 
Uhrzeigersinn durchnumeriert. Drückt man den Feuerknopf, 
so liefert die Abfrage den Wert »128«. Wenn man nun bei 
gedrücktem Feuerknopf den Joystick bewegt, addiert sich zu 
den Werten 1 bis 8 jeweils 128. Mit anderen Worten ist bei 
gedrücktem Feuerknopf Bit 7 gesetzt. 

2. »Joy 2«: Dieser Befehl unterscheidet sich völlig von dem 
eben erklärten. Ruft man diese Routine auf, so erscheint das 
Cursorsprite auf dem Bildschirm. Mit Hilfe des Joysticks kann 
man den Cursor nun über den ganzen Bildschirm bewegen. 
Dabei nimmt die Geschwindigkeit bei Bewegungen in einer 
Richtung bis zu einem bestimmten Wert linear zu. So läßt sich 
der Cursor sehr schnell über größere Distanzen bewegen, 
aber dennoch präzise positionieren. Erst wenn man den 
Feuerknopf oder irgendeine Taste drückt, wird die Routine 
verlassen. Die aktuelle X- und Y-Koordinate des Sprites kann 
mit 

X=PEEK(2024)+256*PEEK(2025) 
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und 

Y=PEEK(2026) 

lokalisiert werden. Möchte man wissen, welche Taste 
gedrückt wurde, läßt sich deren ASCII-Code durch Auslesen 
der Speicherstelle 631 »A=PEEK(63l)« ermitteln. 

3. »Fläche-Code«: Ab $67d0 ist ein besonderes Array zur 
Verwaltung der Flächen abgelegt. Mit Hilfe des »Fläche- 
Code«-Befehls kann man nun Einträge in dieses Array vor¬ 
nehmen. Doch zunächst erhalten Sie noch detaillierte Infor¬ 
mationen über dieses Array. Der in der Tabelle mit »i« bezeich- 
nete Index gibt die Nummer der Fläche an. Diese Nummer ist 
somit identisch mit der Position der Fläche im Array. Die 
eigentlichen Koordinaten der Eckpunkte einer Fläche sind 
hintereinander in einem weiteren Array abgelegt. Um einen 
problemlosen Zugriff auf die Daten einer beliebigen Fläche zu 
haben, muß natürlich im Flächen-Array jede Fläche mit einer 
Startadresse der Koordinaten versehen sein. Diese Adresse 
gibt also an, ab der wievielten Stelle im Eckpunkte-Array die 
eigentlichen Daten der Fläche beginnen. Um auch noch Eck¬ 
punkte mit der Nummer 1321 adressieren zu können, muß 
dafür eine 16-Bit-Zahl verwendet werden. In Tabelle 1 steht 
für die Startadresse im Eckpunkte-Array die Variable »Q«. Um 
auch einzelne Makros unterscheiden zu können, ist es 
außerdem notwendig, die Nummer des Makros (»MN«) in der 
Fläche zu kodieren. Dafür sind pro Fläche 6 Bit reserviert, so 
daß maximal 64 Makros verwaltet werden können. Da jede 
Fläche ihre eigene Verbindungsvorschrift (»VB«) haben kann, 
sind dafür nochmals 2 Bit freigehalten, um die Werte 0 bis 2 
kodieren zu können. Befassen wir uns zunächst zum leichte¬ 
ren Verständnis mit einem kleinen Beispiel. Kodiert werden 
soll die 21. Fläche mit 4 Eckpunkten, Makronummer 5 und 
Verbindungsvorschrift 1, deren Koordinaten im entsprechen¬ 
den Array ab Position 340 beginnen. Dazu müssen Sie fol¬ 
gende Befehle eingeben: 

SYS 40206,340,20,5,1:SYS 40206,344,21,0,0 
Der zweite SYS-Aufruf legt den Anfang der nächsten Fläche 
fest und begrenzt so die Eckpunktdaten der kodierten 
Fläche, in diesem Fall auf die Position 343. Folgt keine Fläche 
mehr, so ist Verbindungsvorschrift und Nummer des Makros 
an der Endmarke ohne Bedeutung. Wie nun die Daten der 
Eckpunkte in ihrem Array abgelegt werden, wird an späterer 
Stelle erklärt. 

4. »Fläche-Decode«: Bei dieser Funktion handelt es sich um 
das Gegenstück von »Fläche-Code«. Hiermit wird es mög¬ 
lich, kodierte Werte wieder auszulesen. Bei dem SYS-Aufruf 
muß dann die Nummer der Fläche angegeben werden. Die 
Startposition der Fläche im Eckpunkte-Array (»Q«), die 
Makro-Nummer (»MN«) und die Verbindungsvorschrift (»VB«) 
werden folgendermaßen ermittelt: 

Q=USR(1):MN=USR(2):VB=USR(3) 

5. »Koord.-Code«: Nun wollen wir dem nächsten Problem zu 
Leibe rücken: der Organisation der Eckpunktkoordinaten im 
Speicher. Es stellt sich ja zwangsläufig die Frage, möglichst 
viele Daten in einem möglichst kleinen Speicherbereich 
unterzubringen. Und dabei ist zusätzlich die Genauigkeit der 
Daten ein begrenzender Faktor, der bei mathematisch orien¬ 
tierten Programmen wie »Giga-CAD« eine erhebliche Rolle 
spielt. Durch numerische Versuche wurde schließlich als 
Maximalanforderung eine Genauigkeit ermittelt, die eine Prä¬ 
zision von einer Stelle hinter dem Komma fordert. Würde man 
eine geringere Genauigkeit wählen, etwa nur Integerzahlen 
ohne Nachkommastellen, so hat man zwar einen größeren 
Koordinatenbereich, jedoch beginnen die bearbeiteten 
Objekte nach einigen Umformungen auseinanderzufallen, da 
sich die Rechenungenauigkeiten immer weiter aufsummie¬ 
ren. So suchten wir also einen Kompromiß zwischen 
Koordinatenbereich und Genauigkeit, woraus sich dann fol¬ 
gender Kodierungs-Algorithmus ergab: 

B=(A#10)+32768 


»A« ist hier die zu kodierende Fließkommakoordinate und »B« 
die kodierte 16-Bit-Zahl. Dieser Algorithmus beschränkt die 
Koordinaten auf einen Bereich von -3276.8 bis +3276.7. 
Werte außerhalb dieses Bereiches würden dazu führen, daß 
die 16-Bit-Zahl »B« entweder negativ oder größer als 65535 
wird. Die X-, Y- und Z-Koordinaten sind in einem Stapel abge¬ 
legt, der von 0 bis 1321 durchnumeriert ist und immer alle 3 
Koordinatenkomponenten zusammen adresssiert. Um das 
hier angewandte Verfahren zu durchleuchten, wollen wir 
noch einmal auf unser kleines Beispiel von eben zurückkom¬ 
men. Hat man nun Anfang und Ende der Fläche mit Hilfe des 
»Flächen-Code« festgelegt, kann man sich nun ans Werk 
machen, die Koordinaten in den Speicher zu kodieren. Bei 
dem »Koordinaten-Code«-Befehl muß man dann selbstver¬ 
ständlich die Position innerhalb des Eckpunkte-Arrays und 
die 3 Koordinaten angeben. Die Position des ersten Eck¬ 
punktes (»Q«) unserer Beispielfläche ist 340. Wollen wir 
einen Punkt mit den Koordinaten x1 = 12.4, y1=-30.0 und 
z1=5.6 im Array ablegen, ist die Befehlsfolge 
SYS 39718,240,12.4,-30.0,5.6 

notwendig. Mit den weiteren Punkten der Fläche verfährt 
man analog und erhöht nur die Ftositionsangabe »Q« bei 
jedem Punkt, bis man bei 243 angelangt ist. So schwierig das 
vielleicht klingen mag, ist es doch der beste Weg, um mög¬ 
lichst große Datenmengen schnell und einfach verwalten zu 
können. 

6. »Koord.-Decode«: Diese Routine hat die Funktion, Eck¬ 
punktkoordinaten wieder zu dekodieren. Der Computer 
benötigt dazu wieder die Position des entsprechenden Eck¬ 
punktes »Q«. Die Koordinatenkomponenten xl, yl, und zl 
kann man dann wieder bei unserem Beispiel mit 

SYS 40052, 340: Xl= USR(l): Yl= USR(2): Z1=USR(3) 
ausie?°n. Diese Routine funktioniert prinzipiell genauso wie 
die Routine zur Kodierung: 

A=(B-32768)/10 

Mit dieser Methode gelingt es also, alle 3 Koordinatenkompo¬ 
nenten eines Punktes (X,Y,Z) in 6 Byte unterzubringen. 
Würde man sie als Floating-Ftoint-Variable ablegen, so wür¬ 
den dadurch 15 Byte belegt! 

7. »Circle«: Mit dieser Routine kann man die bereits in der 
Anleitung angesprochenen Hilfskreise einfügen. Nach dem 
SYS-Aufruf kann man mit dem Cursor den Mittelpunkt und 
anschließend einen Punkt auf der Kreislinie fixieren. Erst 
wenn der gestrichelte Kreis eingezeichnet ist, wird die Rou¬ 
tine mit einem Rücksprung ins Basic verlassen. Bei erneutem 
Aufruf wird der Kreis wieder invertiert und damit im Normalfall 
gelöscht. Möchten Sie zusätzlich einen weiteren Hilfskreis 
mit dieser Routine einzeichnen, ist vorher ein 
P0KE40783,0 

notwendig. Dieser POKE-Befehl findet auch in der Eingabe¬ 
einheit Anwendung, denn nach dem Löschen des Bild¬ 
schirms darf nicht erneut der Kreis invertiert werden, son¬ 
dern die Positionierung eines neuen Kreises muß ermöglicht 
werden. 

8. »Umform«: Bei dieser Routine handelt es sich um eine der 
kompliziertesten und wichtigsten Routinen, so daß wir näher 
darauf eingehen möchten. Mit der Funktion läßt sich ein 
Objekt oder Teile davon drehen, dehnen, zerren und spie¬ 
geln. Es kann immer nur eine Operation auf einmal durchge¬ 
führt werden, was aber nicht unbedingt einen Nachteil dar¬ 
stellt, da dies durch das Konzept der Eingabe prädestiniert 
ist. Außerdem trägt dieses Verfahren erheblich zur Übersicht 
bei. Beginnen wir mit dem Parameter »MO«. Dieser Parameter 
gibt die Art der Verformung an. Anders als bei der Eingabe in 
»Giga-CAD« entspricht hier »MO« der Anordnung der Grafik¬ 
symbole so: 

9 8 

6 5 

3 2 


7 

4 

1 
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Die nächste Variable von umfassender Bedeutung ist »ZN«. 
Sie ermöglicht es, wahlweise das ganze Gebilde oder nur 
bestimmte Teile umzuformen: 

ZN = 0 : das gesamte Objekt 

ZN = 1 : nur die Fläche der Nummer »DG« 

ZN = 2 : alles außer der Fläche »DG« 

ZN = 3 : nur das Makro der Nummer »DG« 

ZN = 4 : alles bis auf das Makro »DG« 

Die Variable »D« gibt die Position der letzten Fläche +1 an, 
ist also immer die letzte Stelle im Flächen-Array, an die ein 
Wert geschrieben wurde. Ob die Eingabe per Joystick oder 
über Tastatur erfolgt ist, wird der Routine durch das Flag »El« 
übergeben. Soll eine Transformation mit dem Wert »W« durch¬ 
geführt werden, ist »El« auf »1« zu setzen, andernfalls auf »0«. 
Bei Eingabe über Joystick gibt »J« die Joystick-Stellung an. 
Um die ganze Sache zu veranschaulichen, betrachten wir 
wieder ein kleines Beispiel: das Makro Nummer 5 soll um die 
V-Achse gedreht werden. Die Eingabe erfolgte per Joystick, 
wobei die Stellung »1« ermittelt wurde. Es wurden 343 
Flächen eingegeben. Dieser Fall erfordert den Befehl: 

SYS 22873,7,3,5,344,0,1,0 

Der Wert von »W« ist hier bedeutungslos. Betrachtet man den 
obigen Fall unter der Voraussetzung, daß über Tastatur der 
Winkel 90 Grad eingegeben wurde, lautet der Befehl: 

SYS 22873,7,3,5,344,1,0,90 
Hier spielt »J« keine Rolle. 

9. »3D-Darstell.<>: Diese Routine stellt ein Objekt oder einen 
Teil dessen auf Bildschirm »BS« im Zeichenmodus »ZM« dar. 
Die Variablen »ZN« und »DG« haben die gleiche Bedeutung 
wie bei »Umform«. 

10. »Objekt Load«: Mit Hilfe dieser Funktion kann man ein 
Objekt von Diskette laden. Wichtig sind dafür zunächst ein¬ 
mal die Variablen »V« und »D«. Die Variable »V« gibt die letzte 
Position im Koordinaten-Array an, in die Daten abgelegt wur¬ 
den. Um ein Objekt zu laden, müssen Sie erst den Floppy- 
Kanal mit: 

0PEN2,8,2,"Name,S,R" 

öffnen. Ist das erledigt, muß der Befehl 

SYS 22541,D,V 

eingegeben werden. Anschließend brauchen Sie nur noch 
ein 

CL0SE2:SYS40206,V+l,D,0,0 

eingeben und schon befindet sich das Objekt im Speicher. 
Am Bildschirm freilich wird es erst sichtbar, wenn man eine 
der beiden Darstellungsroutinen aufruft. 

11. »Objekt Save«: Um ein Objekt zu speichern, muß man fol¬ 
gende Befehle eingeben: 

0PEN2,8,2,"Name,S,W":SYS22520,D,V:CL0SE2 

12. »Line-Test«: Dieser Befehl ist für die Schattierungsrou¬ 
tine von großer Wichtigkeit. Ausgegangen wird von folgender 
Problemstellung: Zu testen ist, ob eine vorgegebene Linie 
von einer bestimmten anderen, diesmal horizontalen Linie 
geschnitten wird. Ist dies der Fall, so ist von Interesse, 
zwischen welchen X-Bildschirmkoordinaten der Schnitt ver¬ 
läuft. Die einfachste und schnellste Methode ist sicherlich, 
einfach im Speicher das Zeichnen einer Linie mit einem 
schnellen Line-Algorithmus zu simulieren. Daraufhin braucht 
sich der Computer nur gegebenenfalls den ersten Wert mit 
dieser Y-Koordinate und den letzten Wert der fiktiven Linie 
merken. Und genau das erledigt diese Routine. Die Variablen 
XI, Y1 und X2, Y2 definieren die Linie. »YW« ist der Y-Wert der 
horizontalen Schnittlinie. Anfang (»AX«) und Ende (»EX«) des 
Schnittes werden folgendermaßen ausgelesen: 

AX= PEEK (862) +256 * PEEK (863) :EX= PEEK (864) 
+256 * PEEK (865) 

13. »Fl-Darstellung«: Mit dieser Routine kann das ganze 
Objekt als Drahtmodell, optional auch mit Fluchtpunkt darge¬ 
stellt werden. Das Flag »FL« (»0« oder »1«) gibt an, ob der 
Fluchtpunkt-Modus ein- oder ausgeschaltet ist. Die Variablen 


AI, A2 und A3 geben dann gegebenenfalls die Koordinaten 
des Fluchtpunktes an. Das Flag »RI« muß bei Darstellung in 
lOfacher Größe auf 1 gesetzt sein, da es die Grafik um 90 
Grad kippt. »GR« gibt die Größe an. Bei 4- und lOfacher Auflö¬ 
sung muß »GR« »2« sein. Die einzelnen Streifen werden dann 
erzeugt, indem man den Wert von »FK« immer um »200« 
erhöht. Bei 4facher Auflösung wird dabei bei »0« gestartet, 
bei 10-facher Auflösung bei »-300«. Bei allen anderen Grö¬ 
ßen muß »FK« »0« sein. Steht einem der Sinn nach Viertelbil¬ 
dern, ist für »GR« der Wert »0.5« einzusetzen. Bei Darstellung 
in normaler Größe muß jedoch »GR« »1« sein und »FK« und 
»RI« müssen auf »0« gesetzt werden. Die Variablen »H«, »Fl« 
und »F2« sind beim »Zoomen« von Bedeutung. »H« gibt den 
Vergrößerungsfaktor an und »Fl« und »F2« jeweils die beiden 
Verschiebungssummanden in X- und Y-Richtung. »BS« ist die 
Nummer des Bildschirms. 

14. »Hardcopy«: Bei der Programmierung der Hardcopy- 
Routine war uns oberstes Prinzip, diesen Programmteil so zu 
gestalten, daß er möglichst viele Drucker unterstützt. Aus 
diesem Grund wurde der Programmteil einfach so konzipiert, 
daß mit der Sekundäradresse 4 einfach 320 oder 640 Spal¬ 
ten einer Grafikzeile gesendet werden. Auf den Ausdruck 
dieser Spalten kann so jeder seine Drucker entsprechend 
vorbereiten. Im Regelfall sollte man dazu zuerst den erforder¬ 
lichen Zeilenabstand einstellen. Ist das erledigt, muß nur 
noch die Anzahl der zu druckenden Spalten eingegeben wer¬ 
den. Die Variable »Z« gibt die auszugebende Zeile an. Folglich 
ist für »Z« immer ein Wert zwischen »0« und »24« zu wählen. 
Das nächste Flag gibt an, ob jede Zeile (»0«) oder nur jede 
zweite Zeile (»1«) ausgegeben werden soll. Wie bereits 
erwähnt, wird bei doppelter Dichte jeweils jede zweite Zeile 
und anschließend die ausgelassenen Zeilen um einen halben 
Punkt nach unten versetzt ausgedruckt. Ob jetzt bei der 
erstfei. Zeile beginnend jede zweite Zeile (»0«) oder die aus¬ 
gelassenen Zeilen (»1«) ausgegeben werden sollen, wird 
durch das Flag »A« festgelegt. Das schließlich letzte Flag »G« 
gibt die Größe an. Hat »G« den Wert »1«, so werden beide Gra¬ 
fikbildschirme nebeneinander, also mit insgesamt 640 Spal¬ 
ten, ausgedruckt. Diese Informationen sind in erster Linie für 
diejenigen interessant, die mit dem Programm »CAD.HARD- 
COPY« keine befriedigenden Ergebnisse erzielen konnten. 
Vielleicht gelingt es Ihnen mit diesen Hinweisen, sich eine 
eigene Routine zusammenzubasteln, um Ihre Werke zu 
Papier zu bringen. 

Ausgetüftelte Schaftierungsroutine 


Für viele Leser dürfte wohl besonders das Konzept der 
Schattierungsroutine von Interesse sein. Denn schließlich 
handelt es sich hier um den Kernteil des Programms. Dafür, 
daß die Tiefe jedes einzelnen Punktes in Bezug auf das 
Gesamtgebilde berechnet und überprüft werden muß, ist die 
Schattierungsroutine extrem schnell. 

Alle Gebilde werden, wie bereits oft erwähnt, als eine 
Ansammlung einzelner Flächen vom Computer verwaltet. 
Häufig definieren ähnliche 3D-Grafik-Programme nur die 
Kanten der Gebilde, was beim Ausblenden von verdeckten 
Linien Schwierigkeiten bereitet. Die in »Giga-CAD« ange¬ 
wandte Methode unterscheidet sich von vielen anderen glei¬ 
cher Art, denn die Zahl der Eckpunkte ist nicht auf drei 
beschränkt. Selbstverständlich kann man bei jenen Routinen 
eine Fläche mit mehr als drei Eckpunkten aus mehreren Drei¬ 
ecken zusammenflicken. Damit wird die ganze Behandlung 
und Eingabe komplizierter und oft auch langsamer. Prinzipiell 
arbeiten fast alle Schattierungs- und Hidden-Line-Routinen 
nach dem gleichen Schema. Zuerst werden die Winkel zwi¬ 
schen allen Flächen und dem Vektor, der die Lichtquelle 
beschreibt, berechnet und in einem Array abgelegt. Im näch- 
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sten Schritt werden die Flächen in der Reihe ihrer Sichtbar¬ 
keit geordnet und in dieser Reihenfolge auf den Bildschirm 
gebracht. Durch die Reihenfolge der Sichtbarkeit treten die 
ersten Probleme auf. Welches Kriterium soll man denn neh¬ 
men? Bei genauerer Betrachtung stellt man bald fest, daß sol¬ 
che Sichtbarkeitsentscheidungen, die für das menschliche 
Auge ganz selbstverständlich sind, den Computer vor kaum 
lösbare Aufgaben stellen. Freilich sind findige Köpfe schon 
auf die verschiedensten Möglichkeiten gestoßen, aber fast 
alle müssen bei besonders komplizierten Objekten passen. 
Ein besonders beliebtes und einfaches Sortierkriterium ist 
die Länge des »Normalenvektors«, was aber leider nicht 
immer zufriedenstellende Ergebnisse liefert. Die nächste 
Schwierigkeit dieses Verfahrens liegt darin, daß einzelne Flä¬ 
chen nicht immer einfach nacheinander auf den Bildschirm 
gezeichnet werden dürfen. Man stelle sich doch nur einmal 
zwei Flächen vor, die sich gegenseitig überlappen, und 
schon funktioniert das herkömmliche Verfahren nicht mehr. 

Der nächste, für uns schon ganz brauchbare Trick ist 
eigentlich ganz naheliegend. Man sortiert die Flächen gar 
nicht erst und zeichnet sie einfach in beliebiger Reihenfolge 
auf den Bildschirm. Dabei berechnet man von jedem gezeich¬ 
neten Punkt die Tiefe und legt diesen Wert im Speicher ab. 
Die Tiefe jedes weiteren Punktes, der an derselben Stelle 
gesetzt werden soll, wird mit dem abgelegten Wert vergli¬ 
chen und nur dann gezeichnet, wenn er davor liegt. Doch wer 
denkt, das Problem wäre damit schon gelöst, der hat sich zu 
früh gefreut. Denn wenn man für die Tiefe jedes Bildpunktes 
nur ein Byte reserviert, würde der Speicherplatz des C64 
nicht ausreichen. Somit können wir auch diese Idee wieder 


E: X = A + k* u + l*\T 
g: X = B + r* w 



ul 


vl 

TI x v= 

u2 

X 

v2 


u3 


v3 


Man verschiebt nun die Ebene (durch Subtraktion des Vek¬ 
tors A) in den Ursprung und erhält eine Ebene, die durch die 
Vektoren Tfund vaufgespamitwird. Der Normalenvektor läßt 
sich als Vektorprodukt von u und v berechnen. 

/u2 v2l 
det |u3 v3j 

I ul vl' 

-det [u3 v3j 

|ul vl\ 

^det [u2 v2| 

Die jeweilige Koordinate berechnet sich aus der Determinan¬ 
ten der Restkoordinaten. Der zweiten Determinante wird ein 
Minus-Zeichen vorangestellt. Den so berechneten Vektor 
braucht man nun nur noch in die bereits hergeleitete Formel 
einzusetzen: 


cos*. = (u x v) o w 
l(u x v)l*lwl 

Schließlich bleibt nur noch zu klären, wie man den Betrag 
eines Vektors ermittelt. Dazu verwenden wir folgende For¬ 
mel: 


I ul = 


ul 

u2 

u3 


= |/u1 2 + u2 2 + u3 2 


verwerfen. 

Dennoch sind wir des Rätsels Lösung schon näher. Man 
braucht das Bild nur einfach zeilenweise aufzubauen, und 
schon ist pro Grafikspalte nur noch ein Tiefenwert erforder¬ 
lich. Im folgenden Flußdiagramm wird die Schattierungsrou¬ 
tine sehr ausführlich erklärt, um sie auch Besitzern anderer 
Computer zugänglich zu machen. Der eine oder andere kann 
daraus sicherlich Anregungen zur Lösung eigener Hidden- 
Line-Probleme schöpfen. 

Die Hauptroutine ist in Assembler geschrieben, aber zuerst 
müssen noch ein paar Vorbereitungen getroffen werden. 

Wie bereits angesprochen, muß zuerst der Winkel zwi¬ 
schen Normalenvektor der Fläche und Lichtquellenvektor 
berechnet werden. Hierbei muß man natürlich den kleinen 
Sprung vom Punkt zum Ortsvektor machen, was aber in der 
Mathematik nur Definitionssache ist. Zunächst einmal soll 
geklärt werden, wie man die Winkel zweier Vektoren berech¬ 
net. Hierzu wählt man folgende Formel, die sich aus der Defi¬ 
nition des Skalarprodukts ergibt. 

TT und V seien die Vektoren, der Winkel zwischen TT und V: 

Tf o V = ITTlI Wcos* 

= >cos*= “o v 
luHvl 

Das Skalarprodukt »0« ist im IR 3 folgendermaßen definiert: 


= Ul*v1+u2*v2+u3*v3 


In unserem Fall interessiert nicht der Winkel zwischen zwei 
Vektoren, sondern zwischen der Ebene und dem Vektor. Nun 
nimmt man den Normalenvektor zu Hilfe, der auf der Ebene 
senkrecht steht und somit mit dieser einen Winkel von 90 
Grad bildet. Der Winkel zwischen Normal- und Lichtquellen¬ 
vektor ist also 90 Grad minus dem gesuchten Winkel. Befas¬ 
sen wir uns mit der Berechnung des Normalenvektors. Dazu 
benötigt man drei linear unabhängige Vektoren, die durch drei 
Eckpunkte der gegebenen Fläche festgelegt werden. 



ul 


vl 

TT o V = 

u2 

o 

v2 


u3 


v3 


In der Schattierungsroutine wird der Cosinus dieses Win¬ 
kels a "f einen Wert zwischen 0 und 192 umgerechnet und 
als 1-byte-Zahl im Speicher abgelegt. Der ganze Prozeß wird 
mit allen Flächen wiederholt. 

Um möglichst kurze Leerlaufzeiten zu erzielen, werden 
anschließend die absolutem Extrema des Objektes und die 
relativen Extrema jeder Fläche berechnet. Damit erfolgen 
Berechnungen nur im relevanten Bereich. Auch diese Werte 
werden wieder in einem Array abgelegt. Ferner rechnet der 
Computer die 3D-Koordinaten der Eckpunkte in Bildschirm¬ 
koordinaten um und kodiert sie in dieser Form in den Spei¬ 
cher. Nun kann endlich mit der Schattierung begonnen wer¬ 
den. Zu übergeben sind folgende Variablen: 

EC : Minimum (Zeile, ab der schattiert wird) 

ED : Maximum (Zeile, bis zu der schattiert wird) 

SL : Flag für Schnittlinien an/aus 
WQ : Flag für Schattierung an/aus 
MC : Flag für Multi-Color-Modus an/aus 
WM : Flag für Doppelmodus HiRes Multi-Color an/aus 
B : Flag für Doppelmodus Schattierung und Hidden- 
Line an/aus 

SE : Flag für Schnittebene an/aus 

KE : Tiefe der Schnittebene 

DF : Anzahl der Flächen 

GR : Größe der Darstellung (0,5/1/ oder 2) 

RI : Flag für Kippen des Objektes in Querformat 
BS : Bildschirm (1 oder 2) 

Alles weitere erklärt sich aus dem Flußdiagramm, da es 
besonders ausführlich und übersichtlich gestaltet wurde. 

Nun wollen wir noch zu guter Letzt die einzelnen Kompo¬ 
nenten der eigentlichen Schattierungsroutine unter die Lupe 
nehmen. Dadurch soll das Flußdiagramm noch weiter veran¬ 
schaulicht werden. 

Da ja das Bild zeilenweise aufgebaut wird, startet die Rou¬ 
tine mit einer Schleife (Flußdiagramm 1) vom Minimum ED 
und behandelt so jede Grafikspalte, in der gezeichnet werden 
muß. Jeder gesetzte Punkt ist auf seine räumliche Tiefe hin 
zu überprüfen. Daher muß zwangsläufig zuerst das Array mit 
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den Werten für jede Grafikspalte auf einen Extremwert 
(-8000) gesetzt werden. Dadurch ist gewährleistet, daß der 
erste Punkt in einer bestimmten Grafikspalte nicht übergan¬ 
gen und die Tiefe an der entsprechenden Stelle gespeichert 
wird. In einer weiteren Schleife werden jeweils alle Flächen 
des Gebildes bei jeder Grafikspalte erneut durchlaufen. Das 
mag vielleicht sehr umständlich anmuten, ist aber weitaus 
schneller als alle anderen untersuchten Möglichkeiten. Nun 
wird durch Vergleiche der Grafikzeile »LA« mit den im Array 
abgelegten Extrema einer Fläche geprüft, ob die Zeile inner¬ 
halb dieser Grenzen liegt. Wird also die Fläche nicht von die¬ 
ser Grafikzeile geschnitten, wird sie übergangen und mit der 
nächsten Fläche begonnen. Damit lassen sich die Leerlauf- 
zeiten auf ein Minimum reduzieren. Die nächste Schleife 
ermittelt von allen Randlinien der aktuellen Fläche Anfangs¬ 
und Endkoordinaten. Diese Koordinaten werden am Punkt 
»1« einem Unterprogramm (Flußdiagramm 2) übergeben. Die¬ 
ses hat die Aufgabe, die Schnittpunkte der Fläche mit der 
Zeile »LA« zu ermitteln. Beim »Line-Test« geschieht das mit 
Hilfe eines schnellen Integer-Line-Algorithmus, der sich 
Anfang und Ende des Schnittes merkt. Die Methode ist 
wesentlich schneller als eine aufwendige Floatingpoint- 
Berechnung der Schnittpunkte. In einem weiteren Unterpro¬ 
gramm (Flußdiagramm 3) werden die Fälle berücksichtigt, bei 
denen der Schnittpunkt außerhalb des Bildschirms liegt. Ob 
diese Schnittpunkte eingezeichnet werden müssen, ent¬ 
scheidet die Verbindungsvorschrift. Um die Sichtbarkeit der 
gezeichneten Punkte zu untersuchen, wird mit Hilfe des 
Strahlensatzes die Tiefe der Schnittpunkte über die Eck¬ 
punkte der Linie berechnet. Nun werden gegebenenfalls die 
Schnittpunkte eingezeichnet. Dazu wird in ein weiteres 
Unterprogramm verzweigt. Da einige Eckpunkte beim Line- 
Test zu doppelten Schnittpunkten führen, werden die über¬ 
flüssigen Werte wieder herausgefiltert. 

Wurde der »Line-Test« mit allen Randlinien durchgeführt 
und ist die Anzahl der Schnittpunkte ausreichend, so ver¬ 
zweigt das Programm über die Verbindungsstelle »11« zu 
einer weiteren Routine (Flußdiagramm 4). Hier werden zuerst 
die Schnittpunkte der Größe nach geordnet und dann mit 
jeweils der ersten und zweiten, der dritten und vierten Linie 
im Schattierungsraster verbunden. Deshalb müssen in einer 
geeigneten Schleife (Flußdiagramm 5) wieder die Tiefen 
sämtlicher Punkte dieser Linie berechnet werden. Liegt ein 
Punkt vor einem bereits in dieser Grafikspalte gezeichneten 
Punkt, wird in die Routine verzweigt, die nun endlich diesen 
Punkt setzen soll. Paradoxerweise ist diese Routine (Flußdia¬ 
gramm 6) komplizierter als alle anderen Unterprogramme. 
Das kommt daher, daß alle Spezial- und Sonderfälle wie 
Schnittebene, Doppelmodi und schattierte oder einfache 
Hidden-Line-Darstellung berücksichtigt werden müssen. 
Gegebenenfalls wird dann der zuvor berechnete Winkel der 
Fläche aus dem Array geholt und damit das Schattierungsra¬ 
ster berechnet. Die gleiche Routine wird auch benutzt, um 
alle Randlinien einer Fläche einzuzeichnen. Die ganze Proze¬ 
dur wird pro Zeile mit jeder Fläche wiederholt. Ist der Compu¬ 
ter schließlich mit der letzten Grafikzeile fertig, hat man eine 
Grafik, deren unsichtbare Linien und Flächen wirklich voll¬ 
kommen realitätsnah ausgeblendet sind. 

Mit den Hintergrundinformationen, die wir Ihnen hier mit auf 
den Weg gegeben haben, wünschen wir Ihnen viel Erfolg bei 
der Verwirklichung Ihrer eigenen 3D-Grafik-ldeen. 

(S. Vilsmeier/S. Lippstreu/ah) 


Wichtiger Hinweis zum Abtippen! 

In den Basic-Listings dürfen keine Leerzeichen 
zwischen den Befehlen eingegeben werden. Auch die 
REM-Zeilen dürfen nicht abgetippt werden. 


Kurzanleitung 

A. Eingabeeinheit 


1. Fläche 


a) 20-Elngabe 


<FeuerKnopf> 

- fixiert den Eckpunkt 

<L> 

- löscht den zuletzt eingegebenen Eck- 


Punkt 

<CLR> 

- löscht den Bildschirm samt allen Einga- 


ben 

A 

O 

V 

- fügt einen gestrichelten Hilfskreis ein 


oder löscht ihn wieder 

< —> 

- beendet die 2D-Eingabe 

b) 3D-Posltlonierung der Fläche 

<0> 

- Verzerrung längs aller 3 Achsen 

<1 > 

- Drehung um die Y-Achse 

<2> 

- Drehung um die Z-Achse 

<3> 

- Drehung um die X-Achse 

<4> 

- Verschieben längs der Y-Achse 

<5> 

- Verschieben längs der Z-Achse 

<6> 

- Verschieben längs der X-Achse 

< 7 > 

- Verzerren längs der Y-Achse 

<8> 

- Verzerren längs der Z-Achse 

<9 > 

- Verzerren längs der X-Achse 

< + > 

- dupliziert die aktuelle Fläche 

<* > 

- verbindet die letzte Fläche mit dem Dupli- 


kat 

<L> 

- löscht die momentane Fläche 

< —> 

- beendet die Eingabe der Fläche 

2. Rotation 


a) 2D-Elngabe 


< Feuerknopf > 

- fixiert einen weiteren Eckpunkt 

<CLR> 

- löscht den Bildschirm 

<L> 

- löscht den letzten Eckpunkt 

<C> 

- fügt einen gestrichelten Hilfskreis ein 


oder löscht ihn wieder 

< —> 

- beendet die 2D-Einqabe 

b) 3D-Positionierung des Rotationskörpers 

<0> - <9> 

- siehe »3D-Positionierung der Fläche« 

<L> 

- löscht den Rotationskörper 

<F1 > 

- faßt mehrere Umformungen zusammen. 


ohne das Gebilde erneut zu zeichnen. 


Erst bei erneutem Drücken der Taste wird 


das Resultat sichtbar. 

<—> 

- beendet die 3D-Positionierung 

3. Form 


<0> - <9> 

- siehe »3D-Positionierung der Fläche« 

<F1 > 

- faßt mehrere Umformungen zusammen 

< — > 

- springt zurück in das Eingabemenü 

4. Makro 


a) Makro laden 


b) Makro speichern 


c) Diskettenkommando senden 

d) Makros auf Diskette 


e) Makros Im Speicher 


f) Makro erstellen 


Bildschirm wird zur Eingabe eines Makros gelöscht, ohne da0 die 

Daten des Restkörpers verloren gehen. Zur Konstruktion stehen die 

Funktionen »Fläche«, »Rotation«, »Form« und »Makro einfügen« zur 

Verfügung. In das Gesamtwerk eingebunden wird das Makro mit 

»Makro einfügen« 


g) Makro einfügen 


unter Angabe des Namens kann man bereits Im Speicher existie- 

rende Makros erneut einfügen. Zur Verfügung stehen die gleichen 

Funktionen wie bei »3D-Positionierung des Rotationskörpers« 

h) Alles Erstellte als Makro 

Das Gebilde im Speicher wird künftig als ein Makro verwaltet 

< — > 

- verlaßt das Makro-Menü wieder 

5. Zeichen 


<l> 

- fixiert einen Eckpunkt 

<L> 

- löscht den letzten Eckpunkt 

<CLR> 

- löscht den Bildschirm 

< + > 

- fixiert die momentane Fläche und ermög- 


licht die 3D-Eingabe einer weiteren Fla- 


che 

<C> 

- fügt einen gestrichelten Hilfskreis ein 


oder löscht ihn wieder 

<F> 

- bewirkt einen Sprung zur »3D- 


Positionierung der Fläche« 

<-> 

- beendet die Eingabe von Flächen und 


blendet das Punkteraster wieder aus 

6. Löschen 


a) Flächen durchblättem 

< + > 

- führt zum Aufblinken der nächsten Fläche 
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<-> 

<L> 

<V> 

<F1 > 


<l> 


<-> 


- »blättert« eine Fläche zurück 

- löscht die blinkende Fläche 

- ändert die Verbindungsvorschrift der blin¬ 
kenden Fläche 

- faßt mehrere Operationen zusammen und 
führt sie bei erneutem Drücken der Taste 
aus 

- bewirkt einen Sprung zur »3D- 
Positlonierung der Fläche« 

- beendet das Döschen von Flächen 


b) Makros durchblättern 

< + > - läßt das nächste Makro aufblinken 

< - > - »blättert« ein Makro zurück 

<L> - löscht das Makro und springt Ins Einga¬ 

bemenü 

< V > - ändert die Verbindungsvorschrift des blin¬ 

kenden Makros 

< I > - bewirkt einen Sprung nach »Makro elnfü- 

gen« 

< — > - beendet das Löschen von Flächen 

c) Makro mit bekanntem Namen löschen 

Nach Eingabe des Namens beginnt das entsprechende Makro zu 
blinken und man befindet sich im »Makros durchblättern«-Modus. 

d) Alles löschen 

Das gesamte Gebilde wird im Speicher gelöscht. 

e) Verbindungsvorschrift 

Die laufende Verbindungsvorschrift, die in alle erstellten Flächen 
kodiert wird, kann hier manipuliert werden. 

< — > - bewirkt einen Rücksprung ins Eingabe¬ 

menü 

7. Exlt 

Die Bearbeitungseinheit wird nachgeladen. 

B. Bearbeitungseinheit 

1. Erstellen 

Die Eingabeeinheit wird nachgeladen. 

2. Form 

Siehe »Form« in der Eingabeeinheit 

3. Disk 

a) Objekt laden 

b) Objekt speichern 

c) Diskettenkommando senden 

d) Directory anzeigen 

e) Grafik laden 
<1 > 

< 2 > 

<M> 

<F1 > 

<F2> 

<F3> 

<F4> 

<F5> 

<F6> 

<F7> 

<F8> 

<R> 

<S> 

<-> 

f) Grafik abspeichern 

4. Zoom 

a) Zoomen des Objekts 

< Feuerknopf > 


- schaltet um auf Bildschirm 1 

- schaltet um auf Bildschirm 2 

- schaltet um zwischen Multicolor- und 
HiRes-Darstellung 

- blättert die Strichfarbe vorwärts 

- blättert die Strichfarbe rückwärts 

- blättert die 1. Multicolorfarbe vorwärts 

- blättert die t. Multicolorfarbe rückwärts 

- blättert die 2. Multicolorfarbe vorwärts 

- blättert die 2. Multicolorfarbe rückwärts 

- blättert die Hintergrundfarbe vorwärts 

- blättert die Hintergrundfarbe rückwärts 

- zeichnet einen Rahmen 

- speichert das angezeigte Grafikbild 

- bewirkt einen Rücksprung Ins Hauptmenü 


- fixiert die linke obere Ecke und anschlie¬ 
ßend die rechte untere Ecke des Aus¬ 
schnitts 

- bricht das Zoomen des Objekts ab 

- löscht die Eingabe der ersten Ecke 


<-> 

<L> 

b) Originalgröße 
Macht alle Ausschnittsvergrößerungen rückgängig 

c) Optimaler Ausschnitt 

d) Betrachten der Grafik 

Hier existieren die gleichen Befehle wie bei »Grafik laden« 


e) Zentrieren 

Empfiehlt sich besonders bei Filmen 

< — > -bewirkt Rücksprung Ins Hauptmenü 

5. Darstellen 

Stellt das Gebilde in der gewählten Form dar. Gegebenenfalls wird 
die Schattierungsroutine nachgeladen. 

6. Zusätze 

a) 4fache Auflösung 

b) lOfache Auflösung 

c) Film erstellen 

- a. Drehung des Körpers an/ aus 

- b. Drehung um den Körper an/ aus 

- c. Drehung der Lichtquelle an/ aus 

- d. Verschieben des Fluchtpunktes 

- e. Verschieben der Schnittebene 

- f. Kippen der Z-Achse 

- g. Verändern der Größe 

- h. Berechnung 

- i. Neue Parameter 

< — > -springt zurück in das »Zusätze«-Menü 

d) Film ergänzen 

e) Rahmen zeichnen an/ aus 

< — > -führt zum Rücksprung ins HauptmenO 

7. Modi 

a) Fluchtpunktdarstellung an/ aus 

b) Zeichnen der Schnittlinien an/ aus 

c) Hidden-üne-Modus an/ aus 

d) Schattierungs-Modus an/ aus 

e) Lichtquellen-Koordinaten 

f) Multicolor-Modus an/ aus 

g) Doppelmodus HiRes und Multi an/ aus 

h) Hidden-Line und Schattierung an/ aus 

i) Schnittebene an/ aus 

< — > -führt zum Rücksprung ins Hauptmenü 

C. Film-Routine 

1. Film laden 

2. Einzelnes Bild laden 

3. Diskettenkommando senden 

4. Directory anzeigen 

Ablauf zyklisch/ vor- und rückwärts 

6. Modus HiRes/ Multicolor 

7. Farben ändern 

8. Film ansehen 

D. Hardcopy-Routine 

1. Grafik laden 

2. Hardcopy Ifach 

3. Hardcopy 4fach 

4. Hardcopy lOfach 

5. einfache Dichte/ doppelte Dichte 

6. Druckeranpassung 

7. Diskettenkommando senden 

8. Directory anzeigen 

9. Druckerkommando senden 
10. Druckerparameter prüfen 

E. MPS 801/ 803 Hardcopy-Routine 

1. Grafik laden 

2. Grafik ansehen 

3. Diskettenkommando senden 

4. Directory anzeigen 

5. Hardcopy 

F. MPS 802 Hardcopy-Routine 

1. Einzelne Grafik laden 

2. Grafik ansehen 

3. Diskettenkommando senden 

4. Directory anzeigen 

5. einfache/ doppelte Dichte 

6. Hardcopy Ifach 

7. Hardcopy 4fach 

8. Hardcopy lOfach 





Liste der Einsprungadressen der Maschinenroutinen 

HiRes 1 

Adr. 

Parameter 

Funktion Listing 12 

HiRes 

50181 

.pf.hf.bs 

Löscht Bit-Map bs und initialisiert Farbspeicher mit Punktfarbe pf (0-15) und 
Hintergrundfarbe hf (0-15) 

Copy 

50292 

,bs,ve 

Kopiert die jeweils andere Bit-Map in die Bit-Map bs unter Verwendung der 
Verknüpfung ve : ve = 0 : direktes Kopieren ohne Verknüpfung 
ve = 1 : OR-Verknüpfung 
ve = 2 : EXOR-Verknüpfung 

Plot 

50447 

,x,y,zm,bs 

Setzt einen Punkt mit den Koordinaten x, y in der Grafik bs. 
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Show 

50707 

,bs 

Schaltet den Bildschirm bs ein. 

Block 

50859 

,x 1 ,y 1 ,x 2 ,y 2 ,zm,bs 

Zeichnet ein ausgefülltes Rechteck auf dem Bildschirm bs. Die Koordinaten 
xl, yl geben dabei den Eckpunkt links oben. x2 und y2 den Eckpunkt 
rechts unten an. 

Line 

51049 

,x 1 ,y 1 ,x 2 ,y 2 ,zm,bs 

Zieht eine Linie von x1,y1 nach x2,y2 

Joy 1 

51627 

:j=PEEK(859) 

Ermittelt Stellung des Joysticks (Port 2) und übergibt diese in der Speicher¬ 
stelle 859 (siehe Erläuterungen). 

Flash 

51480 

,v 

Schaltet (Rasterinterrupt-gesteuert) zwischen beiden Bit-Maps hin und her. 
Dabei gilt für die Geschwindigkeit v: 

1 -- 128 -- 255 -- 0 

sehr schnell langsam extrem langsam 

Unflash 

51507 

,bs 

Beendet das Rasterinterrupt-Blinken und schaltet auf Bit-Map bs um (bs 
darf hier nicht 0 sein I) 

Rec 

51800 

,x 1 ,y 1 ,x 2 y 2 ,zm,bs 

Zeichnet ein Rechteck mit den angegebenen Eckpunkten 

Cross 

52008 

,zm,bs 

Zeichnet ein Kreuz und unterteilt so die Grafik in gleichgroße Viertel. 

2D-Punkte 

52103 

,zm,bs 

Legt ein Punktraster mit 10 Pixel Abstand über die Bit-Map bs. 

3D-Punkte 

52176 

,zm,bs 

Füllt den gesamten Bildschirm bs bis auf die Kopfzeile und die Menü- 
Symbole mit einem Punktraster von 5 Pixel Punktabstand. 

Text 1 

52466 

,bs 

Kopiert die CREATE-Kopfzeile in die Bit-Map bs. 

Text 2 

52490 

,bs 

Kopiert die MAIN -Kopfzeile in die Bit-Map bs. 

3D-Menü 

52517 

,bs 

Kopiert das Window mit den Grafik-Symbolen in die Bit-Map bs. 

X-Achsen 

52664 

,zm,bs 

Zeichnet die 3 Projektionen der X-Achse in die Windows der 3D-Ansicht. 

Y-Achsen 

52835 

,zm,bs 

Zeichnet die 3 Projektionen der Y-Achse in die Windows der 3D-Ansicht. 

Z-Achsen 

53045 

,zm,bs 

Zeichnet die 3 Projektionen der Z-Achse in die Windows der 3D-Ansicht. 

HiRes 2 

Adr. 

Parameter 

Funktion Listing 13 

Name 

36878 

,bs 

Kopiert den Programmnamen »GIGA-CAD SYSTEM« mittels OR- 
Verknüpfung in die Bit-Map bs. 

Create 

37021 

- 

Erzeugt diverse Floating-Point-Variablen und legt diese im Speicher ab. 

3D-Line 

38378 

,x1 ,y 1 ,z1 ,x2,y2,z2,zm,bs 

Zeichnet alle 3 Projektionen einer dreidimensionalen Linie von Punkt xl, y 1, 




zl zum Punkt x2, y2, z2 in den entsprechenden Vierteln der 3D-Ansicht. 
Über den Bildschirm hinausragende Linien werden per Strahlensatz abge- 




schnitten, das heißt, die Linien behalten ihren ursprünglichen Winkel bei. 

Joy 2 

39247 

,x,y,f:x=PEEK(2024) + 256*PEEK(2025) 
y=PEEK(2026):a=PEEK(631)) 

Bewegt Cursor-Sprite, siehe Erläuterungen. 

Koord.-Code 

39718 

,x1,y1,z1,q 

Kodiert die 3D-Koordinaten xl.yl.zl in das 3D-Koordinatenarray mit Index 




q (siehe E- jterungen). 

Koord.-Decode 

40052 

,q:x1=USR(1):y1=USR(2):z1=USR(3) 

Dekodiert 3D-Koordinaten (siehe Erläuterungen). 

Fläche-Code 

40206 

,q,i,mn,vb 

Kodiert die Flächenpointer ins Flächenarray (siehe Erläuterungen). 

Fläche-Decode 40344 

,i:q=USR(1):mn=USR(2):vb=USR(3) 

Liest die Flächenpointer aus (siehe Erläuterungen). 

HiRes 3 

Adr. 

Parameter 

Funktion Listing 14 

Scale 

22659 

,zm,bs 

Kopiert den Rotations-Maßstab in die Grafik bs. 

Screenline 

21764 

,x1y1,x2,y2,zm,bs 

Erfüllt die gleiche Aufgabe wie der »Line«-Befehl, schneidet jedoch überste¬ 
hende Linien mit Hilfe des Strahlensatzes ab (beliebiger Bereich der Koordi¬ 
naten!). 

Circle 

21836 

,bs:On/Off-Flag liegt bei 40783 

Zeichnet einen Hilfskreis (siehe Erläuterungen). 

Umformung 

22873 

,mo,zn,dg,d,ei,j,w 

Transferiert das Objekt (siehe Erläuterungen). 

30-Darstell. 

25123 

,zn,dg,zm,bs 

Stellt Objekt in der 3D-Ansicht dar (siehe Erläuterungen). 

3D-Cursor 

25652 

,px,py,pz,zm,bs 

Zeichnet alle 3 Projektionen des Cursor-Kreuzes 

Allclear 

25919 

- 

Löscht 3D-Koordinaten- und Flächen-Pointer-Array. 

Pic Load 

OPEN2,8,2, "NAME,p,r' :SYS26101 ,bs:CLOSE2 

Lädt die Grafik 'NAME' von Diskette in die Bit-Map bs. 

Pic Save 

OPEN2.8.2, "NAME,p,w ' :SYS26068,bs:CLOSE2 

Speichert Bit-Map bs unter 'NAME" auf Diskette. 

Directory 

OPEN2,8,0, "SO " :SYS26134:CLOSE2 

Gibt das Directory der eingelegten Diskette ohne Programmverlust auf dem 




Bildschirm aua 

HiRes 4 

Adr. 

Parameter 

Funktion Listing 15 

Multi 

21839 

,c1,c2,c3,bs:poke53281,c4 

Initialisiert den Farbspeicher mit den Multicolor-Farben c1,c2,c3 und der 
Hintergrundfarbe c4 und schaltet anschließend auf Multicolor-Darstellung 
der Bit-Map bs um. 

Plot Multi 

22114 

,x,y,zm,bs 

»Plot«-Befehl für Multicolor, zm gibt die Farbe an: 




zm = 0 : Hintergrundfarbe (entspricht löschen) 
zm = 1 : Multicolor-Farbe cl 
zm = 2 : Multicolor-Farbe c2 
zm = 3 : Multicolor-Farbe c3 

Viertel Save 

OPEN2,8,2,'name,p,w':SYS22299:CLOSE2 

Speichert den Viertelbildschirm links oben in Bit-Map 2 unter ' NAME ' auf 




Diskette. 

Objekt Load 

22541 

.d,v 

Lädt Objekt von Diskette (siehe Erläuterungen). 

Objekt Save 

22520 

,d,v 

Speichert Objekt (siehe Erläuterungen). 

HiRes 5 

Adr. 

Parameter 

Funktion Listing 16 

Line-Test 

25257 

f x1y1,x2,y2,yw:ax=PEEK(862)+ 

Diese Routine ist nur für HiRes 7 von Nutzen und läßt sich vom Basic aus 



256 * PEEK(863):ex= PEEK(864)+ 
256*PEEK(865) 

nicht einsetzen. 

HiRes 6 

Adr. 

Parameter 

Funktion Listing 17 

Fl-Darstell. 

20480 

,d,fl,ri,a1,a2,a3,h,gr,f1,f2,fk,bs 

Stellt das Objekt dar (siehe Erläuterungen). 
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HiRes 7 

Adr. 

Parameter 

Funktion 

Listing 18 

Schattieren 

14857 

,sl,wq,mc,wm,b,se,ke,d,gr,ec,ed,bs 

Schattiert nach entsprechenden Vorbereitungen das im Speicher befindli- 




che Objekt. 


HiRes 8 

Adr. 

Parameter 

Funktion 

Listing 19 

Macro-Load 

Macro-Save 

21006 

,mn,d,v:d=PEEK(2028)+ 

256 * PEEK(2029) 
v=PEEK(2026) + 256*PEEK(2027) 

Lädt ein Makro von Diskette. 


21301 

,n 1 ,d 

Speichert das Makro nl auf Diskette. 


Movie 

Adr. 

Parameter 

Funktion 

Listing 20 


Movie 


Viertel-Load 

Directory 


Hardcopy 


50284 ,f,mc1o2,c3 


50187 ad 

OPEN2,8,0, "$0":SVS50772:CLOSE2 


Läßt den im Speicher befindlichen Film ablaufen. Die Geschwindigkeit wird 
mit Joystick Port 2 links/rechts gesteuert, mit Feuerknopf wird der Film 
abgebrochen. 

Bedeutung der Parameter: 
f = 0 : zyklischer Ablauf 
f = 1 : Ablauf vorwärts/rückwärts 
m = 0 : HiRes-Modus 
m = 1 : Multicolor-Modus 
cl -c3 : Farben des Films 

Lädt ein Filmbild (Viertelbildschirm) ab der Adresse ad. 

Directory-Funktion analog zu »Directory« in HiRes 3. 


Adr. 


Parameter 


Funktion 


Listing 21 


Hardcopy 

50475 ,320*z,ma,g 

Gibt die Grafikzeile z auf grafikfähigem 8-Nadel-Drucker aus. Einzelheiten 
sowie genaue Bedeutung der Parameter siehe Erläuterungen. 

HiRes 

50192 ,pf,hf,bs 

Analog zu »HiRes« in HiRes 1 mit dem Unterschied, daß die Bit-Map bs nicht 
gelöscht wird. 

Pic Load 

OPEN2.8.2, "NAME,p,r":SYS50442,BS:CLOSE2 

Analog zu »Pic Load« in HiRes 3. 

Show 

50299 ,bs 

Analog zu »Show« in HiRes 1. 

Directory 

OPEN2,8,0, "$0":SYS50901:CLOSE2 

Directory-Funktion analog zu »Directory« in HiRes 3. 


Tabelle 1. Alle möglichen SYS-Befehle im Überblick 


Speicherbelegung In den einzelnen Programmteilen 

Cad.Main 

S033c - S03fb 

Kassettenpuffer (temporärer Speicher für 

$0800 - S4fff 

Maschinenprogramme). 

Basic-Speicher (Cad.Main) 

$5000 -553ca 

HiRes 6 

$5500 - $6665 

HiRes 3 

$554c -$584a 

HiRes 4 (Overlay) 

$67d0 - $6cff 

Flächenpointer - Array (0 bis 421) 

$6d00 - $8bff 

3D-Koordinaten - Array (0 bis 1321) 

$8c00 - $8ff7 

Farbspeicher für Bit-Map 1 

S8ff8 - $8fff 

Sprite-Pointer 1 

$9000 - $9e5f 

HiRes 2 

S9e87 - $9fff 

Floating-Point-Variablen für Maschinenprogramme 

SaOOO - Sbf40 

Bit-Map 1 

$b(80 -$bfbf 

Sprite-Cursor 1 

$c000 - $c3f7 

Farbspeicher für Bit-Map 2 

$c3f8 - Sc3ff 

Sprite-Pointer 2 

$c400 - $cfcc 

HiRes 1 

$d000 -Sdb59 

Grafikdaten 

$e000 - Sff40 

Bit-Map 2 

$lf80 - Sffbf 

Sprite-Cursor 2 

Cad.Create 

$033c -$03fb 

Kassettenpuffer (temporärer Speicher für 

$0800 - S51ff 

Maschinenprogramme). 

Basic-Speicher (Cad.Create) 

$5200 - S544d 

HiRes 8 

$5500 - $6665 

HiRes 3 

$67d0 -56clf 

Flächenpointer - Array (0 bis 421) 

$6d00 - S8bff 

30-Koordinaten - Array (0 bis 1321) 

$8c00 - $8ff7 

Farbspeicher für Bit-Map 1 

$8ff8 - $8fff 

Sprite-Pointer 1 

$9000 - $9e5f 

HiRes 2 

$9e87 -$9fff 

Floating-Point-Variablen für Maschinenprogramme 

SaOOO - $bf40 

Bit-Map 1 

$bf80 - Sbfbf 

Sprite-Cursor 1 

$c000 - $c3f7 

Farbspeicher für Bit-Map 2 

$c3f8 -$c3ff 

Sprite-Pointer 2 

Sc400 - Scfcc 

HiRes 1 

SdOOO - $db59 

Grafikdaten 

$e000 - Sff40 

Bit-Map 2 

$H80 - Sffbf 

Sprite-Cursor 2 

Cad.Paint 

$033c - S03fb 

Kassettenpuffer (temporärer Speicher für 

$0800 - $37ff 

Maschinenprogramme). 

Basic-Speicher (Cad.Paint) 


[sp. • rbelegung 

n den einzelnen Programmteilen 

$3800 -S48bb 

HiRes 7 

$4940 - S49d6 

Floating-Point-Varlablen für Schattierung 

$49dc -$4d27 

Maxima/Minima-Array, gibt die Extrempunkte der einzel¬ 
nen Flächen an. 

$4d28 - $4e59 

Hilfsarray für Schattierung 

S4e5a -S4fff 

Array: Cosinus (*192) des Winkels zwischen 
Normalenvektor einer Räche und Lichtquellenvektor, bei 
Schattierung benötigt 

$5000 - $54ff 

Tiefen-Array, gibt die Tiefe des vordersten an dieser 

Stelle geplotteten Punktes an 

$5500 - $6665 

HiRes 3 

$554c - $584a 

HiRes 4 (Overlay) 

$62a6 - $64d4 

HiRes 5 (Overlay) 

$67d0 - $6cff 

Flächenpointer - Array (0 bis 421) 

$6d00 - $8bff 

3D-Koordinaten - Array (0 bis 1321) 

S8c00 - $8ff7 

Farbspeicher für Bit-Map 1 

S8ff8 - $8fff 

Sprite-Pointer 1 

$9000 - $9e5f 

HiRes 2 

$9e87 -$9fff 

Floating-Point-Variablen für Maschinenprogramme 

SaOOO - $bf40 

Bit-Map 1 

Sbf80 -Sbfbf 

Sprite-Cursor 1 

ScOOO - $c3f7 

Farbspeicher für Bit-Map 2 

$c3f8 -$c3ff 

Sprite-Pointer 2 

$c400 - Scfcc 

HiRes 1 

SdOOO -$db59 

Grafikdaten 

SeOOO - Sff40 

Bit-Map 2 

$ff80 - Sffbf 

Cad.Movie 

Sprite-Cursor 2 

$033c - $03fb 

Kassettenpuffer (temporärer Speicher für 
Maschinenprogramme). 

$0800 - $17ff 

Basic-Speicher (Cad.Movie) 

$1800 - $bfff 

Bilder 1 bis 21 

ScOOO -$c3f7 

Farbspeicher für Bit-Map 

$c400 - $c6a3 

Movie.Cad.Obj 

$c800 -Sdfff 

Bilder 22 bis 24 

SeOOO - Sff40 

Bit-Map 

Cad.Hardcopy 


$033c -$03fb 

Kassettenpuffer (temporärer Speicher für 
Maschinenprogramme). 

$0800 - $8bff 

Basic-Speicher (Cad.Hardcopy) 

$8c00 - $8ff7 

Farbspeicher für Bit-Map 1 

SaOOO - $bf40 

Bit-Map 1 

ScOOO -Sc3f7 

Farbspeicher für Bit-Map 2 

$C400 -$c724 

Hardcopy.Cad.Obj 

SeOOO - $ff40 

Bit-Map 2 


Tabelle 2. Speicherbelegung von »Giga-CAD« 
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Eckpunkt: Q=Q +1 


Flache: 
1=1 +1 


Schattierungsroutine 


Anfangszeile LA: EC - LA 
Anzahl der Grafikspalten: GG=320'Gröfle (GR)-1 


Gesamtes T-Array (= Tiele des Spaltenpunktes X der Heile LA) 
durch Extremwerte markieren: T (x) = - 8000 


Schleifenvariable 1:1 = 0 


Extrema der F ache lesen 


Zählvariable für Eckpunkte: SD = 0 
Anfang (XC), Ende (XD) & Verbindungsvorschrift 
(VB) der Fläche I lesen 


Schleifenvariable für die Eckpunkte der Fläche I: Q = XC 


Anfangs- 8 Endkoordinaten einer Linie lesen 
(festgelegt durch die Eckpunkte Q 8 Q +1) 
Anfangspunkt XA, YA. ZA / Endpunkt XB. YB. ZB 


Flag für die letzte Linie einer Fläche: U8 = 0 
Nummer der Linie: QU = Q - XC 


nein 


XA 

XB 

YA 

8 YB 

ZA 

I ZB 

vertauschen 


Koordinaten der Linie 
vom ersten (XC) bis zum 
letzten Eckpunkt (XD-1) 
lesen. 

Nummer der letzten Linie: 
QU=QU+1 
Flag für die 
letzte Linie: 1 UB 


Zeilen: LA=LA +11 


Flußdiagramm 1. Hauptschleife. Hier werden die Flächen 
jeder Grafikzeile überprüft. 



Q 

»LINE-TEST«: Ermittelt die Schnittpunkte der Linie 
XA/YA - XB/YB mit der Grafikzeile LA 


WE= (ZA - ZB) n Y1=(ZA+ZB)/2 

Y1 = ZA+WE- (LA-YA) Y2 ” Y1 

Y2 = Y1 ~I- 


Flußdiagramm 2. 

Hier wird der Schnitt¬ 
punkt einer Randlinie 
mit einer Bildschirm¬ 
zeile berechnet. 


T = (YA - YB) 
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Flag lür Flandlinien: ZN = 1 


X1/Y1 mit XZ/Y2 
vertauschen 


Steigung: WE - (Y2 - Y1)/T 
•(Multicolor-Flag MC +1) 


Startwert der Tiefe: TR - Y1-WE 
Startwert der Schleife: S = XI 


nein 


Tiefe des Punktes in Spalte S: 
TR - TR + WE 
X-Koordinate des Punktes: 

SR = I SR/(1 + MC) I 


Flußdiagramm 5. 
Die Routine 
verbindet die 
Schnittpunkte 
miteinander 



ia 


Flußdiagramm 6. Unter Beachtung der Schattierungs¬ 
parameter wird ein Punkt gesetzt. 

(Fortsetzung Seite 36) 
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PL = 50447 


ZM = ZM + FC 
PL = 22114 


SYS PL. SR, LA. ZM. BS 
Ein Punkt wird gesetzt 


FA < F (BI.B0) 


SYS 22114 
SR, LA, ZM, 2 
Multlcolor-Punkt 
setzen 


SYS 50447, SR, LA, ZM, 2 
Punkt setzen 


BS = INT (SR/320) + 1 


SR = SR/2 
Bl = SR AND 7 

1 


3 


winke FA erneut esen 


- 1 - 

FC = INT (FA/63): FA = FA - FC * 63 






1 










FluBdiagramm 6. (Schluß) 


5 REM ********************************** 


10 REM * * 

15 REM * Gl GA - CAD GRAPH IC-SYSTEM * 

20 REM • • 

25 REM *---* 

30 REM * 'LOADER- * 

35 REM *-* 

40 REM * WRITTEN IN J1986 BY * 

45 REM * STEFAN VILSMEIER & * 

50 REM * STEFAN LIPPSTREU * 


55 REM ********************************** 
60 : 

65 : 

70 A=PEEK(836)+1:PQKE 836,A:IF A=1 GOTO 12 
0 

75 IF A=1 THEN LOAD"HRG.CAD.OBJ",8,1 
80 IF A=2 THEN SYS 49152: GOSUB 145: LOAD "HI 
RES1.CAD.OBJ“,8,1 

85 IF A=3 THEN SYS 50181,11,15,1:LOAD"HIRE 
S2.CAD.OBJ",8,1 

90 IF A=4 THEN LQAD"HIRES3.CAD.OBJ",8,1 
95 IF A=5 THEN SYS 25919: LOAD"CRSRl “ ,8,1 
100 IF A=6 THEN L0AD"CRSR2",8,1 
105 POKE 836,0 

110 POKE 646,PEEK(53281):PRINT"(HOME>LOAD" 
CHR*(34)"CAD.MAIN"CHR*(34)",8" 

115 PRINT"T4D0WNJRUN:“:POKE 631,19:POKE 63 
2,13:POKE 633,13:P0KE 198,3:NEW 
120 POKE 53280,15:POKE 53281,15:POKE 646,1 
1:POKE 53263,0:PRINT CHR*(14)CHR*(8) 
125 POKE 55,0:POKE 56,85:CLR:A=1 
130 PR1NT ” <CLR » 11DQWN »3SPACE >YVYYYYYYVYYVV 

135 PRINT" C8SPACE>£IGA-£&S £1-0 LOADING. . . 


<042> 
<059> 
<241 > 
<069> 
<035> 
<013> 
<045> 
<055> 
<129> 
<219> 
<092> 
<036> 
<041 > 

<107> 

< 154> 

< 142> 

<076> 

<250> 

<074> 

<039> 

< 164> 

<152> 

<252> 

<243> 
<211 > 

<046> 

<147> 


140 PRINT" CBSPACE> pp ' ppppp - pVpVp - pVp ' p ' pWpp ' p ' pV 

":GOTO 75 <140> 

145 B=49153:FOR X=B+900 TO B+926:POKE X,0: 

NEXT:POKE B+902,1 <255> 

150 POKE B+919.255:RETURN <064> 


Listing 1. Lader zu »Giga-CAD« 


5 REM ********************************** <042> 

10 REM * GIGA-CAD GRAPHIC-SYSTEM * <236> 

15 REM * 'CAD.MAIN - * <0B3> 

20 REM * BY S. VILSMEIER & S. LIPPSTFJEU * <141> 

25 REM ********************************** <062> 

30 : <006> 

35 : <011> 

40 A=PEEK(836)+1:POKE 836,A:IF A=1 THEN PO 

KE 55,0:POKE 56,80:CLR:A=1 <151> 

45 IF A=1 THEN LOAD"HIRES4.CAD.OBJ",8,1 <174> 
50 IF A=2 THEN L0AD"HIRES6.CAD.OBJ",8,1 <0B3> 
55 SYS 50707,l:POKE 53280,14:DIM B*(63):IF 

D=0 THEN GOSUB 3060:POKE 808,237 <221> 

60 CLOSE 1:OPEN 1,8,15,“U9":CLOSE 1:SYS 37 

021 <009> 

65 : <041> 

70 : <046> 

75 REM ********************************** <112> 

80 REM * VARIABLEN / SYS-ADRESSSEN * <146> 

85 REM ********************************** <122> 

90 : <066> 

95 N=50181:CO=50292:E=50707:G=50B59:LI=510 

49:J0=51627:H2=1 <176> 

100 RE=51800:T2=52490:MU=52517:CP=36878:J2 

=39247:Dl=40052:C2=40206 <099> 

105 L4=21764:UM=22873:ML=21839 <045> 

110 FR=51480:UF=51507:F(1> =11:F(2)=12:F(3) 

=0:F(4)=15 <190> 

115 IF PEEK(53263)=1 AND L=1 THEN B=l:GOSU 
B 2475:SYS CO,2,0:POKE 53263,0:GOTO 12 
5 <220> 

125 L=1:RI=0:SYS G,160,190,319,199,0,2:SYS 

T2,2:IF D=1 THEN SYS 25919:V=0:K=0 <012> 

130 SYS CP,2:SYS RE,0,0,319,199,1,2:SYS CO 

, 1,0 < 200 > 
135 POKE 192,0:CLOSE l:OPEN 1,8,15,"XR+":P 

RINT#1,"U9":CLOSE l:GOTO 525 <097> 

140 : <116> 
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145 : <121> 

150 REM ********************************* <025> 

155 REM * MANIPULATIONEN BEI FILMEN * <067> 

160 REM ********************************* <035> 

165 5 <141> 

170 IF A=1 AND DROB, THEN DR=0:GOTO 420 <195> 

175 IF A=3 AND DLO0 THEN DL=0:GOTO 420 <129> 

180 IF A—2 AND DU<>0 THEN DU=0:GOTO 420 <177> 

185 INPUT”{CLR,2D0WN,3RIGHT>DREHUNG UM £,X 

, ODER L-flCHSE“;A*:C=ASC<A*)-B7 <250> 

190 IF A=1 THEN DR=C:DU=0:GOTO 410 <066> 

195 IF A=3 THEN DL=C:GOTO 410 <168> 

200 IF A=2 THEN DU=C:DR=0:GOTO 410 <015> 

205 PRINT“{CLR,2D0WN,3RIGHT > .SUMMANDEN DES 

ELUCHTPUNKTES{2SPACE>5,15,5"; <124 > 

210 INPUT"{HOME,2DOWN,30RIGHT >“;KX,KY,KZ:G 

OTO 410 <008> 

215 PRINT"{CLR,2D0WN,3RIGHTJÄERSCHIEBUNGSF 

AKTOR{5SPACE >5.5" <215> 

220 INPUT"{UP,24RIGHT >“;KF::KF=-KF:GOTO 41 

0 <166> 
225 PRINT"{CLR,2D0WN,3RIGHT>NEIGUNG DER Zr 

Z1CHSE{4SPACE>—30" <063> 

230 INPUT"{UP,24RIGHT>";ZV::GOTO 410 <204> 

235 PRINT"{CLR,2D0WN,3RIGHT>XERGR0ESSERUNG 

SFAKT0R{3SPACE>1.2“ <204> 

240 INPUT"{UP,25RIGHT>";VF:GOTO 410 <119> 

245 GOSUB 1015: IF A*O“J"G0T0 410 <185> 

250 A=49153:POKE A+940,DR:POKE A+941,DL:W= 

KX:1=942:GOSUB 2815 <123> 

255 W=KY:GOSUB 2815:W=KZ:GOSUB 2815 <156> 

260 W=VF:GOSUB 2815 <136> 

265 W=KF:GOSUB 2815:L=.5:POKE A+952,DU:GOT 

O 2400 <032> 

270 DR=0:DL=0:KX=0:KY=0:KZ=0:VF=0:KF=0:GOT 

0 420 <071> 

275 : <253> 

280 : < 002 > 
285 REM ********************************* <162> 

290 REM * MENUE: ZUSAETZE * <156> 

295 REM ********************************* <172> 

300 : <022> 

305 GOSUB 615:PRINT"{SPACE,RVSON,14SPACE>Z 

USAET ZE{16SPACE,CTRL—O>" <145> 

310 GOSUB 620 <072> 

315 PRINT"{HOME,7DOWN,8RIGHT>fl. 4—FACHE flU 

FLOESUNG" <006> 

320 PRINT"{DOWN, 8 RIGHT>S. 10-FACHE flUFLOES 

UNG" <173> 

325 PRINT"{DOWN, 8 RIGHT>£. £ILM ERSTELLEN" <068> 
330 PRINT"{DOWN, 8 RIGHT>2. £ILM ERGAENZEN" <064> 
335 PRINT"{DOWN,BRIGHT>£. NAHMEN ZEICHEN A 

N ";:IF RN=0 THEN PRINT"{3LEFT>AUS" <133> 
340 GOSUB 1020 <106> 

345 GOSUB 635: IF A*="*-"THEN SYS E,l:GOTO 5 

25 <217> 

350 IF A<1 OR A>5 GOTO 345 <136> 

355 ON A GOTO 360,370,410,480,490 <150> 

360 GOSUB 1015:IF A*<>"J"GOTO 305 <080> 

365 L=2:RI=0:WM=0:BS=0:MC=0:GOTO 2395 <136> 

370 GOSUB 1015:IF A*< >"J"GOTO 305 <090> 

375 L=2:RI=1:WM=0:BS=0:MC=0:GOTO 2395 <148> 

380 : <102> 

385 : <107> 

390 REM ********************************* <011> 

395 REM * MENUE: FILM * <232> 

400 REM ********************************* <021> 

405 : <127> 

410 GOSUB 615:PRINT"{SPACE,RVSDN,11SPACE>£ 

ILM ERSTELLEN{13SPACE,CTRL-0>" <066> 

415 GOSUB 620 <177> 

420 PRINT"{HOME,4D0WN,4RIGHT>fl. DREHUNG DE 
S 40ERPERS AN “;:IF DR=0 THEN PRINT"{3 
LEFT>AUS”; <115> 

425 PRINT:PRINT"{DOWN,4RIGHT>S. 3REHUNG UM 
DEN JU3ERPER AN ";:IF DU=0 THEN PRINT" 

{3LEFT >AUS"; <1B8> 

430 PRINT:PRINT"(DOWN,4RIGHT>£. 2REHUNG DE 
R LICHTQUELLE AN ";:IF DL=0 THEN PRINT 
“{3LEFT >AUS“; <099> 

435 PRINT:PRINT“{DOWN, 4RI GHT >21. VERSCHIEBE 

N DES £LUCHTPUNKTES“ <226> 

440 PRINT"{DOWN,4RIGHT>£. VERSCHIEBEN DER 

SCHNITTEBENE" <048> 

445 PRINT"{DOWN,4RIGHT>£. LIPPEN DER £-ßCH 


SE" <199> 
450 PRINT"{DOWN,4RIGHT>£. flENDERN DER £ROE 

SSE“ <011> 
455 PRINT"{DOWN,4RIGHT>ü. BERECHNUNG" <056> 
460 PRINT“{DOWN,4RIGHT>i. HEUE £ARAMETER" <049> 
465 GOSUB 635: IF A*="t-“GOTO 305 <024> 
470 IF A<1 OR A>9 GOTO 345 <00B> 


475 ON A GOTO 170,170,170,205,215,225,235, 
245,270 

480 GOSUB 1015: IF ASO"J"GOTO 305 
485 L=3:RI=0: WM=0 :GOTO 2395 
490 RN=1—RN:GOTO 315 
495 : 

500 : 

505 REM ********************************* 

510 REM * JOYSTICK-ABFRAGE HAUPTMENUE * 

515 REM ********************************* 

520 : 

525 0=160:P=10:POKE 53280,14:DS=0:FI=0 
530 GOSUB 1030: IF PEEK<631)00 GOTO 530 
535 IF P>9 GOTO 530 
540 IF 0<57 GOTO 2970 
545 IF 0>97 AND 0<126 GOTO 1760 
550 IF 0>28B GOTO 1105 
555 IF 0>126 AND 0<165 GOTO 1360 
560 IF D=1 GOTO 530 
565 IF 0>57 AND 0<97 GOTO 2230 
570 IF 0>165 AND 0<233 GOTO 2395 
575 IF 0>234 AND 0<287 GOTO 305 
580 : 

585 : 

590 REM ********************************* 

595 REM * DIVERSE UNTERPROGRAMME * 

600 REM ********************************* 

605 : 

610 GOTO 530 

615 PRINT" {CLR,GREY 1 ,SPACE 

620 FOR 1=1 TO 22:PRINT" ^{36SPACE>R n :NEXT <229> 
625 PR I NT " {HOME , 24D0WN , SH IFT-SPACE >WYYYYY 
TTYYWYWWYYYYyTYYTYTYv’YWTY {HOME > “ 


:RETURN <230> 

630 SYS E,0:PRINT CHR*<14)CHR*(8)"{HOME,GR 

EY 1>“;:RETURN <063> 

635 GET A*:IF Aä=""GOTO 635 <000> 

640 A=ASC<A*>-64:RETURN <094> 

645 SYS L4,0,0,0,199,1,1:SYS L4,319,0,319, 
199,1,2:IF FI=1 THEN SYS L4,0,0,319,0, 

1,3 <190> 

650 RETURN <200> 

655 : <123> 

660 : <128> 
665 REM ********************************* <032> 

670 REM * DISK - STATUS * <029> 

675 REM ********************************* <042> 

680 : <148> 

685 CLOSE 1 <1BB> 

690 OPEN 1,B,15:INPUT#1,F,F*,T,S:IF F=0 TH 

EN RETURN <248> 

695 GOSUB 1020:PRINT:PRINT"{2D0WN,3RIGHT,R 

VSON>£ISKETTENFEHLER :" <216> 

700 PRINT" {2D0WN,2RIGHT>"F 11 , "F*" , "T" , "S: IF 

DS=0 AND FI THEN RETURN <137> 

705 CLOSE 2:PRINT#1,"U9":CLOSE 1:IF DS=0 T 

HEN GOSUB 635:RETURN <052> 

710 PRINT"{2D0WN,3RIGHT »JOCH EIN VERSUCH{2 

SPACE>(J/N) ?« <134> 

715 GOSUB 635:IF A*="N"THEN F=99:PRINT"{CL 

R>":RETURN <124> 

720 IF A*="J"THEN F=1:PRINT"<CLR>":RETURN <116> 
725 GOTO 715 <113> 

730 : <198> 

735 : <203> 

740 REM ********************************* <107> 

745 REM * RAHMEN-BLINKEN BEI 'ZOOM' * <236> 

750 REM ********************************* <117> 

755 : <223> 

760 SYS L4,R,Q,0—1,Q,2,1:SYS L4,0,Q,0,P-1, 

2,1 <183> 

765 SYS L4,0,P,R+1,P,2,1:SYS L4,R,P,R,Q+1, 

2,1:PM=1-PM:RETURN <177> 

770 W=W+1: IF JIOJ THEN W=1 <185> 

775 IF W>20 THEN W=20 <058> 
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064 


780 J1=J:P=P+W*(J=1)-W/M*(J=3)-W*(J=5)+W/M 


1090 

REM * DARSTELLUNGS - 'MODI' * 

<000> 

* (J—7) 

< 117> 

1095 

REM ********************************* 

<210> 

7B5 Q=0+W*M* <J=1)-W* ( J=3)-W*M*(J=5)+W*<J=7 


1100 

■ 

<060> 

):RETURN 

<059> 

1105 

YU=0:GOSUB 615:PRINT"{SPACE,RVSON,9SP 


790 : 

<004> 


ACE>3ARSTELLUNGS - flDDI£10SPACE,CTRL- 


795 : 

<009> 


0>" 

< 186> 

800 REM ********************************* 

< 190> 

1110 

GOSUB 620 

<110> 

805 REM * ANGEWAEHLTES SYMBOL * 

<213> 

1115 

PRINT"£HOME,4D0WN,3RIGHT>fl. ELUCHTPUN 



< 179> 


KTDARSTELLUNG AN ";:IF FL=0 THEN PRIN 


B15 : 

<029> 


T"{3LEFT>AUS"; 

<064> 

820 IF O<50 THEN R=3:RX=49:Ql=l:GOTO B35 

<124> 

1120 

PRINT:PRINT"LDOWN,3RIGHT >£. Z£ICHNEN 


825 IF O<100 THEN R=50:RX=99:Ql=3:GOTO 835 

< 166> 


DER SCHNITTLINIEN AN 

< 130> 

830 R=100:RX=156:Q1=2 

< 102> 

1125 

IF SL=0 THEN PRINT"£3LEFT>AUS"; 

<004> 

835 IF P<135 THEN Q=102:RY=134:Q2=2:GOTO 8 


1130 

PR I NT : PR I NT " £DOWN, 3RI GHT >£. ÜIDDEN—i.1 


50 

<237> 


NE flDDUS AN ";:IF HD=0 THEN PRINT”{3L 


840 IF P<165 THEN Q=135:RY=164:Q2=l:GOTO 8 



EFT>AUS"; 

< 133> 

50 

<089> 

1135 

PRINT: PRINT" {DOWN,3RIGHT>Jä. SCHATTIER 


845 Q=165:RY=196:Q2=0 

< 173> 


UNGS-flODUS AN ";:IF WE=0 THEN PRINT“{ 


850 C=Q2*3+01:RETURN 

<226 > 


3LEFT>AUS"; 

<034> 

855 SYS G,R,Q,RX,RY,2,B:RETURN 

<226> 

1140 

PR I NT : PR I NT " {DOWN, 3RI GHT >£. i.1 CHTQUEL 


860 : 

<074 > 


LEN-ÄOORDINATEN" 

< 151 > 

865 : 

<079> 

1145 

PRINT"{DOWN,3RIGHT>£. flULTICOLOUR-flOD 


870 REM ********************************* 

<239> 


US AN ";:IF MC=0 THEN PRINT“£3LEFT>AU 


875 REM * VERFORMUNG PER JOYSTICK * 

<086> 


S"; 

<064> 

B80 REM ********************************* 

<249> 

1150 

PRINT:PRINT"{D0WN,3RIGHT>£. SOPPELMOD 


• 885 : 

<099> 


US ÜIRES & flULTI AN 

<142> 

890 IF BQ=1 AND EI=0 THEN BQ=0:B=2:GOSUB 8 


1155 

IF WM=0 THEN PRINT"£3LEFT>AUS"; 

<082 > 

55 

< 169> 

1160 

PR I NT: PR I NT " £DOWN, 3RI GHT >ü. ÜI DDEN—i.. 


895 SYS JO:J=PEEK(859) 

<202> 


& SCHATTIERUNG AN ";:IF BS=0 THEN PR 


900 IF J=0 GOTO 895 

<092> 


INT"{3LEFT >AUS"; 

<233> 

905 IF J=128 GOTO 920 

<076> 

1165 

PRINT:PRINT"{DOWN,3RIGHT >£. SCHNITTEB 


910 IF INT(J/2)=J/2 GOTO 895 

<021 > 


ENE AN ";:IF SE=0 THEN PRINT"£3LEFT>A 


915 J=INT(J/2)+1:RETURN 

<074> 


US“; 

<255> 

920 B=2:GOSUB 855:C=0:BQ=1:RETURN 

<217> 

1170 

GOSUB 1020 

< 174> 

925 : 

< 139> 

1175 

GOSUB 635: IF A$="t-"THEN SYS E,1:G0T0 


930 : 

< 144> 


525 

<029> 

935 REM ********************************* 

<04B> 

11B0 

IF A<1 OR A>9 GOTO 1175 

<033> 

940 REM * VERFORMUNG UEBER TASTATUR * 

<028> 

1185 

ON A GOTO 1195,1190,1215,1220,1225,12 


945 REM ********************************* 

<058> 


45,1250,1265,1255 

< 186> 

950 : 

< 164> 

1190 

SL=1—SL:GOTO 1115 

<054> 

955 IF A<49 OR A>57 THEN C=0:RETURN 

< 142> 

1192 

• - '_= 1-FL: IF FL=0 GOTO 1280 

<140> 

960 A=A—48:XA=INT(C9-A)/3)*3:XB=A-INT((A-l 


1200 

l-R I NT " {CLR , 2D0WN , 3RI GHT > FLUCHTPUNKT—£ 


>/3>*3 

<034> 


OORDINATEN:" 

< 148> 

965 XB=3+(XB<2)*2+(XB>2)*1:C=XA+XB:EI=1:GO 


1205 

PRINT“{DOWN,3RIGHT >Ä,i,2£3SPACE >"STR* 


SUB 630:GET A* 

< 171 > 


(Al)","STR*(A2)","STR*(A3):YU=1 

<210> 

970 IF 06 THEN INPUT"£CLR,2DOWN,3RIGHT>3R 


1210 

INPUT"{UP,9RIGHT >";A1,A2,A3:GOTO 1280 

<223> 

EHWINKEL C3SPACE >90 C4LEFT>";W:RETURN 

<017> 

1215 

HD=1—HD:GOTO 1305 

<0B6> 

975 IF 03 THEN INPUT"{CLR,2D0WN,3RIGHT>yE 


1220 

WQ=1—WQ:GOTO 1310 

< 114> 

RSCHIEBUNGSSUMMAND {3SPACE> 50 C4LEFT >";W 


1225 

PRINT"{CLR,2D0WN,3RIGHT>£OORDINATEN D 


:RETURN 

<240> 


ER LICHTQUELLE:" 

< 152> 

980 INPUT"£CLR,2D0WN,3RIGHT > ÜERZERRRUNGSFA 


1230 

PRINT"{DOWN,3RIGHT >Ä,L,££3SPACE >"WX"£ 


KTOR <3SPACE>1.5 {5LEFT>■;WlRETURN 

< 1B4> 


LEFT >,"WY"£LEFT>,"WZ 

< 115> 

985 : 

< 199> 

1235 

INPUT“£UP,9RIGHT>";WX,WY,WZ:IF WX=0 A 


990 : 

<204> 


ND WY=0 AND WZ=0 GOTO 1235 

<193> 

995 REM ********************************* 

< 108> 

1240 

GOTO 1105 

<245> 

1000 REM * DIVERSE UNTERPROGRAMME II. * 

<12B> 

1245 

MC=1—MC:GOTO 1280 

< 177> 

1005 REM ********************************* 

< 11B> 

1250 

WM=1—WM:GOTO 1290 

<093> 

1010 : 

<224> 

1255 

SE=1—SE:IF SE GOTO 1270 

<076> 

1015 PRINT"{HOME,22D0WN,4RIGHT,RVSON,SPACE 


1260 

GOTO 12B0 

<217> 

>£IND SIE SICHER ?{SPACE,RVOFFV:GOSU 


1265 

BS=1—BS:GOTO 1295 

<005> 

B 635:RETURN 

< 176> 

1270 

YU=1:PRINT"{CLR,2D0WN,3RIGHT >11EFE DE 


1020 IF PEEK(53272)023 THEN GOSUB 630 

<117> 


R SCHNITTEBENE:" 

<241 > 

1025 RETURN 

<067> 

1275 

PRI NT" {DOWN, 3RI GHT >£{3SPACE > '• STR* (-KE 


1030 SYS J2,0,P,0:0=PEEK(2024)+256*PEEK(20 



>:INPUT“£UP,5RIGHT >";KE:KE=-KE:GOTO 1 


25):P=PEEK(2026):RETURN 

<039> 


280 

<005> 

1035 CLOSE 1 

<030> 

1280 

3 

<242> 

1040 OPEN 2,8,2,N1*+LEFTS(NS,10)+STR*(FI*2 


1285 

IF MC THEN WM=0:BS=0 

<237> 

+(B-2>)+",P,W“:GOSUB 690:IF F=0 GOTO 


1290 

IF WM THEN MC=0:BS=0 

<091 > 

1055 

< 1B8> 

1295 

IF BS THEN MC=0:WM=0 

<096> 

1045 IF F=99 THEN CLOSE 2: GOSUB 3U5:RETUR 


1300 

IF SE OR MC OR WM OR BS THEN WQ=1:HD= 


N 

<222> 


1 

<025> 

1050 CLOSE 1:CLOSE 2:QPEN 1,8,15,"S:"+N1S+ 


1305 

IF HD=0 THEN WQ=0 

<080> 

LEFTS(N*,10)+STR*(FI*2+(B-2)):GOTO 10 


1310 

IF WQ=0 THEN MC=0:WM=0:SE=0:BS=0 

<036> 

35 

< 157> 

1315 

IF WQ THEN HD=1 

<102> 

1055 SYS 26068,B:CLOSE 2:GOSUB 3115:RETURN 

< 103> 

1320 

IF YU GOTO 1105 

<046> 

1060 EI=1:GOSUB 630:GET A*:INPUT"{CLR,2D0W 


1325 

GOTO 1115 

<108> 

N,3RIGHT>Ü£RZERRUNGSFAKT0R{3SPACE>1.5 


1330 

5 

<036> 

<5LEFT >“;W 

<053> 

1335 

: 

<041 > 

1065 SYS RE,2,101,157,197,0,1:SYS UM,1,0,1 


1340 

REM ******************************** 

<120> 

,D,1,0,W:SYS UM,2,0,1,D,1,0,W:RETURN 

< 136> 

1345 

REM * MENUE -ZOOM 1 * 

< 132> 

1070 SYS E,0:GOTO 2970:REM - DARSTELLEN' 

< 118> 

1350 

REM ******************************** 

< 130> 

1075 : 

<035> 

1355 

: 

<061 > 

1080 : 

<040> 




1085 REM ********************************* 

<200> 
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1360 SYS 6,127,0,165,9,2,1 <091> 

1365 GOSUB 615:PRINT"{SPACE,RVSON,12SPACE> 

ZOOM - BENUE{14SPACE,CTRL—0 >" <230> 

1370 60SUB 620 <116> 

1375 PRINT"{HOME,5D0WN,7RIGHT>fl. ZOOMEN DE 

S fiBJEKTS" <037> 

13B0 PRINT"{DOWN,7RIGHTIB- ARGINALGROESSE" <1B1> 

13B5 PRINT"{DOWN,7RIGHT>£. .OPTIMALER flUSSC 

HNITT" <010> 

1390 PRINT"{DOWN,7RIGHTJB. BETRACHTEN DER 

£RAFIK“ <145> 

1395 PRINT"{DOWN,7RIGHT>£. ZENTRIEREN":GOS 

UB 1020 <242> 

1400 GOSUB 635s IF A*="«-"THEN SYS E, 1 :SYS G 

,127,0,165,9,2,lsGOTO 525 <118> 

1405 IF(A<1 OR A>5)OR(A< >4 AND D=l)GOTO 14 

00 <080> 

1410 ON A GOTO 1445,1550,1585,1640,1675 <001> 

1415 : <121> 

1420 : <126> 

1425 REM ******************************** <205> 

1430 REM * 'ZOOMEN DES OBJEKTS’ * <144> 

1435 REM ******************************** <215> 

1440 : <146> 

1445 SYS E,1:0=160:P=100:M=B/5iPM=0 <142> 

1450 GOSUB 1030 <232> 

1455 IF(PEEK(631>>=95 GOTO 1545 <223> 

1460 SYS JOsIF PEEK<859>=128 GOTO 1460 <163> 

1465 R=OsQ=P <217> 

1470 GOSUB 760:SYS JO:J=PEEK(859):GET A*:I 

F A*< >""GOTO 1525 <061> 

1475 IF J=0 OR J>128 THEN W=0:GOTO 1470 <190> 

1480 IF PM THEN GOSUB 760 <222> 

1485 IF J=128 GOTO 1505 <227> 

1490 IF INT(J/2)=J/2 GOTD 1470 <123> 

1495 IF D<R THEN O=R:P=G:W=0 <254> 

1500 GOSUB 770:GOTO 1470 <150> 

1505 IF R=0 GOTO 1545 <042> 

1510 H=320/(ABS(R-O)>*H:F1=R/H2+F1:F2=Q/H2 

+F2:H2=H:IF PM=0 THEN GOSUB 760 <122> 

1515 SYS N,11,15,2:B=2:GOSUB 2875:SYS RE,0 

,0,319,199,1,2 <205> 

1520 SYS G,160,190,318,198,0,2:SYS CP,2:SY 

S T2,2:SYS CO,1,0:GOTO 525 <220> 

1525 IF PM THEN GOSUB 760 <011> 

1530 IF A*=“«-"GOTO 1545 <150> 

1535 IF A*="L"GOTO 1445 <010> 

1540 GOTO 1470 <244> 

1545 SYS G,127,0,165,9,2,lsGOTO 525 <133> 

1550 SYS E,1:F1=0:F2=0:H=1:H2=l:GOTO 1515: 

REM 'ORGINALGROESSE' <069> 

1555 : <007> 

1560 : <012> 

1565 REM ******************************** <091> 

1570 REM * 'OPTIMALER AUSSCHNITT' * <071> 

1575 REM ******************************** <101> 

1580 : <032> 

15B5 PM=0: IF HOI THEN PM=1 <203> 

1590 SYS E,1:O=-8000:P=O:R=-O:Q=-O:F1=0:F2 

=0:H=1:H2=1 <168> 

1595 1=0:FOR A=1 TO V:SYS Dl,A:Y1=USR(1>:U 

=USR <2>:Z1=USR <3>:GOSUB 2910 <097> 

1600 IF U>0 THEN 0=U <020> 

1605 IF Z1>P THEN P=Z1 <040> 

1610 IF U<R THEN R=U <033> 

1615 IF Z1<Q THEN Q=Z1 <179> 

1620 NEXT A:R=R-1:Q=Q-1:0=0+l:P=P+1:M=B/5 <222> 

1625 B1=ABS(0—R):B2=ABS C P—Q) <112> 

1630 IF B1<B2*M THEN FA=B2*M:0=0+ABS(FA-Bl 

)/2:R=R—ABS(FA—Bl)/2:GOTO 1510 <060> 

1635 IF Bl>B2/M THEN FA=B1/M:P=P+ABS(FA-B2 

)/2:Q=Q—ABS(FA—B2)/2:GOTO 1510 <199> 

1640 SYS G,127,0,165,9,2,1:SYS E,2:B=2:G0T 

0 2130:REM BETRACHTEN DER GRAFIK' <186> 

1645 : <097> 

1650 : <102> 

1655 REM ******************************** <181> 

1660 REM * 'ZENTRIEREN' * <176> 

1665 REM ******************************** <191> 

1670 : <122> 

1675 SYS E,1:O=-B000:P=O:R=-O:Q=R:QZ=R:PZ= 

P:F1=0:F2=0:H=1:H2=1 <075> 

1680 1=0:FOR A=1 TO V:SYS Dl,A:U=USR(1>:Y1 , 

=USR<2>:Z1=USR(3) <101> 


1685 IF U>0 THEN 0=U <105> 
1690 IF Y1>P THEN P=Y1 <113> 
1695 IF Z1>PZ THEN PZ=Z1 <069> 
1700 IF U<R THEN R=U , <123> 
1705 IF Y1<Q THEN Q=Y1 <001> 
1710 IF Z1<QZ THEN QZ=Z1 <214> 
1715 NEXT A:FX=(R+0)/2:FY=(0+P)/2:FZ=(QZ+P 

Z>/2 <015> 
1720 SYS UM,4,0,0,D,1,0,FX:SYS UM,5,0,0,D, 

1,0,—FY:SYS UM,6,0,0,D,1,0,FZ <102> 
1725 SYS N,11,15,2:SYS E,1:G0T0 115 <197> 
1730 : <182> 
1735 : <1B7> 
1740 REM ******************************** <010> 
1745 REM * DISK - MENUE * <039> 
1750 REM ******************************** <020> 
1755 : <207> 
1760 GOSUB 615:PRINT"{SPACE,RVSON,13SPACE > 

BI SK - BENUE{13SPACE,CTRL—O >" <236> 
1765 GOSUB 620 <001> 
1770 PRINT"{HOME,5D0WN,6RIGHT>fl. flBJEKT LA 

DEN" <075> 
1775 PRINT"{DOWN,6RIGHT>£. ABJEKT SPEICHER 

N" <129> 
1780 PRINT"{DOWN,6RIGHT>£. BISKETTENKOMMAN 

DO SENDEN" <060> 
1785 PRINT"{DOWN,6RIGHTJS- BIRECTORY ANZEI 

GEN" <048> 
1790 PRINT"{DOWN,6RIGHT>£. flRAFIK LADEN“ <174> 
1795 PRINT"{DOWN,6RIGHT>£. flRAFIK SPEICHER 

N“ <014> 
1800 GOSUB 1020 <042> 
1805 GOSUB 635:IF A*="«-"THEN SYS E,l:GOTO 

525 <153> 
1810 IF A<1 OR A>6 GOTO 1805 <039> 
1815 ON A GOTO 1850,1925,2060,2000,2110,21 

65 <016> 
1820 : <018> 
1825 : <023> 
1830 REM ******************************** <102> 
1B35 *i£M * 'OBJEKT LADEN' * <245> 
1840 REM ******************************** <112> 
1845 : <043> 


1850 GOSUB 615:GOSUB 625:PRINT"{SPACE,RVSO 


N,13SPACEJflB JEKT LADEN{13SPACE,RVOFF} 

“ <132> 

1855 INPUT"{3D0WN,3RIGHT}flBJEKT - BAMEI4SP 

ACEJ";N$: IF N*="f-"OR N*=""GOTO 1760 <198> 

1860 OPEN 2,8,2,"OB."+N$+",S,R":GOSUB 685: 

IF FOB GOTO 1760 <018> 

1865 H=1:L=1:F1=0:F2=0:FK=0:H2=l:V=0:D=1:K 

=0:SYS 25919 <004> 

1870 INPUT#2,D:INPUT#2,V:INPUT#2,K <011> 

1875 SYS 22541,D,V <240> 

1880 FOR 1=1 TO K: INPUT#2,B*<I>:NEXT <062> 

1885 SYS C2,V+1,D,0,0 <032> 

1B90 CLOSE 2:GOSUB 685:GOSUB 3115:SYS E,l: 

SYS N,11,15,2:GOTO 115 <192> 

1895 : <093> 

1900 : <09B> 

1905 REM ******************************** <177> 

1910 REM * 'OBJEKT SPEICHERN' * <205> 

1915 REM ******************************** <1B7> 

1920 : <11B> 

1925 IF D=1 GOTO 1805 <154> 

1930 GOSUB 615:GOSUB 625::PRINT"{SPACE,RVS 
ON,11SPACE >flBJEKT SPEICHERN{11SPACE,R 
VOFF>" <212> 

1935 INPUT"{3D0WN,3RIGHTJflBJEKT - UAMEI4SP 

ACEJ";N*:IF N*="«-"OR N*=""GOTO 1760 <022> 

1940 OPEN 2,8,2,"OB.“+N$+",S,W":GOSUB 685: 

IF FOB GOTO 1760 <163> 

1945 PRINTH2,D:PRINT#2,V:PRINT#2,K <241> 

1950 SYS 22520,D,V <058> 

1955 FOR 1=1 TO K:PRINT#2,B*(I>:NEXT <177> 

1960 CLOSE 2:GOSUB 685:GOSUB 3115 <196> 

1965 GOTO 1760 <175> 

1970 : <168> 

1975 : <173> 

1980 REM ******************************** <252> 

1985 REM * 'DIRECTORY ANZEIGEN' * <110> 

1990 REM ******************************** <006> 

1995 : <193> 
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2000 PRINT"£CLR}";:GOSUB 615:PRINT"{SPACE, 
RVSON,10SPACE >£IRECTORY ANZEIGEN {10SP 
ACE,RVOFF>" 

2005 PRINT:QPEN 2,8,0, 11 S0":SYS 26134:CLOSE 
2 

2010 :CLOSE 2 

2015 CLOSE 1:OPEN 1,8,15:INPUT#1,F,F$,T,S: 
IF F=0 GOTO 2025 

2020 PRINT"£HOME,DOWN>":GOSUB 695:GOTO 176 

0 

2025 PRINT#1,"U9":CLOSE 1:GOSUB 635:GOTO 1 
760 
2030 : 

2035 : 

2040 REM ******************************** 
2045 REM * 'DISKETTENKOMMANDO SENDEN' # 

2050 REM ******************************** 
2055 : 

2060 GOSUB 615:GOSUB 625:PRINT"{SPACE,RVSO 
N,6SPACE>filSKETTENKOMMANDO SENDEN{BSP 
ACE,RVOFF >" 

2065 POKE 631,34:POKE 198,1:N*="":INPUT"£2 
DOWN,3RIGHTJiOMMANDO ";N*:IF N*="t-"GO 
TO 1760 

2070 CLOSE 1: OPEN 1,8,15,NS: INPUTttl ,F,F*,T 
,S:PRINT"£2DOWN,3RIGHT,RVSON,SPACE >fll 
SKETTENSTATUS: " 

2075 GOSUB 700:GOTO 1760 
2080 : 

2085 : 

2090 REM ******************************** 
2095 REM * 'GRAFIK LADEN' * 

2100 REM ******************************** 
2105 : 

2110 GOSUB 615:GOSUB 625:PRINT“{SPACE,RVSO 
N,13SPACE >£RAFIK LADEN £13SPACE,RVOFF > 

2115 INPUT"£3D0WN,3RIGHTJßRAFIK - 1JAMEC4SP 
ACE>";N$:IF NS="«-"OR N$=""GOTO 1760 
2120 PRINT"£CLR}":OPEN 2,8,2,"PI."+N*+",P, 
R": GOSUB 685: IF FO0 GOTO 1760 
2125 SYS N,11,15,2:SYS E,2:SYS 26101,2:CL0 
SE 2:PRINT#1,"U9“:CLOSE 1:B=2 
2130 GOSUB 2475:SYS E,l:GOTO 525 
2135 : 

2140 : 

2145 REM ******************************** 
2150 REM * 'GRAFIK SPEICHERN' * 

2155 REM ******************************** 
2160 : 

2165 GOSUB 615:GOSUB 625:PRINT"{SPACE,RVSO 

N, 11SPACE}fiRAFIK SPEICHERN £11SPACE,RV 
OFFJ" 

2170 CR=A:INPUT"£3D0WN,3RIGHT}SRAFIK - ÜAM 
E{4SPACE>":NS: IF N#="«-"OR NS=" "GOTO 2 
190 

2175 IF CR=6 THEN INPUT"£2D0WN,3RIGHT>£RAF 
IK - aiLDSCHIRM # ";B 
2180 OPEN 2,8,2,"PI."+NS+",P,W" 

2185 SYS 26068,B:CLOSE 2:GOSUB 685:CLOSE 1 
:OPEN 1,8,15:PRINT#1,"U9":CLOSE 1 
2190 IF CR=6 THEN SYS E,l:GOTO 525 
2195 RETURN 
2200 : 

2205 : 

2210 REM ******************************** 
2215 REM * 'FORM' * 

2220 REM ******************************** 

2225 : 

2230 SYS CO,2,0:SYS G,58,0,96,9,2,2:SYS G, 

O, 100,158,104,0,2: BQ=1 

2235 SYS MU,2:SYS RE,0,99,159,199,1,2:SYS 
RE,2,101,157,197,1,2:SYS E,2:B=2 
2240 0=160:P=100:JL=0 
2245 GOSUB 1030 

2250 IF PEEK <631)00 THEN A=PEEK (631): GOTO 
2325 

2255 IF Q>57 AND 0<97 AND P<9 THEN A=95:G0 
TO 2325 

2260 IF 0>159 OR PC 100 GOTO 2245 
2265 GOSUB 820:IF C=0 GOTO 2245 
2270 GOSUB 890:IF C=0 GOTO 2245 
2275 SYS RE,2,101,157,197,0,2:SYS UM,C,0,0 
,D,EI,J,W 

2280 IF JL>0 THEN JL=JL+1:SYS RE,2,101,157 


< 222 > 

<230> 

<24B> 

<205> 

<056> 

< 145> 
<22B> 
<233> 
<056> 
< 002 > 
<068> 
<255> 


< 198> 


< 109> 


< 173> 

< 109> 
<124> 
<029> 

< 108> 
<082> 
< 118> 
<049> 


<231 > 

< 183> 
<037> 

< 159> 

< 140> 
<079> 
<084> 
<163> 
< 022 > 

< 173> 

< 104> 


< 196> 


< 101 > 

<0B0> 

<084> 

< 135> 

< 145> 
<221 > 

< 144> 

< 149> 
<228> 

< 191 > 
<238> 
<169> 

< 195> 

< 190> 

< 178> 
<009> 

<248> 

<007> 
<079> 
<032> 
<149> 

<023> 


,197,1,2:IF EI=0 GOTO 2270 <021> 

2285 IF JL>0 THEN EI=0:BQ=1:C=0:GOTO 2245 <138> 

2290 B=1:DH=HD:HD=0:SYS N,11,15,1:GOSUB 28 

75:HD=DH <170> 

2295 SYS RE,0,0,319,199,1,1:SYS T2,1:SYS G 

,160,190,318,198,0,1:SYS CP,1 <077> 

2300 SYS E,1:SYS CO,2,0:SYS G,0,100,158,10 

4,0,2:SYS G,58,0,96,9,2,2 <104> 

2305 SYS MU,2:SYS RE,0,99,159,199,1,2:SYS 

RE,2,101,157,197,1,2 <057> 

2310 IF JL THEN JL=1:SYS E,2:POKE 53280,14 

:GOTO 2325 <041> 

2315 IF EI THEN EI=0:BQ=1:C=0:SYS E,2:GOTO 

2245 <079> 

2320 B=2:GOSUB B55:BQ=0:SYS E,2:G0T0 2270 <079> 

2325 IF A=95 AND JL>1 THEN POKE 53280,14:G 

OTO 2290 <001> 

2330 IF A=95 THEN SYS E,1:G0T0 525 <166> 

2335 IF A=133 AND JL=0 THEN JL=1:P0KE 5328 

0,6:GOTO 2245 <21B> 

2340 IF A=133 AND JL=1 THEN JL=0:POKE 5328 

0,14:G0T0 2245 <007> 

2345 IF A=133 AND JL>1 THEN POKE 53280,14: 

GOTO 2290 <059> 

2350 IF A=48 THEN GOSUB 1060:C=3:SYS E,2:G 

OTO 2275 <157> 

2355 GOSUB 955:IF C=0 OR W=0 THEN SYS E,2: 

EI=0:W=0:C=0:BQ=1:GOTO 2245 <120> 

2360 SYS E,2:GOTO 2275 <099> 

2365 : <055> 

2370 : <060> 

2375 REM ******************************** <139> 

2380 REM * 'DARSTELLEN' * <142> 

2385 REM ******************************** <14<?> 

2390 : <080> 

2395 SYS N,11,15,2:SYS E,2:POKE 53280,15 <010> 

2400 IF HD THEN PRINT"£CLRJ";:SYS E,0:GOTO 

2975 <208> 

2405 IF LOl THEN GOSUB 630: INPUT" {CLR,4D0 

WN,3RIGHT>£ILE - ÜAME ";N* <248> 

241« F LOl THEN DS=1:SYS E, 1: PRINT" £CLR> 

":OPEN 1,8,15,“XR-":PRINT#1,"U9":POKE 
192,192 <156> 

2415 IF L=.5 GOTO 2565 <047> 

2420 IF L=2 AND RI=1 GOTO 2700 <134> 

2425 IF L=2 GOTO 2725 <118> 

2430 IF L=3 GOTO 2750 <141> 

2435 B=2:GOSUB 2875 <147> 

2440 GOSUB 2475:SYS CO,1,0:SYS E,1:G0T0 12 

5 <070> 

2445 : <135> 

2450 : <140> 

2455 REM ******************************** <219> 

2460 REM * GRAFIK BETRACHTEN * <025> 

2465 REM ******************************** <229> 

2470 : <160> 

2475 XA=1:POKE 53280,15 <100> 

2480 GOSUB 635:A=A+64:IF A>48 AND A<51 THE 

N B=A—48:SYS E,B <132> 

2485 IF A<133 OR A>140 GOTO 2500 <095> 

2490 A=A—132:I=A-INT(A/5)*4:W=-<A<5)+<A>4) 


:F(I)=F(I)+W:IF F(I)<0 THEN F(I)=15 <039> 

2495 IF F(I)>15 THEN F(I)=0 <231> 

2500 IF A=B3 THEN A=0:GOSUB 630:GOSUB 2165 <071> 
2505 IF A=B2 THEN SYS RE,0,0,319,199,1,3 <211> 

251,0 IF A=95 THEN SYS ML, 11,15,0,1:SYS ML, 

11,15,0,2:POKE 53281,15:SYS E,B:RETUR 
N <168> 

2515 IF A=77 THEN XA-l-XA <B16> 

2520 SYS ML,F(1),F(2),F(3),B:POKE 53280,F( 

4):POKE 53281,F(4) <126> 

2525 IF XA THEN SYS ML,F(1),F(4),0,B:SYS E 

,B <076> 

2530 GOTO 2480 <001> 

2535 : <225> 

2540 : <230> 

2545 REM ******************************** <053> 

2550 REM * DARSTELLUNG IN ALLEN GROESSEN* <037> 
2555 REM ******************************** <063> 

2560 : <252> 

2565 SYS N,11,15,2:SYS E,2:P0KE 53280,15 <182> 

2570 CLOSE 1:OPEN 1,8,15,"S:CAD.MAIN.DATAS 
":PRINT#1,"XR-":PRINT#1,"U9":POKE 192 
.192 <170> 

Listing 2. Bearbeitungseinheit (Fortsetzung) 
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2575 

25B0 

2585 

2590 

2595 

2600 

2605 

2610 

2615 

2620 

2625 

2630 

2635 

2640 

2645 

2650 

2655 

2660 

2665 

2670 

2675 


2680 

2685 

2690 

2695 

2700 


2705 

2710 

2715 

2720 

2725 

2730 

2735 

2740 

2745 

2750 

2755 

2760 

2765 

2770 

2775 

2780 

2785 

2790 

2795 

2800 

2805 

2810 

2815 

2820 

2825 


2830 


CLOSE 1:OPEN 2,8,2,"CAD.MAIN.DATAS,S, 
W":GOSUB 685:IF F=0 GOTO 2590 
IF F=99 THEN CLOSE 2:GOSUB 3115:SYS E 
,1:GOTO 135 

CLOSE 2:CLOSE l:GOTO 2570 
SYS 22520,D,V:CLOSE 2:GOSUB 3115 
DV=DU:VX=A1:VY=A2:VZ=A3:H2=H:FOR FI=1 
TO 24:B=2:SYS E,2:IF DU=0 THEN DU=DR 
SYS RE,310,0,319,194,1,2:SYS 50859,31 
1,1,318,FI*8+1,1,2 

IF DU=1 THEN SYS UM,8,0,1,D,1,0,15*FI 
IF DU=2 THEN SYS UM,7,0,1,D,1,0,15*FI 
IF DU=3 THEN SYS UM,9,0,1,D,1,0,15*FI 
IF ZV THEN SYS UM, 8 ,0,1, D, 1,0, ZV 
A1=A1+KX:A2=A2+KY:A3=A3+KZ:DU=DV:IF V 
F< >0 THEN H=H*VF 

GOSUB 2875:SYS E,0:IF RN THEN SYS RE, 
0,0,159,95,1,2 

OPEN 2,8,2,"FI."+N*+STR*(FI)+",P,W":G 
OSUB 685:IF F=0 GOTO 2650 
IF F=99 THEN CLOSE 2:GOSUB 3115:GOTO 
2655 

CLOSE 2:CLOSE l:OPEN 1,8,15,"S:FI.”+N 
S+STRS(FI>:GOTO 2635 
SYS 22299:CLOSE 2 

DS=0:CLOSE l:OPEN 2,8,2,"CAD.MAIN.DAT 
AS,S,R":GOSUB 690:IF F=0 GOTO 2685 
PRINT"<3D0WN,SPACE>21SKETTE MIT SYSTE 
MDATEN EINLEGEN !“ 

PRINT"C2D0WN,SPACE>HOCH EINEN .VERSUCH 
< J/N) ?" 

GOSUB 635:IF A*="J"THEN CLOSE 2:PRINT 
"<CLR>":GOTO 2655 

IF A*="N"THEN CLOSE 2:SYS 25919:DF=1: 
VI=0:MN=0:SYS N,11,15,2:SYS E,l:GOTO 
125 

GOTO 2670 

SYS 22541,D,V:CLOSE 2:GOSUB 3115:DS=1 
SYS N,11,15,2:NEXT 

H=H2:A1=VX:A2=VY:A3=VZ:SYS E,1:L=1:PO 
KE 192,0:POKE 53280,14:GOTO 135 
PRINT"<CLR>":FOR FI=1 TO 5:SYS N,ll,l 
5,1:SYS N,11,15,2:SYS E,1:SYS FR,0:B= 
1 

FK=FI*200-200:GOSUB 2B75:SYS UF,1:SYS 
E,0:IF RN THEN GOSUB 645 
IF RN AND FI=5 THEN SYS L4,0,199,319, 
199,1,3 

N1S="HZ.":B=1:GOSUB 1035:B=2:GOSUB 10 
35 

GOSUB 3115:NEXT FI:FK=0:L=1:RI=0:GOTO 
120 

FOR FI=1 TO 2:B=1:SYS N,11,15,1:SYS N 
,11,15,2:SYS E,1:SYS FR,0 
FK=(FI-1>*200:GOSUB 2875:SYS UF,1:SYS 
E,0:IF RN THEN GOSUB 645 
IF RN AND FI=2 THEN SYS L4,0,199,319, 
199,1,3 

N1*="HV.":B=1:GOSUB 1035:B=2:GOSUB 10 
35 

GOSUB 3115:NEXT FI:FK=0:L=1:RI=0:GOTO 
120 

SYS N,11,15,2:SYS E,2:L=.5:GOSUB 2875 
IL-UIF RN THEN SYS RE,0,0,159,95,1,2 
OPEN 2,8,2,"FI.“+NS+",P,W":GOSUB 685: 
IF F=0 GOTO 2770 
IF F=99 GOTO 2775 

CLOSE 2:CLOSE l:OPEN 1,8,15,"S:FI."+N 
*: CLOSE 1:GOTO 2755 
SYS 22299 

CLOSE 2:GOSUB 3115:SYS E,l:L=l:GOTO 1 
35 


REM ******************************** 
REM * PARAMETER-UEBERGABE * 

REM ******************************** 

W2=INT(W/256):W1=W-256*W2:POKE A+I,W1 

:POKE A+I+1.W2:1=1+2:RETURN 

IF ABS<W)>3276.7 THEN W=3276.7*SGN(W) 

W=W*10+3276B:GOSUB 2810:RETURN 

POKE 53280,15:GOSUB 630:PRINT”TCLR,12 

DOWN, 8 SPACE>SYSTEMDISKETTE EINLEGEN ! 



2835 

<140> 

2840 

< 112 > 
<221 > 

2845 

< 179> 

2850 

2855 

< 183> 

2860 

<208> 

<043> 

2865 

<096> 

2870 

< 197> 
< 212 > 

2875 

< 109> 

2880 

2885 

<038> 

2890 

2895 

<071 > 

2900 

2905 

< 141 > 

2910 

2915 

<166> 

2920 

<015> 

2925 

2930 

<04B> 

2935 

< 135> 

2940 

2945 

<019> 

2950 

2955 

<033> 

2960 

2965 

2970 

<067> 

2975 

< 152> 

<040> 

2980 

< 155> 

2985 

<223 > 

2990 


2995 

<059> 

3000 

<035> 

3005 

< 165> 

3010 

< 141 > 

3015 

<244> 


<037> 

3020 

< 109> 

3025 

< 184> 

3030 

3035 

< 162> 

3040 

3045 

<013> 

3050 

3055 

< 180> 

3060 

<042> 

3065 

< 197> 

3070 

< 182> 
<06B> 

3075 

3080 

<217> 
<216> 
<221 > 

3085 

<044> 

3090 

<019> 

<054> 

3095 

<241 > 

3100 

< 153> 

< 146> 

3105 

<036> 

3110 

3115 

<091 > 



OPEN 2,B,2,N*+",P,R":CLOSE 2:G0SUB 68 
5:IF F THEN A*="+":RETURN 
PRINT#1,"U9":CLOSE 1:RETURN 
FOR X=1 TO K:FOR Y=1 TO 13:W=PEEK(A+Y 
>:IF W=254 THEN Y=13:GOTO 2855 
B*(X>=B$(X>+CHRS(W) 

NEXT Y:A=A+14:NEXT X:A=49153:RETURN 
FOR X=1 TO K:FOR Y=1 TO LEN(BS(X)):PO 
KE A+Y,ASC(MIDS(BS(X),Y,1)):NEXT Y 
POKE A+Y,254:A=A+14:NEXT X:A=49153:RE 
TURN 

W1=A+I:W= <(PEEK(W1)+256*PEEK(Wl + 1>)—3 
2768)/10:1=1+2:RETURN 

SYS 20480,D,FL,RI,Al,A2,A3,H,L,F1,F2, 
FK,B:RETURN:REM DARSTELLEN 
: 

REM ******************************** 
REM * EXTREMA * 

REM ******************************** 
l 

IF FL=0 THEN 2930 

IF Y1—A2=0 THEN T=0:GOTO 2925 

T=Y1/(Y1-A2) 

U=U—T*(U—Al):Z1=Z1—T*(ZI—A3) 

IF RI=1 THEN X4=U:U=—Z1*1.5:Z1=X4*1.5 
U=((U+160)-F1)*H*L:Z1=((Z1+100)-F2)*H 
*L-FK*H:RETURN 

REM ******************************** 
REM * PARAMETER CODIEREN * 

REM ******************************** 

NS="CAD.CREATE”:GOTO 2980 
NS=“CAD.PAINT" 

GOSUB 2825:IF AS="+"THEN SYS E,l:POKE 
53280,14:GOTO 525 

A=49153:W=FL+2*WQ+4*MC+8*RI+16*SE+32* 
WM+64*BS+128*HD:POKE A+912.W 
1=900:W=K:GOSUB 2810:W=D:GOSUB 2810:W 
VsGOSUB 2810 

W=A1:GOSUB 2815:W=A2:GOSUB 2B15:W=A3: 
GOSUB 2815:1=1+1:W=WX:GOSUB 2815 
W=WY:GOSUB 2815:W=WZ:GOSUB 2815:1=1+2 
:W=F1:GOSUB 2815:W=F2:GOSUB 2815 
W=KE:GOSUB 2B15;P0KE A+919,L*2:POKE A 
+954,SL:I=898:W=ZV:GOSUB 2815 
POKE A+920,RN:W$=STRS(H>:POKE A+927.L 
EN(MS) 

FOR W=1 TO LEN(WS):POKE A+927+W,ASC<M 
IDS(WS,W,1)):NEXT W:IF K THEN GOSUB 2 
860 

POKE 836,0:PRINT"<GREY 3,CLR > LOAD"CHR 
S(34)NSCHRS(34)",8" 

PRINT“(4D0WN1RUN:“:POKE 631,19:POKE 6 
32,13:POKE 633,13:P0KE 198,3:NEW 


REM ******************************** 
REM * PARAMETER DECODIEREN * 

REM ******************************** 

A=49153:K=PEEK(A+900):D=PEEK(A+902)+2 
56*PEEK(A+903) 

V=PEEK(A+904)+256*PEEK(A+905) 

IF PEEK(A+919)=255 THEN WY=500:WZ=-20 
0:A1=50:A2=300:A3=30:L=1:H=1:GOTO 311 
0 

1=906:GOSUB 2870:Al=W:GOSUB 2870:A2=W 
GOSUB 2870:A3=W:1=1+1:GBSUB 2B70:WX=W 
:GOSUB 2870:WY=W:GOSUB 2870:WZ=W 
1=1+2:GOSUB 2870:F1=W:GOSUB 2B70:F2=W 
:GOSUB 2870:KE=W:L=PEEK(A+919)/2 
W=PEEK(A+912):RN=PEEK(A+920) 

FL=W AND 1:WQ=(W AND 2>/2:MC=<W AND 4 
)/4:RI=(W AND 8 )/ 8 :SE=(W AND 16)/16 
WM=(W AND 32)/32:BS=(W AND 64)/64:HD= 
(W AND 128)/128:SL=PEEK(A+954) 

NS="":FOR X=1 TO PEEK(A+927):NT=Nf+CH 
RS(PEEK(A+927+X)):NEXT X:H=VAL(N$) 
GOSUB 2845:RETURN 

CLOSE 1:OPEN 1,8,15,"U9":CLOSE 1:RETU 
RN 


GOSUB 635:IF Af="+"THEN RETURN 


<004> 


Listing 2. Bearbeitungseinheit (Schluß) 


< 166> 
<037> 

<025> 

<019> 

<075> 

<084> 

<077> 

<075> 

<069> 
<062> 
<067 > 

< 146> 

< 198> 

< 156> 
<0B7> 

< 190> 
<076> 
<089> 
<246> 
<058> 

< 104> 

< 122 > 

< 127> 
<206> 
< 212 > 
<216> 

< 147> 
<078> 
<092> 

<069> 

< 128> 
<096> 
< 140> 


<083> 
< 118 > 
<033> 


< 195> 

< 163> 

< 112 > 
< 212 > 
<217> 
<040> 
< 119> 
<050> 
<237> 

< 111 > 

<088> 


<0B6> 

<037> 

<031 > 

<239> 

<092> 

<034> 

<■27.7 > 

< 199> 
<006> 

<079> 
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064 


REM ********************************** 
REM * GlGA—CAD GRAPHIC-SYSTEM * 

REM * 'CAD.CREATE' * 

REM * BY S. VILSMEIER «< S. LIPPSTREU * 
REM ********************************** 


1 
2 

3 

4 

5 

6 
7 

S A=PEEK(836)+1:PQKE 836,A:IF A=1 THEN PDK 
E 55,0:POKE 56,B2:CLR:A=1 

9 IF A=1 THEN L0AD"HIRES3. CAD. OBJ" ,B, 1 

10 IF A=2 THEN LOAD"HIRESB.CAD.OBJ", 8 ,1 

11 OPEN 1,B,15:GOSUB 6 B 8 

12 SYS 50707,1:P0KE 53280,14:DIM P(30,2),B 
S(63> 

13 IF D—0 THEN GOSUB 907 

14 : 

15 : 

16 REM ********************************** 

17 REM * VARIABLEN/ SYS-ARESSEN * 

18 REM ********************************** 

19 : 

20 H=50181:CO=50292:PL=50447:E=50707:G=508 
59:LI=51049:J0=51627:RF=53280 

21 FL=51480:L=51507:R=51800:KR=52008:D4=52 
103:D3=52176:T1=52466:T2=52490 

22 MU=52517:CP=36878:L3=38378:J2=39247:C1= 
39718:D1=40052:C2=40206 

23 D2=40344:L4=21764:CI=21836:UM=22873:C3= 
25652:DA=25123 

24 SYS H,11,15,2:GOTO 108 

25 : 

26 : 

27 REM ********************************* 

28 REM * GRAFIK LOESCHEN/ MENUE * 

29 REM ********************************* 

30 : 

31 PRINT"ICLR,GREY 1>“;:SYS H,11,15,B:SYS 
T1,B 

32 BS=B:GOSUB 68 :SYS KR,1,B:SYS MU,B:IF P= 
1 THEN GOSUB 61 

33 RETURN 

34 J=J-128:QX=D:0=PZ:GOSUB 122:PZ=D:0=QX:R 
ETURN:REM JOYST. UMWANDLUNG -TIEFE 

35 : 

36 : 

37 REM ********************************* 

38 REM * DIVERSE UNTERPROGRAMME * 

39 REM ********************************* 

40 : 

42 FOR 1 = 1 TO 22:PRINT" HC36SPACEIW": NEXT 

43 PRINT"{HOME,24D0WN,SPACEJYYYYYYYYYYYYYY 
WY7YYYYYYYYYYYYYYYYYYW {HOME > ": RETURN 

44 NS="":INPUT"{4D0WN,3RIGHT>flAKR0 - HAMEI 
5SPACE>";NS 

45 IF LEN(NS)>13 THEN PRINT"C4UP>";:GOTO 4 
4 

46 GOSUB 79:RETURN 

47 GET A4:IF AS=""GOTO 47 

48 RETURN 

49 N1=0:FOR 1=1 TO K:IF NS=BS(I)THEN N1=I: 
I=K 

50 NEXT:RETURN 

51 PRINT"t3D0WN,2SPACE>HIESES flAKRO IST NI 
CHT IM SPEICHER !“:GOSUB 47: RETURN 

52 N*="":PRINT"<3RIGHT,2D0WN>HNTER WELCHEM 

HAMEN SOLL DAS flAKRO" 

53 INPUT"{DOWN,3RIGHTJEINGEFUEGT WERDENCI 8 
SPACE,16LEFT } ": NS 

54 GOSUB 79:RETURN 

55 PRINT CHRS(14)CHRS(8):POKE 198,0:RETURN 

56 BS=1 

57 SYS G,240,0,293,9,2,BS:RETURN 

58 BS=2:GOTO 57 

59 BS=1 

60 SYS G,139,0,180,9,2,BS:RETURN 

61 BS=2:GOTO 60 

62 SYS G,0,0,42,9,2,1:RETURN 

63 SYS G,99,0,137,9,2,1:RETURN 

64 SYS G,43,0.98,9,2,l:RETURN 

65 SYS H,11,15,2:RETURN 

66 BS=2:GOTO 68 

67 BS=1 

68 SYS R,0,0,319,199,1,BS:SYS CP,BS:RETURN 


<038> 

<228> 

<177> 

< 125> 
<042> 
<238> 
<239> 

< 151 > 
<073> 

< 172> 
<152> 

<016> 
<17B> 
<246> 
<247> 
<053> 
<232> 
<055> 
<251 > 

<061 > 

<055> 

<0U> 

<097> 

< 106> 
< 001 > 
< 002 > 

< 158> 
<093> 

< 160> 
<006> 

<057> 

< 202 > 

<091X 

<046> 
< 011 > 
< 012 > 
< 168> 
<066> 

< 170> 
<016> 

<234> 
<241 > 

<027> 

<148> 

< 150> 

< 154> 
<215> 
<106> 

<105> 

<245> 

<061 > 

< 130> 

< 197> 

< 162> 
<234> 
<044> 
<248> 
<067> 
<047> 
< 166> 
<057> 
<051 > 

< 136> 
<066> 

< 151 > 
<078 > 
<055> 
<255> 


69 ZM=1:GOTO 71 

70 ZM=0 

71 SYS R,2,101,157,197,ZM,3:RETURN 

72 SYS J2,Z,O,0 

73 Z=PEEK(2024)+256*PEEK(2025):0=PEEK(2026 
):A=PEEK(631):RETURN 

74 XA=USR(1):SA=USR(2):VB=USR(3) :RETURN 

75 EI=PEEK(877):C=PEEK(B81):IF EI THEN EI= 
0:C=0:WQ=1 

76 RETURN 

77 SYS JO:J=PEEK(859):GET AS:RETURN 

78 X2=X1:Y2=Y1:Z2=Z1:RETURN 

79 N1=0: IF NS="*-"OR N*=""THEN Nl = l 

80 RETURN 

81 IF PEEK(53272)023 THEN SYS E,0:GOSUB 5 
5 

82 A=0:GET AS:IF A*<>""THEN A=ASC(AS) 

83 RETURN 

84 INPUT"{2D0WN,3RIGHT > HERBINDUNGSVORSCHRI 
FT VB:IF VB<0 OR VB>2 THEN PRINT"<4UP 
>“;:GOTO 84 

85 SYS E,l:RETURN 

86 : 

87 : 

SB REM ********************************* 

89 REM * FLAECHEN & MAKROS DURCHBL. * 

90 REM ********************************* 

91 : 

92 SYS E,1 

93 I.F F< 1 THEN F=N1 

94 IF F=N1+1 THEN F=1 

95 SYS L,1:GOSUB 65:SYS DA,MO,F,1,2 

96 SYS CO,2,2:SYS FL,4 

97 GOSUB 47 

98 A=ASC(AS):IF A=43 THEN F=F+1:G0T0 93 

99 IF A=B 6 THEN GOSUB 887:RETURN 

100 IF A=45 THEN F=F-1:GOTO 93 

101 RETURN 

102 : 

103 : 

104 C!r I ********************************* 

105 REM * 1. DARSTELLUNG * 

106 REM ********************************* 

107 : 

108 B=2:GOSUB 31:IF D=1 THEN SYS 25919 

109 IF P THEN SYS DA,5,K,1,B:GOTO 111 

110 ZN=0:SYS DA,ZN,DG,1,B 

111 SYS CO,1,0 

112 : 

113 : 

114 REM ********************************* 

115 REM * JOYSTICK-ABFRAGE HAUPTMENUE * 

116 REM ********************************* 

117 : 

118 Z=159:0=12:POKE 40783,0 

119 GOSUB 72 

120 IF PEEK(631>=0 THEN 127 

121 GOTO 119 

122 W=W+1:IF W>20 THEN W=20 

123 IF JIOJ THEN W=1 

124 IF ME=2 THEN W=W*2 

125 0=0-((J>3 AND J<7)-(J<3 OR J>7))*W:Z=Z 
-((J>1 AND J<5)-(J>5))*W:IF ME=2 THEN 
W=W/2 

126 N=0:J1=J:RETURN 

127 IF 0>9 GOTO 119 

128 IF Z<42 GOTO 182 

129 IF Z >182 AND Z<239 GOTO 344 

130 IF Z>99 AND Z<137 AND D<>1 GOTO 420 
IF Z>43 AND Z<98 GOTO 455 
IF Z>137 AND Z<182 GOTO 555 

133 IF Z>239 AND Z<293 AND P=0 GDTO 784 

134 IF Z>292 AND P=0 THEN PRINT"<CLR>“:SYS 

E,0:GOTO 898 

135 GOTO 119 

136 : 

137 : 

138 REM ********************************* 

139 REM * L INI EN-BLINKEN * 

140 REM ********************************* 

141 : 

142 IF N=0 THEN RETURN 

143 SYS L4,PA,PB,Z,0,2,B 

144 IF U=1 OR ME=3 THEN N=l-N:RETURN 

Listing 3. Eingabeeinheit 


131 

132 


<084> 

<074> 

< 158> 
<207> 

<035> 

<083> 

< 179> 

< 134> 
<213> 
<02B> 
<205> 

< 13B> 

<01B> 

<074> 

< 141 > 


<242> 
< 182> 
<062> 
<063> 
<219> 
<246> 
<221 > 
<067> 
<232> 
<060> 
<148> 
<085> 
<183> 

< 171 > 
<152> 
<055> 
<025> 

< 159> 
<078> 
<079> 
<235> 
<08B> 
<237> 
<083> 

< 138> 

< 124> 
< 012 > 
<014> 
<08B> 
<0B9> 
<245> 
< 200 > 
<247> 
<093> 
<050> 

< 137> 
<025> 
<098> 
<230> 

< 1B9> 
<190> 


< 169> 
<098> 
<006> 
<250> 

< 156> 
<092> 
<050> 
<074> 
< 022 > 

< 196> 

< 112 > 
< 112 > 

< 113> 
<013> 

< 147> 
<015> 

< 117> 

< 143> 

< 195> 

< 149> 
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145 

SYS L4,Z,0,PC,PD,2.B:N=1-N:RETURN 

< 145> 

219 

IF CO0 THEN 223 


<213> 

146 

: 

< 122 > 

220 

B=2:GOSUB 72:IF A<>0 GOTO 227 


< 115> 

147 

: 

< 123> 

221 

IF Z<42 AND 0<9 THEN A=95:G0T0 227 

<067> 

148 

REM ********************************* 

<023> 

222 

WQ =1 


< 022 > 

149 

REM * TASTATURABFRAGE (BLINKEN) * 

< 185> 

223 

GOSUB 749:H C=0 THEN 220 


< 165> 

150 

REM ********************************* 

<025> 

224 

GOSUB 762:IF C=0 THEN 220 


<229> 

151 

: 

< 127> 

225 

SYS UM,C,1,DG,D,EI,J,M:GOSUB 75 


<041> 

152 

A=ASC(A$) 

<046> 

226 

SYS L,1:M=0:GOTO 215 


< 182> 

153 

N=l—N:GQSUB 142:N=1~N:IF ME=3 GOTO 159 

< 115> 

227 

GOSUB 769:SYS E,1:IF SV GOTO 225 

<080> 

154 

IF A=147 THEN GOSUB 65:P0KE 40783,0:B= 


228 

IF A=95 GOTO 325 


<234> 


2:GOTO 183 

<013> 

229 

IF A=48 THEN C=10:GOSUB 772:DF=DG:C=1: 


155 

IF A=76 THEN GOSUB 142:G0SUB 170:IF U= 



GOSUB 548:GOTO 225 


< 191 > 


0 GOTO 189 

<032> 

230 

IF A=43 THEN VF=DG:GOTO 240 


<006> 

156 

IF A=95 GOTO 213 

<151 > 

231 

IF A=76 THEN GOSUB 254:GOTO 325 


<228> 

157 

IF A=67 THEN SYS CI.B:N=1 

< 152> 

232 

IF A=42 AND VFO0 GOTO 304 


< 189> 

158 

GOTO 198 

<231 > 

233 

GOTO 220 


<201 > 

159 

IF A=147 THEN SYS E,2:P0KE 40783,0:GOT 


234 

: 


< 210 > 


0 456 

<058> 

235 

: 


<211 > 

160 

IF A=76 THEN GOSUB 142:G0SUB 173:IF U= 


236 

REM ******************************** 

<030> 


0 GOTO 459 

<167> 

237 REM * FLAECHE DUPLIZIEREN 

* 

< 1 B 1 > 

161 

IF A=95 GOTO 483 

< 172> 

238 

REM ******************************** 

<032> 

162 

IF A=67 THEN SYS CI,B:N=1 

< 157> 

239 

: 


<215> 

163 

GOTO 468 

< 212 > 

240 

SYS L,1:SYS CO,1,1:S=0 


< 220 > 

164 

: 

< 140> 

241 

SYS D2,DG:GOSUB 74:IF S<>2 THEN 

ZE=1:G 


165 


< 141 > 


OSUB 915:IF F THEN SYS E,1:G0T0 

247 

< 010 > 

166 

REM ********************************* 

<041> 

242 

SYS D2,DG+1:XB=USR(1):IF S=2 THEN SA=K 

< 197> 

167 

REM * LINIE LOESCHEN * 

< 145> 

243 

SYS C2,V+l,D,SA,VB:D=D+1:SYS C2, 

V+(XB- 


168 

REM ********************************* 

<043> 


XA)+1,D,SA,VB 


<15B> 

169 

. 

<145> 

244 

FOR I=XA TO XB—1:V=V+1 


< 127> 

170 

GOSUB 142:U=U—1:IF U=0 THEN RETURN 

<056> 

245 

SYS Dl,I:SYS CI,USR(1),USR(2),USR(3),V 

< 012 > 

171 

SYS L4,P(U—1,1)+160,P(U—1,2)+100,PC,PD 


246 

NEXT:IF S=2 THEN RETURN 


< 124> 


,2,B 

< 177> 

247 

DG=D—1:GOTO 214 


< 0 B 8 > 

172 

PC=P(U-l,1)+160:PD=P CU-1,21+100:Z=PC:0 


248 

: 


<224> 


=PD:RETURN 

<109> 

249 

: 


<225> 

173 

U=U-1:IF U=0 THEN RETURN 

<149> 

250 

REM ******************************** 

<044> 

174 

SYS L4,P CU—1,0)+160,180—P(U—1,1),PA,PB 


251 

REM * FLAECHE LOESCHEN 

* 

<032> 


, 2,2 

<241 > 

252 

REM ******************************** 

<046> 

175 

Z=PA:0=PB: PA=P(U-1,0)+160:PB=180-P(U-1 


253 

: 


<229> 


,1):RETURN 

<204> 

254 

SYS L,1 


< 194> 

176 

: 

< 152> 

255 

SYS D2,DG:YA=USR(1):SYS D2,DG+1:XB=USR 


177 

- 

<153> 


) : SU=XB—YA 


<075> 

178 

REM ********************************* 

<053 > 

256 huR I=DG+1 TO D+l 


<030> 

179 

REM * FLAECHE: 2D-EINGABE * 

< 212 > 

257 

SYS D2,I:GOSUB 74:IF XA<SU THEN 

XA=SU 

< 131 > 

180 

REM ********************************* 

<055> 

258 

SYS C2,XA—SU,I—1,SA,VB:NEXT:D=D- 

-1 

<241 > 

181 

: 

< 157> 

259 

FOR I=XB TO V+SU 


<015> 

182 

GOSUB 65:ME=1:B=3:C=0 

< 012 > 

260 

SYS Dl,I:SYS CI,USR(1),USR(2),USR(3),I 


183 

GOSUB 66 :SYS T1,2:SYS D4,l,2 

<032> 


—SU:NEXT:V=V—SU 


< 135> 

184 

U=0:SYS G,0,0,42,9,2,B 

< 187> 

261 

RETURN 


<065> 

185 

IF P THEN GOSUB 61 

<185> 

262 

: 


<240> 

186 

M=0:B=2 

<233> 

263 

: 


<241 > 

187 

SYS LI,160,97,160,103,1,2 

<188> 

264 

REM ******************************** 

<060> 

IBS 

SYS LI,157,100,163,100,1,2:SYS E,2 

< 102 > 

265 

REM * MAKRO LOESCHEN 

* 

< 210 > 

189 

Z=160:0=100 

<1B5> 

266 

REM ******************************** 

<062> 

190 

GOSUB 72 

<208> 

267 

• 


<245> 

191 

IF A< >0 GOTO 193 

< 167> 

268 

X2=l:Y2=0:SYS L,1:B*(DG)="“ 


< 140> 

192 

GOTO 197 

<232> 

269 

FOR 1=1 TO D—1 


<008> 

193 

IF A=67 THEN SYS CI,B 

<088> 

270 

SYS D2,I:GOSUB 74:IF SA=DG GOTO 

280 

<060> 

194 

IF A=95 GOTO 213 

< 1B9> 

271 

IF SA>DG THEN SA=SA-1 


< 157> 

195 

GOTO 190 

<0U> 

272 

SYS D2,1+1:Z1=USR(2):XB=USR(1> 


< 212 > 

196 

REM ***** 1. ECKPUNKT ************ 

< 159> 

273 

SYS C2,Y2+1,X2,SA,VB:SYS C2,Y2+(XB-XA) 


197 

N=0:U=1:P<0,1)=Z-160:P(0,0)=0:P(0,2)=O 



+1,X2+1,Z1,VB 


< 147> 


—100:PA=Z:PB=0:PC=Z:PD=0 

<077> 

274 

X2=X2+1 


<078> 

198 

GOSUB 143:GOSUB 77:IF A*<>“"GOTO 152 

< 117> 

275 

FOR Q=XA TO XB-1 


< 144> 

199 

IF J=0 THEN W=0:GOTO 198 

< 154> 

276 

SYS Dl,Q:X1=USR(1):Y1=USR(2): Z1 

=USR(3) 

<241 > 

200 

GOSUB 142:IF J=128 THEN 202 

< 180> 

277 

IF Xl=—3276.8 THEN X1=0:Y1=0:Z1 

=0 

<094> 

201 

GOSUB 122:GOTO 198 

< 198> 

278 

Y2=Y2+1:SYS CI,X1,Y1,ZI,Y2 


< 123> 

202 

IF PC=Z AND PD=0 GOTO 198 

< 181 > 

279 

NEXT 


<035> 

203 

IF U>29 GOTO 198 

<153> 

280 

NEXT 


<036> 

204 

SYS L4,PC,PD,Z,Q,2,2 

< 200 > 

281 

FOR I=X2+1 TD D:SYS C2,0,1,0,0: 

NEXT 

< 01 B> 

205 

U=U+1:PC=Z:PD=0:P(U-l,1)=PC-160:P(U-1, 


282 

V=Y2:D=X2 


< 191 > 


0)=0:P(U—1,2)=PD—100 

<221 > 

283 

FOR I=DG TO MM+1:B*CI)=B$(I+1):NEXT:RE 

206 

GOTO 198 

<023> 


TURN 


< 189> 

207 

- 

<183> 

284 

- 


<006> 

208 

5 

< 184> 

285 

: 


<007> 

209 

REM ******************************** 

<003> 

286 

REM ******************************** 

< 0 B 2 > 

210 

REM * FLAECHE: EINFUEGEN (3D) * 

< 166> 

287 

REM * MAKRO DUPLIZIEREN 

* 

<142> 

211 

REM ******************************** 

<005> 

288 

REM ******************************** 

< 020 > 

212 

■ 

< 18B> 

289 

: 


<0ii> 

213 

VF=0:IF U>1 THEN GOSUB 321:DG=D-1 

< 120 > 

290 

GOSUB 890:SYS L,1:SYS CO,1,1 


<081 > 

214 

C=0:ME=1:SYS L,1:M=0:Z=160:0=100 

<153> 

291 

DR=D:DH=DG 


<035> 

215 

GOSUB 65:IF U<2 THEN ME=0:GOSUB 62:GOT 

292 

GOSUB 918:GOSUB 915:IF F THEN K=K-1:RE 


0 118 

< 142> 


TURN 


< 212 > 

216 

SYS DA,1,DG,1,2 

< 130> 

293 

FOR X2=l TO DR-1 


<037> 

217 

SYS CO,2,2:SYS FL,4 

<048> 





218 

IF C=0 THEN GOSUB 69 

<170> 


Listing 3. Eingabeeinheit (Fortsetzung) 
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294 SYS D2,X2:SA=USRC2) 

295 IF SA=DH THEN DG=X2:GÜSUB 241 

296 NEXT 

297 RETURN 

298 : 

299 : 

300 REM ******************************** 

301 REM * FLAECHEN VERBINDEN * 

302 REM *********************»*******.„.,,„ 

303 : 

304 SYS L,1sSYS D2,VF:XA=USR<1>:VB=USR(3): 
SYS D2,VF+1:XB=USR(1):SYS D2,DG:YA=USR 
( 1 ) 

305 ZE=4*(XB—XA):GOSUB 915:IF F GOTO 314 

306 FÜR I=XA TO XB:IF I=XB THEN X1=X3:Y1=Y 
3: Z1=Z3:PA=X4:PB=Y4:PC=Z4:GOTO 310 

307 SYS D1.I:X1=USR<1):Y1=USR(2):Z1=USR<3> 
: SYS Dl,YA+(I—XA) 

308 PA=USR< 1) :PB=USR(2>:PC=USR(3) 

309 IF I=XA THEN X3=X1:Y3=Y1:Z3=Z1:X4=PA:Y 
4=PB:Z4=PC:GOTO 313 

310 SYS C2,V+l,D, MM, VB: D=D+1:SYS C2,V+5,D, 
MM, VB 

311 V=V+1:SYS CI,XI,Yl,ZI,V:V=V+1:SYS C1,X 
2 ,Y2,Z2,V 

312 V=V+1:SYS CI,PD,PE,PF,V:V=V+1:SYS C1,P 
A,PB,PC,V:SYS DA,1,D-1,1,1 

313 GOSUB 78:PD=PA:PE=PB:PF=PC:NEXT 

314 GOSUB 65:SYS DA,1,DG,1,2:SYS C0,2,2:SY 
S FL,4:GOTO 220 

315 : 

316 : 

317 REM ******************************** 

318 REM * FLAECHE IN SPEICHER CODIEREN * 

319 REM ******************************** 

320 : 

321 IF P=0 THEN MM=0 

322 ZE=1:GOSUB 915:IF F THEN RETURN 

323 SYS C2,V+1,D,MM,VN:SYS C2,V+U+1,D+1,MM 
,VN:D=D+1:FOR 0=1 TO U 

324 SYS C1,P<O-1,0),P(Q—1,1),P(Q—1,2),Q+V: 
NEXT:V=V+U:RETURN 

325 GOSUB 70:SYS L,1:IF A<>76 THEN SYS CO, 
1,1 

326 ME=1:IF A=43 THEN A=0:GOTO 215 

327 ME=0:GOSUB 62:M=0:GDTO 118 

328 : 

329 : 

330 REM ******************************** 

331 REM * SYMBOLE INVERTIEREN * 

332 REM ******************************** 

333 : 

334 IF CO0 AND EIOl THEN SYS G,PA,PB,PC, 
PD,2,B 

335 IF C=7 THEN SYS 52664,2,B 

336 IF C =8 THEN SYS 52835,2,B 

337 IF C=9 THEN SYS 53045,2,B 
33B RETURN 

339 : 

340 REM ******************************** 

341 REM * 3D-ZEICHNEN * 

342 REM ******************************** 

343 : 

344 SYS CO,2,0:SYS D3,2,2:M=1:N=0 

345 SYS G,182,0,239,9,2,2:ME=2:SYS E,2 

346 Z=0:O=0:PZ=0:N=0:B=2:U=0 

347 SYS LI,78,55,82,55,2,2:SYS LI,80,53,80 
,57,2,2 

348 SYS LI,238,55,242,55,2,2:SYS LI,240,53 
,240,57,2,2 

349 SYS LI,238,145,242,145,2,2:SYS LI,240, 
143,240,147,2,2 

350 IF M=0 THEN RETURN 

351 SYS C3,PZ,Z,0,2,B:N=1—N 

352 GOSUB 77:IF A*<>""GOTO 357 

353 IF J=0 DR J=128 THEN W=0:GOTO 351 

354 IF N THEN SYS C3,PZ,Z,0,2,B:N=0 

355 IF J>128 THEN GOSUB 34:GDT0 351 

356 GOSUB 122:GOTO 351 

357 A=ASC(A*):IF N THEN SYS C3,PZ,Z,0,2,B: 
N=0 

358 IF A=94 GOTO 362 

359 IF A=95 THEN GOTO 413 

360 IF A=67 THEN SYS CI,B:N=1 

361 GOTO 351 


< 181 > 
<23B> 
<052> 
< 101 > 
< 020 > 
<021 > 
<096> 
< 002 > 
<09B> 
<025> 


< 148> 
<227> 

< 192> 

< 142> 
<093> 

<252> 

<043> 

<031 > 

<136> 

<160> 

<231 > 
<037> 
<038> 

< 113> 
<239> 

< 115> 
<042> 
<037 > 

< 10B> 

< 171 > 
<001 > 

<213> 

< 177> 
<015> 
<050> 
<051 > 

< 126> 
<082> 
< 128> 
<055> 

<0B3> 

< 176> 
< 210 > 
<221 > 

< 142> 
<061 > 

< 136> 

< 115> 

< 138> 
<065> 
<137> 
<005> 
<052> 

< 106> 
<251 > 

< 154> 
<089> 
<216> 
<223> 
<255> 
<013> 

< 104> 
<065> 

<026> 

<042> 

<097> 

< 101 > 

< 163> 


**********************»,**»„*** 
* 3D—ZEICHNEN: TASTENABFRAGE * 

******************************** 


362 U=1:P(0,1)=Z:P(0,0)=PZ:P(0,2)=O:PA=Z:P 
B=0:PC=Z:PD=0:PE=PZ:PF=PZ 

363 GOSUB 378:GOSUB 77 

364 IF A*< >““GOTO 386 

365 IF J=0 OR J=12B THEN W=0:GOTO 363 

366 GOSUB 377:IF J>128 AND U<29 THEN GOSUB 

34:GOTO 363 

367 GOSUB 122:GOTO 363 

368 GOSUB 377:SYS L3,PF,PC,PD,PZ,Z,0,1,B 

369 U=U+1:PC=Z:PD=0:PF=PZ:P(U-1,1)=PC: P < U- 
1,0)=PF:P(U-1,2)=PD 

370 GOTO 363 

371 : 

372 : 

373 REM ******************************** 

374 REM * 3D—LINIEN—BLINKEN * 

375 REM ******************************** 

376 : 

377 IF N=0 THEN RETURN 

378 SYS L3,PE,PA,PB,PZ,Z,0,2,B:IF U=1 THEN 

Nf=l-N: RETURN 

379 SYS L3,PF,PC,PD,PZ,Z,0,2,B:N=l—N:RETUR 
N 

380 : 

381 : 

382 REM 

383 REM 

384 REM 

385 : 

386 A=ASC(A*):IF A=87 OR A=94 GOTO 390 
3B7 IF A<>147 AND A<>95 AND A<>76 AND A<>4 

3 AND A< >70 AND A<>67 GOTO 363 

388 IF A<>147 GOTO 390 

389 POKE 40783,0.-SYS CO,2,0:SYS D3,2,2:G0T 
O 345 

390 IF A=95 GOTO 396 

391 IF A=76 GOTO 405 

392 IF A=43 THEN M=0:GOSUB 347:M=l:GOTO 39 
7 

393 N=l-N:GOSUB 377:N=1-N:IF A=67 THEN SYS 

3I,B:G0T0 363 

394 It- A=94 GOTO 368 

395 GOSUB 62:GOTO 213 

396 IF U<2 GOTO 413 

397 ME=2:GOSUB 321:SYS E,2 

398 M=0:FOR Q=0 TO U-l:IF Q=U THEN X1=X3:Y 
1=Y3:Z1=Z3:GOTO 400 

399 X1=P(O,0):Y1=P(G,1):Z1=P(Q,2):IF M =0 T 
HEN M=1:X3=X1:Y3=Y1:Z3=Z1:GOTO 401 

400 SYS L3,X1,Y1,Z1,X2,Y2,Z2,1,3 

401 GOSUB 78:NEXT 

402 SYS L3,PE,PA,PB,PF,PC,PD,1,3 

403 IF A=43 THEN N=1:U=0:B=2:GOTO 346 

404 N=0:SYS E,1:ME=0:GOTO 118 

405 GOSUB 377:IF U=<1 THEN Z=0:0=0:PZ=0:U= 
0:GOTO 344 

406 SYS CO,2,0:U=U—2:SYS G,182,0,239,9,2,2 
:SYS D3,2,2 

407 M=0:FOR 0=0 TO U 

408 X1=P(Q,0):Y1=P<Q,1):Z1=P(Q,2):IF M=0 T 
HEN GOSUB 347:M=l:GOTO 410 

409 SYS L3,XI,Yl,ZI,X2,Y2,Z2,1,2 

410 GOSUB 78:NEXT 

411 PC=P(U,1):PD=P(U,2):PF=P(U,0):Z=PC:0=P 
D:PZ=PF:U=U+1 

412 GOTO 363 

413 IF U<2 THEN ME=0:SYS E,1:N=0:GOTO 118 

414 : 

415 : 

416 REM ******************************** 

417 REM * FORM 


<07B> 

< 175> 
< 000 > 
<051 > 

< 183> 
<086> 
<204> 

<039> 

<252> 

<093> 

<094> 

< 169> 
<0U> 

< 171 > 
<098> 

< 124 > 

< 166 > 

<035> 

< 102 > 

< 103> 

< 178> 

< 186> 
< 180> 
<107> 
<172> 

<219> 

< 119> 

< 191 > 

< 160> 

< 139> 

<213> 

<232> 

< 102 > 

<240> 

<250> 

< 148> 

<170> 

< 012 > 

<093> 

<236> 

<209> 

< 159> 
<026> 

<218> 

< 149> 
<003> 

<077> 

<098> 

<245> 


***************************»,*** 


41B REM 

419 : 

420 GOSUB 63:GOSUB 69:SYS CO,2,0:ME=0 

421 Z=160:0=100:F0=1:JL=0:C=0 

422 SYS E,1:B=1 

423 ZN=0:IF P THEN DG=MM:ZN=5 

424 GOSUB 72 

425 IF A< >0 GOTO 435 

426 IF Z>99 AND Z<137 AND 0<9 THEN A=95:G0 
TO 435 

427 WQ=1 

42B GOSUB 749:IF C=0 GOTO 424 
429 GOSUB 762:IF C=0 GOTO 424 

Listing 3. Eingabeeinheit (Fortsetzung) 


< 210 > 

<038> 

<007> 

< 136> 

< 137> 
< 212 > 
<227> 
<214> 

< 141 > 
<021 > 
<027> 
<247> 

< 159> 

< 188> 
< 146> 

<096> 

<229> 

<164> 

<228> 
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C 64 


GRAFIK-ERWEITERUNG 


430 

GOSUB 70:SYS UM,C,ZN,DG,D,EI,J,W:GOSUB 


492 

IF S=2 THEN SYS E,0:GOSUB 55:PRINT"<CL 



75 

<237> 


R,DOWN >“; 

< 177> 

431 

IF JL=0 THEN GDSUB 442:GOSUB 334:SYS E 


493 

N*="":INPUT"{DOWN,2RIGHTJAAKR0 - ÜAME C 



,1:SYS CO,2,0 

<052> 


10SPACE>“;N* 

< 113> 

432 

IF JL>0 THEN JL=JL+1 

< 110 > 

494 

IF(N*="+"OR N* =" " ) AND S=2 THEN PRINT" { 


433 

GOSUB 69:IF C=0 GOTO 424 

< 121 > 


2UP > “ ; : GOTO 493 

<073> 

434 

GOTO 428 

< 165> 

495 

GOSUB 79:IF NI THEN K=K-1:A=95:GOTO 46 


435 

GOSUB 769:SYS L,1:SYS E,1«IF SV GOTO 4 



3 

<249 > 


30 

< 202 > 

496 

GOSUB 49:IF NI THEN PRINT"{2UP>";:GOTO 


436 

GOSUB 446:IF JL>1 AND A=133 THEN POKE 



493 

<044> 


RF,14:GOSUB 442:SYS E,1:SYS CO,2,0:JL= 


497 

B*<K)=N* 

<065> 


0 

<096> 

498 

SYS E,1:W=RW*±/180: IF S=2 THEN S=0:GOT 


437 

IF A=95 AND JL>1 THEN POKE RF,14:GOSUB 



0 515 

< 104> 


442:SYS E,1:SYS CO,2,0:JL=0 

<223> 

499 

ZE=4*(U-1)*FC:GOSUB 915:IF F THEN B*<K 


438 

IF A=95 THEN GOSUB 63:GOSUB 70:ME=0:FO 



) = " “:GOTO 484 

< 186> 


=0:GOTO 118 

<005> 

500 

GOSUB 890:Z=0:FOR 1=0 TO W-.000001 STE 


439 

IF A=4B THEN C=10:GOSUB 772:DF=DG:C=ZN 



P W/FC:W=W/FC:W1=SIN(I):W2=C0S <I>:PC=S 



:GOSUB 548:GOTO 430 

< 160> 


IN(I+W) 

< 168> 

440 

GOTO 424 

<042> 

501 

PD=COS(I+W):FOR Q=0 TO U-2 

< 106> 

441 

REM *** NEUE GESAMTDARSTELLUNG ** 

<054> 

502 

SYS C2,V+1,D,K,VB:SYS C2,V+5.D+1,K,VB: 


442 

SYS E,2:B=1:GOSUB 31 

<216> 


D=D+1:V=V+1 

<015> 

443 

GOSUB 67:GOSUB 63 

<015> 

503 

SYS C1,W1*P<Q,1>,W2*P(Q, 1),P(Q,0),V:V= 


444 

IF P=1 THEN GOSUB 59 

<021 > 


V+l 

< 116> 

445 

SYS DA,ZN,DG,1,B:GOSUB 75:G0SUB 69:RET 


504 

SYS CI,PC*P(Q,1),PD*P(0,1),P(Q,0>,V:V= 



URN 

<095> 


V+l 

<21B> 

446 

IF A=133 AND JL=0 THEN JL--l:POK£ RF, 6 : 


505 

SYS CI,PC*P<Q+1,1),PD*P(D+l,1),P<Q+1,0 



RETURN 

< 136> 


),V:V=V+1 

<014> 

447 

IF A=133 AND JL=1 THEN JL=0:POKE RF,14 

<241 > 

506 

SYS C1,W1*P(Q+1,1>,W2*P(0+1,1),P<Q+1,0 


448 

RETURN 

<252> 


>,v 

<032> 

449 

- 

< 171 > 

507 

u 

fc 

? 

3 

£ 

£ 

< 154> 

450 

j 

< 172> 

508 

NEXT:DG=K 

<086> 

451 

REM ******************************** 

<247> 

509 

2 

<231> 

452 

REM * ROTATION: 2D-EINGABE * 

<073> 

510 

: 

<232> 

453 

REM ******************************** 

<249> 

511 

REM ******************************** 

<051 > 

454 

- 

< 176> 

512 

REM * MAKROS EINFUEGEN * 

< 220 > 

455 

U=0:GOSUB 64:ME=3 

<019> 

513 

REM ******************************** 

<055> 

*8 

GOSUB 65:SYS TI,2:GOSUB 66 :SYS G,43,0, 


514 

- 

<238> 


98,9,2,2 

<043> 

515 

Z=159:0=100:JL=0:C=0 

< 105> 

457 

SYS D4,2,2:SYS 22659,1,2:SYS E,2 

<050> 

516 

IF JL=0 THEN GOSUB 539 

<013> 

458 

IF P THEN GOSUB 61 

<204> 

517 

IF JL>0 THEN JL=JL+1:SYS FL,4:GOSUB 69 

<223> 

459 

Z=160:0=170:B=2 <099> 

51S 

C<>0 GOTO 524 

<252> 

460 

SYS J2,Z,0,1:GOSUB 73 <180> 

519 

ükJSUB 72 

<029> 

461 

IF A<>0 GOTO 463 

< 180> 

520 

IF A< >0 GOTO 528 

<254> 

462 

GOTO 467 

<224> 

521 

IF Z>43 AND Z<98 AND CK9 AND AS=0 THEN 


463 

IF A=95 THEN SYS E,l:GOSUB 64:ME=0:GOT 



A=95:GOTO 528 

<083> 


0 118 

<05B> 

522 

IF Z>137 AND Z<182 AND CK9 AND AS THEN 


464 

IF A=67 THEN SYS CI,B 

<105> 


A=95:GOTO 528 

<008> 

465 

IF A=147 THEN SYS E,2:P0KE 40783,0:GOT 


523 

WQ=1 

<071 > 


0 456 

< 110 > 

524 

GOSUB 749:IF C=0 GOTO 519 

<055> 

466 

GOTO 460 

<004> 

525 

GOSUB 762:IF C=0 GOTO 519 

< 119> 

467 

N=0:U=1:P(0,0)=Z—160:P <0,1)=180—0:PA=Z 


526 

SYS L,1 

<214> 


:PB=D 

< 190> 

527 

GOSUB 70:SYS UM,C,3,DG,D,EI,J,W:GOSUB 


468 

GOSUB 143:GOSUB 77:IF A*<>“"GOTO 152 

< 133> 


75:GOTO 516 

<08B> 

469 

IF J=0 THEN W=0:GOTO 468 

< 121 > 

528 

IF <A=95 OR A=43)AND JL>1 THEN POKE RF, 


470 

GOSUB 142:IF J=128 AND U<29 THEN GOSUB 



14:SYS L,l:GOSUB 539:JL=0 

<047> 


473:GOTO 468 

<103> 

529 

IF A=76 AND JL>0 THEN POKE RF,14:JL=0 

<046> 

471 

GOSUB 122:IF O>180 THEN 0=180 

<015> 

530 

IF A=95 THEN SYS L,1:SYS C0,1,1:G0T0 5 


472 

GOTO 468 

<011> 


43 

<081 > 

473 

IF PA=Z AND PB=0 THEN RETURN 

< 197> 

531 

GOSUB 446:IF A=133 AND JL>1 THEN POKE 


474 

IF U>48 THEN RETURN 

< 196> 


RF,14:JL=0:SYS L,l:GOSUB 539 

< 13B> 

475 

SYS LI,Z,0,PA,PB,2,2 

<052> 

532 

IF A=76 THEN GOSUB 268:ME=1:K=K-1:GOTO 


476 

PA=Z:PB=0:P(U,0> =Z—160:P(U,1)=180—0:U= 



543 

< 150> 


U+l:RETURN 

< 159> 

533 

IF A=43 THEN K=K+1:S=2:GOSUB 290:SYS E 


477 


<199> 


,1tIF F THEN A=95:GOTO 528 

<039> 

478 

s 

< 200 > 

534 

IF A=43 THEN DG=K:GOTO 492 

<071 > 

479 

REM ******************************** 

<019> 

535 

IF A=48 THEN C=10:GOSUB 772:DF=K:C=3:G 


480 

REM * ROTATION: EINFUEGEN <3D> * 

< 202 > 


OSUB 548:GOTO 527 

<030> 

481 


<021 > 

536 

GOSUB 769:SYS E,1:IF SV GOTO 526 

< 144> 

482 


<204> 

537 

GOTO 519 

<03B> 

483 

SYS E,0:GOSUB 55:K=K+1 

<092> 

538 

REM *** NEU DARSTELLEN ********** 

< 114> 

484 

GOSUB 41:GOSUB 43:PRINT"{HOME,DOWN,SPA 


539 

GOSUB 65:B=2 

< 1B7> 


CE,RVSON, 6 SPACE >ÄDTATIONSKOERPER ERSTE 


540 

SYS DA,3,DG,1,B 

<076> 


LLEN{ 6 SPACE,RVOFF,SPACE >" 

< 202 > 

541 

SYS CO,2,2:GOSUB 69:F0=2 

133> 

485 

FC=0:INPUT"IDOWN,2RIGHTIANZAHL DER £AC 


542 

SYS FL,4:RETURN 

<207> 


ETTEN f3SPACE >";FC 

<035> 

543 

GOSUB 70:FO=0:C=0:EI=0:IF AS=0 THEN GO 

486 

IF FC<3 THEN PRINT"<2UP>"::GOTO 485 

< 147> 


SUB 64 

<254> 

487 

INPUT"{DOWN,2RIGHT >iDTATIONSWINKELI9SP 


544 

IF P AND AS THEN AS=0:RETURN 

<015> 


ACEJ360 C5LEFT}":RW 

< 137> 

545 

IF AS< >0 THEN AS=0:GOSUB 59 

<023> 

488 

IF ABS(RW)>360 THEN PRINT“<2UP>";:GOTO 


546 

ME=0:GOTO 118 

< 123> 


487 

< 200 > 

547 

REM *** '0' BEI UMFORMUNGEN ***** 

< 172> 

489 

INPUT"{DOWN,2RIGHT > ÜERBINDUNGSVORSCHRI 


548 

GOSUB 70:SYS UM,1,C,DF,D,1,0,W:SYS UM, 



FT{3SPACE >0{3LEFT>";VB 

<108> 


2,C,DF,D,1,0,W:EI=1:C=3:SYS E,l:RETURN 

< 109> 

490 

IF VB<0 OR VB>3 THEN PRINT" {2UP>GOT 


549 

2 

<017> 


0 489 

<090> 

550 

s 

<018> 

491 

IF PO0 GOTO 498 

<100> 


Listing 3. Eingabeeinheit (Fortsetzung) 





SONDERHEFT 6/86 


45 








GRAFIK-ERWEITERUNG 


064 


551 REM ******************************** 

552 REM * MAKRO - HAUPTMENUE * 

553 REM ******************************„ 

554 : 

555 GOSUB 41 

556 PR I NT " {SPACE . RVSON . 11 SPACE 1 IIH K * 0 -flAUP 
TMENUE£10SPACE,RVOFF>" 

557 GOSUB 42 

558 PRINT“£HOME,5D0WN, 6 RIGHT >fl.flAKRO LADEN 


559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 


PRINT"(DOWN, 6 RIGHT>B.flAKRO SPEICHERN" 
PRINT"(DOWN, 6 RIGHT >£.£1SKETTENKOMMANDO 
SENDEN" 

PRINT"(DOWN, 6 RIGHT > £.flAKROS AUF SISKET 
TE“ 

PRINT"(DOWN, 6 RIGHT>£.flAKROS IM SPEICHE 
R" 

PRINT"(DOWN, 6 RIGHT>£.flAKRO ERSTELLEN" 
PRINT"(DOWN, 6 RIGHT>£.flAKRO EINFUEGEN" 
PRINT"(DOWN, 6 RIGHTJfl.ALLES ERSTELLTE A 
LS flAKRO" 

GOSUB 81:IF <A<65 OR A>72)AND A<>95 GOT 
O 566 

IF A=95 THEN SYS E,1:0PEN 1,8,15,“U9": 
CLOSE 1:G0T0 118 

ON A—64 GOTO 664,644,695,706,625,575,5 

88,614 

I 

REM ******************************** 
REM * MAKRO ERSTELLEN * 

REM ******************************** 

IF P=1 GOTO 566 
GOSUB 41:GOSUB 43 

PRINT"(SPACE,RVSON,11SPACEIflAKRO ERSTE 
LLEN£12SPACE,RVOFF,SPACE >“ 

GOSUB 890:GOSUB 44:IF NI GOTO 555 
GOSUB 49:IF NI THEN PRINT“(5UPJ“::GOTO 
578 

B*(K+1)=N* 

P=1:K=K+1:MM=K:SYS E,1:ZW=D:GOTO 108 


590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

60B 

609 

610 
611 
612 

613 

614 

615 


REM ******************************** 
REM * MAKRO EINFUEGEN * 

REM ******************************** 

IF K=0 GOTO 566 

GOSUB 41:GOSUB 43:PRINT"(SPACE,RVSON,1 
1SPACE JflAKRO EINFUEGEN£12SPACE,RVOFF,H 
OME > “ 

GOSUB 44:IF NI GOTO 555 
IF N*OB*(MM)GOTO 598 
IF D=ZW THEN AS=1:P=0:SYS DA,0,V,1,1:S 
YS E,lsK=K—1:GOTO 543 

FOR 1=1 TO D:SYS D2,I:SA=USR(2):IF SA> 
MM THEN SYS C2,USR(1),I,MM,USR(3) 

NEXT 

ZN=4:DG=MM:5YS H,11,15,1:SYS T1,1:G0SU 
B 67:SYS MU,1:SYS KR,1,1 
AS=1:GOSUB 59:SYS DA,ZN,DG,1,1 
SYS E,1:P=0:K=MM:MM=0:DG=K:GOTO 515 
GOSUB 49:IF NI GOTO 600 
GOSUB 51:GOTO 555 
DG=N1:1=1:K=K+1:IF P=1 THEN 605 
GOSUB 52:IF NI THEN K=K-1:G0T0 555 
GOSUB 49:IF NI THEN PRINT"(5UP>GOTO 
601 

B*(K)=N*: 1 = 1 

GOSUB 918:GOSUB 915:IF F THEN K=K-1:G0 
TO 555 

S=2:GOSUB 291:AS=1:ZN=4:DG=K:GOSUB 65: 
B=1:IF P GOTO 607 

GOSUB 59:GOSUB 515:AS=0:GOSUB 59:GOTO 
118 

GOSUB 515:AS=0:GOTO 118 


REM ******************************** 
REM * ALLES ERSTELLTE ALS MAKRO * 
REM ******************************** 

IF D=1 OR P GOTO 566 

GOSUB 41:GOSUB 43:PRINT"(SPACE,RVSON ,6 


<093> 
< 162> 
<095> 
< 022 > 
<025> 

<037> 

<043> 

< 103> 
<007> 

< 112 > 

<004> 

<205> 
< 181 > 
< 222 > 

<24B> 

<005> 

< 195> 

<156> 

<037> 

<03B> 

< 113> 
<049> 

< 115> 
<042> 
<226> 
<037> 

<029> 

< 175> 

<040> 

<135> 

< 196> 
<050> 
<051 > 
<126> 
<206> 
<128> 
<055> 

< 167> 


<241 > 
<208> 
<047> 

<246> 

< 189> 
<096> 

<096> 

<063> 

< 001 > 

<1B0> 

<047> 

<1B8> 

<243> 

<026> 

<048> 

< 13B> 
<227> 

<043> 

< 152> 
<076> 
<077> 
<152> 
< 222 > 

< 154> 
<081 > 
<219> 


SPACE>ALLES ERSTELLTE ALS flAKRO(7SPACE 
,RVOFF,SPACE>" 

616 GOSUB 44:IF NI GOTO 555 

617 B*(1)=N*:F0R 1=1 TO D:SYS D2,I:Q=USR<1 
):VB=USRC3):SYS C2,Q,I,1,VB:NEXT 

618 K=1:SYS E,1:G0T0 118 

619 : 

620 : 

621 REM ******************************** 

622 REM * MAKROS IM SPEICHER * 

623 REM ******************************** 

624 : 

625 ZA=0:A=1:E1=19:MR=K:IF P=1 THEN MR=MM 

626 IF MR=0 GOTO 566 

627 GOSUB 41 

628 PRINT"(SPACE,RVSON,10SPACE TflAKROS IM £ 
PEICHER(10SPACE,RVOFF,SPACE >";:IF E1>M 
R THEN E1=MR 

629 GOSUB 42:N1*=STR*(1322-V):N1*=RIGHT*(" 
0000"+RIGHT$(NI*,LEN <N1*)-1>,4) 

630 PRINT"(HOME,2D0WN>“:FOR I=ZA TO 18:PRI 
NT“(11RIGHT,19SPACEJ":NEXT 

631 PRINT"(HOME,2D0WN>”:FOR X=A TO El 

632 PRINT"(3RIGHT,10SPACE5";LEFT* <B* <X> + “. 
.",14):NEXT 

633 IF E1=MR THEN PRINT"£3RIGHT,5SPACE>“N1 
*" ECKPUNKTE FREI“ 

634 GOSUB 47 

635 IF E1=MR GOTO 555 

636 A=E1+1:E1=A+1B:IF El>MR THEN E1=MR:IF 
A>MR THEN A=MR-1 

637 GOTO 630 

638 : 

639 : 

640 REM ******************************** 

641 REM * MAKRO SPEICHERN * 

642 REM ******************************** 

643 : 

644 IF K=0 GOTO 566 

645 GOSUB 41 

646 PP 1 NT“(SPACE,RVSON,12SPACE>flAKRO SPEIC 
HfcrtNO 1 SPACE, RVOFF, SPACE >" 

647 GOSUB 44:IF NI GOTO 555 

648 GOSUB 49:IF NI GOTO 650 

649 PRINT"(UP>“:GOSUB 51:GOTO 555 

650 N2=N1:PRINT:PRINT"(2D0WN,22RIGHT>"N*”{ 
UP>“ 

651 N*= “ : INPUT » (3RI GHT >£I LE (2SPACE >- flAME 
(5SPACE>";N*:GOSUB 79:IF NI GOTO 555 

652 IF LEN(N$)>13 THEN PRINT"£UP}";:GOTO 6 
51 

653 GOSUB 918:OPEN 2,8,2,"MA."+N*+",S,W“:G 
OSUB 684: IF FO0 GOTO 555 

654 PRINT#2,ZE:IF ST GOTO 656 

655 PRINT#2,N*:SYS 21301,D,N2 

656 CLOSE 2:CLOSE 1:GOSUB 684:IF F=0 THEN 
GOSUB 688 

657 GOTO 555 

658 : 

659 : 

660 REM ******************************** 

661 REM * MAKRO LADEN * 

662 REM ******************************** 

663 : 

664 GOSUB 41:GOSUB 43 

665 PRINT"(SPACE,RVSON,14SPACE>flAKRO LADEN 
(13SPACE,RVOFF,SPACE >" 

666 GOSUB 890:N*= INPUT"(3D0WN,3RIGHT>£I 

LE - flAME£5SPACE>":N*:GOSUB 79: IF NI G 
OTO 555 

667 IF LENIN*)>13 THEN PRINT"£4UP>";:GOTO 
666 

668 OPEN 2,8,2,“MA."+N*+",S,R":GOSUB 684:1 
F F< >0 GOTO 555 

669 INPUT#2,ZE:IF ST GOTO 674 

670 GOSUB 915:IF F THEN CLOSE 2:CLOSE 1:G0 
TO 555 

671 INPUT#2,N*:IF ST GOTO 674 

672 K=K+1:IF P=0 THEN B*(K)=N* 

673 SYS 21006,D,V,K 

674 CLOSE 2:CLOSE 1:GOSUB 684:IF F=0 GOTO 
676 

675 K=K—1:GOTO 555 

676 GOSUB 688:D=PEEK(2026)+256*PEEK(2027): 

Listing 3. Eingabeeinheit (Fortsetzung) 


<201 > 
<234> 

<105> 

< 220 > 

<087> 

<0B8> 

< 163> 
<204> 

< 165> 
<092> 
<005> 
< 210 > 
<097> 


<025> 

<250> 

<072 > 
<094> 

<226> 

<213> 

< 200 > 

<044> 

< 107> 
<145> 

< 106> 

< 107> 

< 182> 

< 177> 

< 184> 
<111> 
<223> 

< 115> 

<216> 

<009> 

<014> 

< 198> 

< 198> 
<023> 
<049> 

<026> 

< 100 > 

< 124> 

<047> 

<093> 

<126> 

< 127> 
< 202 > 
< 212 > 
<204> 

< 131 > 

< 125> 

<248> 


<236> 

< 191 > 

<232> 

<227> 

<229> 

<027> 

<072> 

<049> 

< 136> 

< 107> 
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V=PEEK(2028)+256*PEEK(2029) 

<207> 

745 REM ******************************** 

<031 > 

677 

GOTO 735 

<097> 

746 REM * ANGEWAEHLTES SYMBOL * 

< 152 > 

67B 

s 

<146> 

747 REM ******************************** 

<033> 

679 

8 

< 147> 

748 : 

<216> 

680 

REM ********************************* 

< 222 > 

749 IF Z >=159 OR O<=100 THEN C=0:RETURN 

<029> 

681 

REM * DISK - STATUS * 

<040> 

750 IF Z<50 THEN PA=3:PC=49:PE=1:GOTO 753 

<068> 

682 

REM *#*#**»*##*#■******»**#*#*#****** 

<224> 

751 IF Z<100 THEN PA=50:PC=99:PE=3:GOTO 75 


683 

8 

< 151 > 

3 

<083> 

684 

OPEN 1,8,15:INPUT#1,F,F$,T,S:IF F=0 TH 


752 PA=100:PC=156:PE=2 

< 200 > 


EN RETURN 

<242> 

753 IF 0<135 THEN PB=102:PD=134:PF=2::GOTO 


6B5 

PRINT:PRINT"C2D0WN,3RIGHT,RVSON 1SISKET 


756 

<090> 


TENFEHLER 

< 117> 

754 IF Q<165 THEN PB=135:PD=164:PF=1:GOTO 


686 

PRINT"<2D0WN,2RIBHT>"F","F$","T","S 

< 120 > 

756 

< 222 > 

687 

GQSUB 47 

<253> 

755 PB=165:PD=196:PF=0 

<077> 

688 

CLOSE 2:PRINT#1,"U9":CLOSE 1:RETURN 

<078> 

756 C=PF*3+PE:RETURN 

<067> 

689 

s 

< 157> 

757 : 

<225> 

690 

8 

< 158> 

758 : 

<226> 

691 

REM ******************************** 

<233 > 

759 REM ******************************** 

<045> 

692 

REM * DISKETTENKOMMANDO SENDEN * 

< 179> 

760 REM * VERFORMUNG UEBER JOYSTICK * 

< 181 > 

693 

REM #**•********#****#***•»*•»*##*#*»** 

<235> 

761 REM ******************************** 

<047> 

694 

: 

<162> 

762 IF WQ AND EI=0 THEN WQ=0:B=3:GOSUB 334 

<075> 

695 

GOSUB 41:GOSUB 43 

< 156> 

763 GOSUB 77 

< 097 > 

696 

PRINT"ISPACE,RVSON,7SPACE>31SKETTENKOM 


764 IF J=128 THEN 767 

<031 > 


MANDO SENDEN C7SPACE,RVOFF,SPACE >" 

<016> 

765 IF INT(J/2)=J/2 THEN 763 

< 129> 

697 

POKE 631,34:POKE 198,1:N*=.INPUT"<2D 


766 J=INT(J/2)+1:RETURN 

< 179 > 


0WN,3RIGHT>KOMMANDO ";N*:GQSUB 79:IF N 


767 B=3:GOSUB 334:C=0 

<229> 


1 GOTO 555 

< 194> 

768 RETURN 

<064> 

698 

OPEN 1,8,15,N$:INPUTttl,F,F*,T,S:PRINT" 


769 IF A<49 OR A>57 THEN C=0:SV=0:RETURN 

<056> 


C2D0WN,3RIGHT,RVSON > 31SKETTENSTATUS : " 

< 106 > 

77 H A=A—48:XA=INT((9-A)/3)*3:XB=A-INT((A-l 


699 

GOSUB 686 :GOTO 555 

< 180> 

)/3)*3 

< 100 > 

700 

: 

< 168> 

771 XB=3+(XB<2)*2+(XB>2)*1 : C=XA+XB:SV=C:WQ 


701 

: 

< 169> 

= 1 

<077> 

702 

REM ******************************** 

<244> 

772 EI=1 : SYS L,1:SYS E,0:GOSUB 55:IF C=10 


703 

REM * MAKROS AUF DISKETTE * 

<053> 

GOTO 775 

< 02 B> 

704 

REM ******************************** 

<246> 

773 IF 06 THEN INPUT"£CLR,2D0WN,3RIGHT>3R 


705 

8 

< 173> 

EHWINKEL C3SPACE >90 C4LEFT >"; W : GOTO 776 

< 010 > 

706 

GOSUB 41 

< 176> 

774 IF 03 THEN INPUT"£CLR,2D0WN,3RIGHT>ÄE 


707 

PRINT"CSPACE,RVSON,9SPACEJflAKROS AUF 3 


RSCHIEBUNGSSUMMANDC3SPACE>50 £4LEFT>" ; W 



I SKETTE £ 10SPACE,RVOFF,SPACE >"; 

< 195> 

: GOTO 776 

<037> 

708 

PRINT : OPEN 2,8,0,"$0:MA.*=SEQ" : SYS 261 


775 INPUT"CCLR,2D0WN,3RIGHT > J4ERZERRUNGSFAK 



34:CLOSE 2 

\\flDo 

. R€3SPACE>1-5i5LEFT>' ; W:BUTu //ö 


709 

GOSUB 684:CLOSE 2:CLOSE 1:IF F=0 THEN 


776 IF W=0 THEN C=0:SV=0;E1=0:SYS FL,4 

< 012 > 


GOSUB 47 

<015> 

777 RETURN 

<073> 

710 

GOTO 555 

<146> 

778 : 

<24B> 

711 

• 

<179> 

779 : 

<249> 

712 

5 

<180> 

780 REM ******************************** 

<068> 

713 

REM ******************************** 

<255> 

781 REM * HAUPTMENUE LOESCHEN * 

<216> 

714 

REM * PARAMETER-UEBERGABE * 

<226> 

782 REM ******************************** 

<070> 

715 

REM ******************************** 

< 001 > 

783': 

<253> 

716 

8 

<184> 

784 GOSUB 56 

<08B> 

717 

W2=INT(W/256):W1=W-256*W2:POKE A+I,W1: 


785 GOSUB 41 

<001 > 


POKE A+I+1,W2:1=1+2:RETURN 

<092> 

786 PRINT"CSPACE,RVSON,BSPACE>HAUPTMENUE 


718 

POKE RF,15 

< 145> 

LOESCHEN•C9SPACE,RVOFF,SPACE >"; 

<007> 

719 

PRINT CHR*(14)CHR*(8)"<CLR,GREY 1,12D0 


787 GOSUB 42 

<019> 


WN,BSPACE >3YSTEMDISKETTE EINLEGEN !" 

< 0 B 6 > 

788 PRINT"CHOME, 6 DQWN, 6 RIGHT >fl. fLAECHEN D 


720 

GOSUB 47: IF A*="+"THEN RETURN 

< 171 > 

URCHBLAETTERN“ 

< 104> 

721 

OPEN 2,8,2,"CAD.MAIN,P,R":CLOSE 2:GOSU 


789 PRINT"£D0WN,6RIGHT>3. AAKROS DURCHBLAE 


B 684:IF F THEN A$="+":RETURN 

< 102 > 

TTERN" 

<09B> 

722 

PRINTttl,"U9":CLOSE 1:RETURN 

<205> 

790 PRINT"CDOWN, 6 RIGHT>£. JEKANNTES AAKRO 


723 

FOR X=1 TO K:FOR Y=1 TO 13:W=PEEK(A+Y) 


LOESCHEN" 

< 121 > 


:IF W=254 THEN Y=13:G0T0 725 

< 101 > 

791 PRINT"CDOWN, 6 RIGHT >3- ALLES LOESCHEN 1 

<018> 

724 

B*(X)=B*(X)+CHR*(W> 

< 179> 

792 PRINT" CDOWN, 6 RI GHT >£. VERB INDUNGS VORSC 

725 

NEXT Y:A=A+14:NEXT X:A=49153:RETURN 

<231 > 

HRIFT" 

<214> 

726 

IF K=0 THEN RETURN 

< 195> 

793 GOSUB 81:IF(A<65 OR A>69)AND A<>95 GOT 

727 

FOR X=1 TO K:FOR Y=1 TO LEN(B*(X)):POK 


0 793 

<105> 


E A+Y,ASC(MID*(B$(X),Y,1)):NEXT Y 

<237> 

794 IF A=95 GOTO 880 

<035> 

728 

POKE A+Y,254:A=A+14:NEXT X:A=49153:RET 


795 ON A-64 GOTO 802,82B,854,866,877 

< 177> 


URN 

<226> 

796 : 

< 010 > 

729 

: 

< 197> 

797 : 

< 011 > 

730 

s 

< 198> 

798 REM ******************************** 

<086> 

731 

REM ******************************** 

<017> 

799 REM * FLAECHEN DURCHBLAETTERN * 

<066> 

732 

REM * GELADENENS MAKRO EINFUEGEN * 

< 154> 

800 REM ******************************** 

<022> 

733 

REM ******************************** 

<019> 

801 : 

<015> 

734 

: 

< 202 > 

802 IF D=1 GOTO 793 

< 101 > 

735 

N*=B*(K):IF P GOTO 741 

<252> 

803 SYS E,1:F=1: JL=0:N1=D-1:M0=1 

<031 > 

736 

GOSUB 49: IF NI OK GOTO 738 

< 188> 

804 GOSUB 92 

<076> 

737 

GOTO 740 

<013> 

805 IF A =86 THEN SYS D2,F:SYS C2,USR(1),F 


738 

PRINT"C2D0WN>":GOSUB 52:B*(K)=N* 

<004> 

USR(2),VB 

<223> 

739 

PRINT"£ 8 UP>";:GOTO 736 

< 171 > 

806 IF A=95 AND JL>0 THEN POKE RF,14:GOSUB 

740 

I=1:DH=K:DG=K:MM=K:AS=1:GOSUB 59:GOTO 


820:GOSUB 56:GOTO 118 

< 162> 


597 

<064> 

807 IF A=95 THEN SYS L,l:GOSUB 56:GOTO 118 <031> 

741 

B*(K)="“ 

<007> 

808 GOSUB 446:IF A=133 AND JL>1 THEN JL=0 


742 

1=1:DH=K:GOTO 605 

< 101 > 

POKE RF,14:GOSUB 820:F=F-1:GOTO 804 

< 142> 

743 

: 

<211 > 

809 IF A=94 GOTO 814 

<244 > 

744 

8 

< 212 > 

Listing 3. Eingabeeinheit (Fortsetzung) 
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810 

811 

812 

813 

814 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 


IF A=76 AND JL>0 THEN JL=JL+1sDG=F:SYS 
L,1:GOSUB 254:F=F-1:N1=D-1:GOTO 804 
IF A=76 GOTO 818 
SYS FL,4:GOSUB 97:GOTO 805 
REM ***** •t• ******************* 

POKE RF,14:SYS L,1:B=2:GOSUB 31 
GOSUB 56:DG=F:SYS G,0,0,42,9,2,3 
SYS DA,2,DG,1,2:SYS CO,1,0:U=2:GOTO 21 
4 

REM *********** *L* ************* 

SYS L,1:B=2:GOSUB 31:GOSUB 58:DG=F 
SYS DA,2,DG,1,2:SY5 E,2:SYS CO,1,0:SYS 
E,l:GOSUB 254:N1=D-1:GOTO 804 
SYS L,1:B=2:GOSUB 31:GOSUB 58:SYS DA,0 
,D,1,2:SYS E,2 
SYS CO,1,0:SYS E,l:RETURN 
: 

: 

REM ******************************** 
REM * MAKROS DURCHBLAETTERN * 

REM ******************************** 

IF K=0 GOTO 793 

SYS E,1:F=1:M0=3:N1=K 

GOSUB 92 

IF A=95 THEN SYS L,l:GOSUB 56:GOTO 118 
IF A< >86 GOTO 836 

FOR 1=1 TO D:SYS D2,I:IF USR(2)OK GOT 
0 835 

SYS C2,USR <1),I,USR(2) ,VB 

NEXT I-.SYS E, 1 

IF A=94 GOTO 840 

IF A=76 GOTO 845 

SYS FL,4:GOSUB 97:GOTO 831 

REM ******* 't’ ***************** 

SYS L,1:SYS CO,2,0:SYS E,2 

B$=B$(F):GOSUB 61:AS=0:ZN=0:GOSUB 58 

B=1:GOSUB 31:GOSUB 59:DG=F:SYS DA,4,DG 

,1,1:SYS E,1 

AS=1:GOTO 515 

REM ******* 'L' ***************** 

SYS L,1:SYS CO,2,0:SYS E,2:G0SUB 58 
B=l:GOSUB 31:SYS DA,4,F,1,1:SYS E,1 
DG=F:GOSUB 268:K=K-1:N1=K:GOTO 118 


857 

858 

859 
B60 
861 
862 
863 
B64 

865 

866 


REM ******************************** 
REM * BEKANNTES MAKRO LOESCHEN * 
REM ******************************** 

IF K=0 GOTO 793 
GOSUB 41:GOSUB 43 

PRINT"{SPACE,RVSQN,2SPACEJflAKRÜ MIT BE 
KANNTEM MAMEN LOESCHEN{2SPACE,RVOFF,SP 
ACEJ":GOSUB 44 
IF NI GOTO 785 

GOSUB 49:IF NI THEN F=N1:M0=3:N1=K:GOT 
0 830 

SYS E,l:GOSUB 56:GOTO 118 

REM ******************************** 
REM * ALLES LOESCHEN * 

REM ******************************** 

: 

PRINT"{5D0WN.6RIGHT,RVSON)SIND SIE SIC 
HER 7 {RVOFF,2SPACE >”: 

GOSUB 47 

PRINT A$:IF ASO"J"GOTO 870 
SYS 25919:CLR:D=1:GOTO 12 
GOSUB .56:SYS E,l:GOTO 118 


867 

868 

869 

870 

871 

872 

873 

874 __ 

875 REM ******************************** 

876 

877 

878 


REM ******************************** 
REM * VERBINDUNGSVORSCHRIFT * 


879 

880 
881 
882 


1=1:GOSUB 41:GOSUB 43 

PRINT"{SPACE,RVSON,3SPACEJflOMENTANE{2S 
PACE JJJERBINDUNGSVORSCHRIFT C3SPACE,RVOF 
F,SPACEJ" 

GOSUB 84 

SYS E,l:GOSUB 56:GOTO 118 


<091 > 
<069> 
<066> 
<249> 
<071 > 
<047> 

< 183> 
<241 > 
<204> 

<216> 

<0U> 

< 175> 
<036> 
<037> 

< 112 > 

< 140> 

< 114> 
<041 > 

< 151 > 
<237> 
< 102 > 
<055> 
<142> 

<027> 
<201 > 

< 171 > 
<005> 
<089> 
<026> 
<031 > 
<027> 
<017> 

<149> 

<254> 

< 148> 

< 125> 
<057> 

< 167> 
<062> 
<063> 

< 138> 
<052> 

< 140> 
<067> 

< 177> 
<062> 


<218> 
<097 > 

<251 > 
<093> 
<074> 
<075> 
<150> 

< 139> 

< 152> 
<079> 

< 127> 

< 179> 
<068> 

< 141 > 
<071 > 
<085> 
<086> 

< 161 > 

< 113> 

< 163> 
<090> 

< 179> 


< 112 > 

< 175> 

< 114> 
<095> 
<096> 


883 REM ******************************** 

884 REM * MEHR ALS 63 MAKROS ? * 

885 REM ******************************** 

886 : 

887 SYS L,l:1=1:SYS E,0:GOSUB 55:G0SUB 41 

888 PRINT"{CLR}":GOSUB 84 
B89 SYS FL,4:RETURN 

890 IF K<64 AND MM<64 THEN RETURN 

891 FOR 1=1 TO D:SYS D2,I:GOSUB 74:IF SAO 
0 THEN SA=SA-1 

892 SYS C2,XA,I,SA,VB:NEXT:FOR 1=2 TO MM:B 
4(1-1)=BS(I):NEX T:MM=MM-1:K=K-1:RETURN 

893 : 

894 : 

895 REM ******************************** 

896 REM * PARAMETER CODIEREN * 

897 REM ********************************* 

898 GOSUB 718: IF A*="«-"THEN SYS E,l:POKE R 
F,14:GOTO 118 

899 A=49153:POKE A+919,255:I=900:W=K:GOSUB 

717:W=D:GOSUB 717:W=V:GOSUB 717 

900 GOSUB 726:POKE 836,0:PRINT"{GREY 3,CLR 
JLOAD"CHRS(34)"CAD. MAIN"CHRS(34)", 8 " 

901 PRINT"{4D0WNJRUN:":POKE 631,19:POKE 63 
2,13:POKE 633,13:POKE 198,3:NEW 

902 : 

903 : 

904 REM ******************************** 

905 REM # PARAMETER DECODIEREN * 

906 REM ******************************** 

907 A=49153:K=PEEK(A+900 >+256*PEEK(A+901): 
D=PEEK(A+902)+256*PEEK(A+903) 

908 V=PEEK(A+904)+256*PEEK(A+905):GOSUB 72 
3:RETURN 

909 : 

910 : 

911 REM ******************************** 

912 REM * ZU VIELE DATEN ? * 

913 REM ******************************** 

914 : 

915 IT V+ZE<1320 THEN F=0:RETURN 

916 F=1:SYS L,1:SYS E,0:GOSUB 55:PRINT"{CL 
R,3D0WN,4SPACETEUER DIESE .OPERATION RE 
ICHT DER " 

917 PRINT“{DOWN,5SPACEJOPEICHERPLATZ NICHT 

MEHR AUS!":GOSUB 47:RETURN 

918 ZE=0:FOR 1=1 TO D-1:SYS D2,I:SR=USR(1) 

919 IF USR(2)=DH THEN SYS D2,1+1:ZE=ZE+USR 
(1)-SR 

920 NEXT I:RETURN 


< 171 > 
<064> 

< 173> 
< 100 > 
<171 > 

< 102 > 
<044> 
<045> 

< 138> 

<017> 

< 107 > 

< 108 > 

< 183> 

< 185> 
< 010 > 

< 105> 

< 190> 
<079> 

< 020 > 

< 116> 

< 117> 
<192> 
< 011 > 
<194> 

< 153> 

< 156> 
<123> 
<124> 

< 199> 
<106> 
<201 > 
<128> 
<213> 


<083> 

< 100 > 
< 106> 

< 128> 
< 102 > 


Listing 3. Eingabeeinheit (Schluß) 


5 REM ********************************** 
10 REM * GIBA-CAD GRAPHIC-SYSTEM * 

15 REM * 'CAD.PAINT' • 

20 REM * BY S. VILSMEIER & S. LIPPSTREU * 
25 REM ********************************** 
30 : 

35 : 

40 A=PEEK(836)+1:POKE 836,A:IF A=1 THEN PO 
KE 55,0:POKE 56,56«CLR:A=1 
45 IF A=1 THEN L0AD"HIRES5.CAD.OBJ”,8,1 
50 IF A=2 THEN L0AD"HIRES7.CAD.OBJ",8,1 
55 DIM 0(30,3),B*(64):C1=39718:D1»40052:D2 
=40344 

60 PRINT"{CLR,BLACK)"jiIF DF-0 THEN GOSUB 
1305 
65 i 
70 : 

75 REM ********************************** 
80 REM * SPRUNGTABELLE BZUEBL. GR * 

85 REM ********************************** 
90 : 

95 SYS 37021:OPEN 1,8,15,“XR-“:PRINT#1,”U9 
":CLOSE 1:POKE 192,192 
100 IF GROl THEN INPUT" {CLR,GREY 1.4DOWN, 
4RIGHT)£ILE - 1JAME NS:PRINT"{CLR)" 
105 GOSUB 995:IF GR<>.5 AND WQ THEN GOSUB 
870 

110 G1=GR*H:62=G1:IF GR=1 GOTO 425 


<042> 

<236> 

<0B3> 

<141> 

<062> 

<006> 

< 011 > 

<223> 

<238> 

<147> 

< 138> 

< 151 > 
<041 > 
<046> 

< 112 > 

< 109> 

< 122 > 
<066> 

<003> 

<091 > 

< 104> 

< 141 > 


Lieting 4. Schattierungsroutine 
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115 IF GR=2 AND RI=1 GOTO 165 <213> 

120 IF GR=2 AND RI=0 GOTO 370 <208> 

125 IF GR—. 5 GOTO 220 <187> 

130 IF GR=3 GOTO 460 <085> 

135 : <111> 

140 2 <116> 

145 REM ********************************* <020> 

150 REM * 10 - FACHE AUFLOESUNG * <0B9> 

155 REM ********************************* <030> 

160 : <136> 

165 Gl=(GR+1.125)*H2Q2—(GR+1.2)*H2FOR FI-1 

TO 5 <037> 

170 FK-F1*200-200sGOSUB 6152IF RN THEN GOS 

UB 1065 <254> 

175 IF RN AND FI=5 THEN SYS 21764,0,199,31 

9,199,1,3 <116> 

1B0 Nl»-"HZ."sBR=l:GOSUB 1020«BR-2 2 GOSUB 1 

020 <144> 

185 NEXT FIiGOTO 1225 <052> 

190 2 <166> 

195 i <171> 

205 REM * FILM - SCHLEIFE * <062> 

210 REM ********************************* <0B5> 

215 2 <191> 

220 A-49153:1=942:DR-PEEK(A+940)2 DL-PEEK <A 

+941):GOSUB 11902FX-W <084> 

225 GOSUB 11902FY-WsGOSUB 11902FZ-W2GOSUB 

11902 VF—W <053> 

230 GOSUB 1190:KF-W:VX-WXsVY-WY:VZ-WZ:DU-P 

EEK(A+952) <123> 

235 IF DU-0 THEN DU-DR <196> 

240 FOR FI-1 TO 24 <074> 

245 IF DU—1 THEN SYS 22873,8,0, 1,DF, 1,0, 15 

*FI <074> 

250 IF DU—2 THEN SYS 22873,7,0,1,DF,1,0,15 

*FI <014> 

255 IF DU—3 THEN SYS 22873,9,0,1,DF,1,0,15 

*FI <084> 

260 IF ZV THEN SYS 22873,8,0,1,DF,1,0,ZV <112> 
265 Wl=C0S(FI*±/24):W2-SIN(FI*l/24> <007> 

270 IF DL=1 THEN WY=VY*W1:WZ=VZ*W2 <0B3> 

275 IF DL=2 THEN WX=VX*W1:WZ=VZ*W2 <134> 

280 IF DL-3 THEN WX=VX*W1:WY=VY*W2 <167> 

285 A1—A1+FX2 A2—A2+FY:A3—A3+FZ <016> 

290 KE=KE+KF:IF VFO0 THEN H=H*VF <199> 

295 IF WQ-1 AND(FI=1 OR DL<>0 OR DRO01THE 

N GOSUB 870 <027> 

300 GOSUB 615:M-02N2*=N*:IF RN THEN SYS 51 

800,0,0,159,95,1,3 <242> 

305 OPEN 2,B,2,”FI."+LEFT*<N2*,10>+STR*<FI 

)+“,P,W”:GOSUB 10802IF F-0 GOTO 320 <043> 

310 IF F-99 THEN CLOSE 22GOSUB 9902 GOTO 32 

5 <166> 

315 CLOSE 220PEN 1,S,15,“S:FI."+LEFT*(N2*, 

10)+STRS<FI> 2 CLOSE 1 2 GOTO 305 <082> 

320 SYS 22299 2 CLOSE 2:CLOSE ltGOSUB 990 <163> 

325 IF(WM—1 OR B-11AND M-0 THEN SYS 50292, 

2,0sM=l:N2*»“H."+N*:GOTO 305 <13B> 

330 NEXT FI:WX—VX:WY—VYs WZ—VZs Al—Al—FI*FXs 

A2—A2—FI*FY 2 A3—A3—FI*FZ <061> 

335 GOTO 1225 <182> 

340 n <062> 

345 : <067> 

350 REM ********************************* <227> 

355 REM * 4 - FACHE AUFLOESUNG * <065> 

360 REM ********************************* <237> 

365 s <087> 

370 FOR FI-1 TO 2 <102> 

375 FK-(FI-1>*200:GOSUB 615:IF RN THEN GOS 

UB 1065 <254> 

380 IF RN AND FI-2 THEN SYS 21764,0,199,31 

9,199,1,3 <061> 

385 NI*—"HV.":BR—1:GOSUB 10202BR-2:GOSUB 1 

020 <091> 

390 NEXT FI 2 BOTO 1225 <003> 

395 : <U7> 

400 2 <122> 

405 REM ********************************* <026> 

410 REM * EINZELNE GRAFIK * <096> 

415 REM ********************************* <036> 

420 : <142> 

425 GOSUB 615:GOTO 1225 <163> 

430 : <152> 


435 2 <157> 

440 REM ********************************* <061> 

445 REM * EINZELNES FILMBILD * <033> 

455 : <177> 

460 GR—.5:GOSUB 6152M-02IF RN THEN SYS 51B 

00,0,0,159,95,1,2 <05B> 

465 OPEN 2,8,2,“FI."+N*+”,P,W":GOSUB 10802 

IF F—0 GOTO 480 <238> 

470 IF F—99 THEN CLOSE 22GOSUB 9902 GOTO 49 

0 <060> 

475 CLOSE 22 OPEN 1,8,15,“S 2 FI."+N*sCLOSE 1 

2 BOTO 465 <162> 

480 SYS 22299:CLOSE 2:CLOSE 1 2 GOSUB 990 <067> 

485 IF (WM—1 OR B-DAND M-0 THEN SYS 50292, 

2 , 0 sM—ls N*—"H."+N*sGOTO 465 <195> 

490 GOTO 1225 <081> 

495 s <217> 

500 2 <222> 

505 REM ********************************* <126> 

510 REM »UMRECHNUNG IN BILDSCHIRMKKOORD.* <192> 

515 REM ********************************* <13B> 

520 2 <244> 

525 SYS D2,1 2 XA—USR(1):VB—USR(3)s SYS D2.I+ 

1 2 XB—USR(1):VR—0:IF VB-1 THEN VR-1 <049> 

530 UN—0:FOR A-XA TO XB-1 <088> 

535 SYS Dl,A:XI—USR(2 )2 Yl—USR( 1 > 2 ZI—USR(3) <242> 
540 IF FL—0 THEN 565 <238> 

545 IF Y1-A2-0 THEN T-02GOTO 565 <0B8> 

550 T=Y1/(Y1-A2> <005> 

555 XI—XI—T*(XI—Al) <024> 

560 ZI—ZI—T*(Z1—A3) <11B> 

565 Xl=((Xl+160)-Fl)*Bl2Zl-<(Z1+100)-F2)*G 

2 <154> 

570 IF RI THEN D5-X1:X1-640-Z1:Z1-D5 <068> 

575 Zl-Zl—FK 2 SYS C1,X1,Y1,Z1,A:Q(UN,1)—XI 2 

Q(UN,2)—Yl:Q(UN,3)—ZI 2 UN—UN+1:NEXT A <185> 

580 RETURN <130> 

585 2 <053> 

590 : _ <B5B> 

600 r.iM * EXTREMA * <1B9> 

605 REM ********************************* <228> 

610 : <078> 

615 SYS 50181,11,15,1:SYS 50181,11,15,2sBS 

—1:IF GR—.5 AND WM-0 AND B-0 THEN BS-2 <042> 
620 SYS 50707,BS <032> 

625 BV=2sIF GR>.5 AND WM-0 THEN BV-1 <162> 

630 IF MC THEN SYS 21839,11,12,0,BV <223> 

635 FM—0:IF B OR GR>1 THEN SYS 51480,0sFM- 

1 <093> 

640 IF GR—.5 AND FI THEN SYS 51800,310,0,3 
19,194,1,3:SYS 50859,311,1,318,FI*8+1, 

1,3 <23B> 

645 GG—GR*320—1 1 EC—8000s ED——EC:FOR 1-1 TO 

DF—1 <080> 

650 QX-B0002PX—QXsQY—QXsPY-PXsGOSUB 525 <014> 

655 FOR X-0 TO UN-1 <200> 

660 IF □(X,1)<QX THEN QX-Q<X,1> <197> 

665 IF Q(X,1)>PX THEN PX-Q(X,1) <162> 

670 IF Q(X,3XQY THEN QY-Q<X,3) <056> 

675 IF Q<X,3)>PY THEN PY-Q(X,3> <021> 

680 NEXT X <120> 

685 IF QY<EC THEN EC-QY <121> 

690 IF PY>ED THEN ED-PY <171> 

695 IF QY<0 THEN QY-0 <171> 

700 IF PY>199 THEN PY-199 <241> 

705 IF QY>199 THEN QY-199 <002> 

710 IF PY<0 THEN PY-0 <177> 

715 IF(QX>GG)OR(PX<0)THEN POKE 18908+2*1,P 

YsPOKE 18909+2*I,QYsGOTO 725 <019> 

720 POKE 18908+2*I,QYsPOKE 18909+2*1,PY <138> 

725 NEXT I <045> 

730 IF(ED<0)OR(EC>199)THEN RETURN <112> 

735 IF ED>199 THEN ED-199 <151> 

740 IF EC<0 THEN EC-0 <223> 

745 IF(GR—.5)AND(ED>95)THEN ED-95 <024> 

750 s <218> 

755 2 <223> 

760 REM ********************************* <127> 

765 REM * EIGENTLICHE DARSTELLUNG * <147> 

770 REM ********************************* <139> 
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GRAFIK-ERWEITERUNG 


C 64 


775 : 

7BB SYS 14S57,SL,MQ, MC,WM, B ,SE,KE,DF,SR,EC 
,ED,BS 
785 : 

790 REM ••••••• SYSTEMDATEN LADEN ******* 

795 SYS 51507,1!SYS 50707,0 
800 OPEN 2,8,2,"CAD.PAINT.DATAS,S,R“:GOSUB 
1075:IF F=0 GOTO 830 

805 GOSUB 1050: PR I NT " <CLR, 2D0MN, SPACE >211 SK 
ETTE MIT SYSTEMDATEN EINLEGEN !" 

810 PRINT"I2D0WN,SPACE>ÜDCH EIN VERSUCH (J 
/N> ?* 

815 GOSUB 1055iIF A*-"J"THEN CLOSE 2:CL0SE 
1:PRINT“<CLR>“:GOTO 800 
820 IF A*="N"THEN CLOSE 2iCLOSE 1:SYS 2591 
9:PRINT“ CCLR>": DF=1:VI=0t MN=0: GOTO 122 
5 

825 GOTO 815 

830 SYS 22541,DF,VI:CLOSE 2:CL0SE 1:SYS 40 
206,VI+1,DF,0,0 
835 GOSUB 990:RETURN 
840 : 

845 : 

850 REM ********************************* 
855 REM * WINKEL DES NORMALENVEKTORS * 
860 REM ********************************* 
865 : 

870 OU=SQR(WX*WX+WY*WY+WZ*WZ):FOR 1=1 TO D 
F—1 

875 SYS D2,I:XA=USR(1):SYS D2,1+1:XB-USR<1 


<245> 

<238> 

<255> 

<03B> 

< 155> 

< 112 > 
<254> 
<214> 
<097> 


> 

880 PN=0:FOR A=XA TO XB-1 

BB5 SYS Dl,A:□(PN,1> =USR(1):Q(PN,2> =USR(2) 
:Q(PN,3)=USR <3):PN=PN+1 
890 IF PN<2 GOTO 910 
895 IF Q(PN—2,1)<>Q(PN—1,1)GOTO 910 
900 IF Q(PN—2,2)< >Q<PN—1,2)GOTO 910 
905 IF Q<PN—2,3)=Q(PN—1,3)THEN PN=PN-1 
910 NEXT A 

915 AX=Q(0,1)-Q(2,1):BX=Q(1,1)-0(2,1) 

920 AY=Q(0,2)—Q(2,2):BY=Q(1,2)—B(2,2) 

925 AZ=8(0,3)—Q(2,3):BZ=Q(1,3)—Q(2,3) 

930 NX=AY*BZ—AZ,*BY:NY=AZ*BX-AX*BZ:NZ=*AX*BY 
—AY*BX 

935 BN=SQR(NX*NX+NY*NY+NZ*NZ):IF BN=0 THEN 
BN=.00000001 

940 WI=(NX*WY+NY*WX+NZ*WZ>/(BN*OU) 

945 FA=192—ABS(INT(WI*192)):IF FA<0 THEN F 
A=0 

950 POKE 20058+1,FA 
955 NEXT I:RETURN 
960 : 

965 : 

970 REM ********************************* 
975 REM * UNTERPROGRAMME • 

980 REM *•••*••••*•••••••••••••*••••••••• 

985 i 

990 OPEN 1,8,15,"U9"iCL0SE 1:RETURN 
995 OPEN 1,8,15,"StCAD.PAINT.DATAS":CLOSE 
1 

1000 OPEN 2,8,2,“CAD.PAINT.DATAS,S,W":GOSU 
B 1080: IF F**0 GOTO 1015 
1005 IF F=99 THEN CLOSE 2:GOSUB 990:RETURN 
1010 CLOSE 2:GOTO 995 

1015 SYS 22520,DF,VI:CLOSE 2:CLOSE 1:B0SUB 
990:RETURN 

1020 X*=N1*+LEFT*(N«,10)+STR*(FI*2+(BR—2)) 
+",P,W":OPEN 2,8,2,X«:GOSUB 1080 
1025 IF F=0 GOTO 1040 

1030 IF F=99 THEN CLOSE 2:GOSUB 9901 RETURN 
1035 CLOSE 2:OPEN 1,8,15,"S:"+X*:CLOSE 1:8 
OTO 1020 

1040 SYS 26068,BRiCLOSE 2iCLOSE 1 
1045 GOSUB 990:RETURN 

1050 SYS 51507,liSYS 50707,0:PRINT CHR*(14 
)CHR*( 8 )"<CLR>":RETURN 
1055 GET A*:IF A*="“GOTO 1055 
1060 RETURN 

1065 SYS 21764,0,0,0,199,1,1:IF FI=1 THEN 
SYS 21764,0,0,319,0,1,3 
1070 SYS 21764,319,0,319,199,1,2:RETURN 
1075 OPEN 1,8,15:INPUT#1,F,F$,T,S:RETURN 
1080 GOSUB 1075: IF F=0 THEN RETURN 
1085 CLOSE 1:GOSUB 1050:PRINT"<CLR,DOWN,SP 


< 171 > 
<223> 

< 000 > 

< 182> 
<054> 
<059> 
<219> 
<025> 
<229> 
<079> 

<045> 

< 13B> 

< 164 > 

<143> 
<053> 
<021 > 
<062> 
<218> 

< 168> 

< 177> 
<215> 
<253> 

<206> 

<209> 

<235> 

< 146> 
<079> 

< 137> 

< 174> 

< 179> 
<083> 
<033> 
<093> 

< 199> 

< 170> 

< 113> 

< 141 > 
<143> 
<254> 

< 220 > 

<245> 

<236> 

< 170> 

< 106> 
<094> 
<138> 

<079> 

< 125> 

< 102 > 

<052> 
< 145> 
<247> 
<255> 


ACE,RVSON>fllSKETTENSTATUS :(DOWN>“:PR 
INT F","F$","T“,"S 

PRINT"(2D0WN,SPACE>Ü0CH EIN .VERSUCH ( 
J/N) ?" 

1095 GOSUB 1055:IF A*="N"THEN F=99:PRINT"< 
CLR>":RETURN 

IF A*="J"THEN F=1:PRINT“<CLR>":RETURN 
GOTO 1095 

! 

REM ******************************** 
REM * PARAMETER - UEBERGABE * 

REM ******************************** 

W2=INT(W/256):W1=W-256*W2:POKE A+I,W1 
:POKE A+I+1.W2:1=1+2:RETURN 
W=W*10+32768:GOSUB 1140:RETURN 
GOSUB 1050:PRINT"<GREY 1,CLR,12D0WN.B 
SPACE>SYSTEMDISKETTE EINLEGEN '"tPOKE 
192,0 

GOSUB 1055:OPEN 2,8,2,"CAD.MAIN,P,R"t 
CLOSE 2: GOSUB 1075: CLOSE 1:IF FOB BO 
TO 1150 

POKE 646,PEEK(53281>:RETURN 
FOR X=1 TO MN:FOR Y=1 TO 13:W=PEEK(A+ 
Y):IF W=254 THEN Y=13:GOTO 1175 
B*(X)=B*(X)+CHR*(W) 

NEXT Y:A=A+14:NEXT X:A=49153:RETURN 
FOR X=1 TO MN:FOR Y=1 TO LEN(B*(X)):P 
OKE A+Y,ASC(MID*<B*(*>,Y,1)):NEXT Y 
POKE A+Y,254:NEXT X:A=49153:RETURN 
W= ( (PEEK (A+I) +25ÄPEEK (A+I+l)) -32768) 
/10:1=1+2:RETURN 


1090 


1100 

1105 

1110 

1115 

1120 

1125 

1130 

1135 

1140 

1145 

1150 


1155 


1160 

1165 

1170 

1175 

1180 

1185 

1190 

1195 

1200 

1205 

1210 

1215 

1220 

1225 

1230 

1235 

1240 

1245 

1250 

1255 


1260 

1265 


1270 

1275 

1280 

1285 

1290 

1295 

1300 

1305 

1310 

1315 

1320 

1325 

1330 

1335 

1340 

1345 


REM ******************************** 
REM * PARAMETER CODIEREN * 

REM ******************************** 

A=49153:W=FL+2*WQ+4*MC+8*RI+16*SE+32* 
"•>M+64*B+128*HD:POKE A+912,W 
* 900:W=MN:GOSUB 1140:W=DF:GOSUB 1140 
:W=VI:GOSUB 1140 

W=A1:GOSUB 1145:W=A2:GOSUB 1145:W=A3: 
GOSUB 1145:1=1+1:W=WX:GOSUB 1145 
W=WY:GOSUB 1145:W=WZ:GOSUB 1145:1=1+2 
:W=F1:GOSUB 1145:W=F2:GOSUB 1145 
W=KE:GOSUB 1145:POKE A+919,GR*2:POKE 
A+954,SL:I=898:W=ZV:GOSUB 1145 
POKE A+920.RN:WS=STR$(H):POKE A+927.L 
EN(WS) 

FOR W=1 TO LENCW*>:POKE A+927+W,ASC(M 
ID*(W*,W,1)):NEXT W:IF MN THEN GOSUB 
1180 

GOSUB 1150 

POKE 836,0:PRINT“<CLR>LOAD"CHR*(34)"C 
AD.MAIN-CHR*(34)", 8 ":PRINT"<4D0WNJRUN 
: ” 

POKE 55,0:POKE 56,80:CLR:POKE 53263,1 
tPOKE 631,19:POKE 632,13:P0KE 633,13 
POKE 198,3:NEW 
: 

REM ******************************** 
REM * PARAMETER DECODIEREN * 

REM ******************************** 

: 

A=491531 MN=PEEK(A+900):DF-PEEK(A+902) 
+256*PEEK(A+903) 

VI“PEEK(A+904)+256*PEEK(A+905):1=906: 
GOSUB 1190:A1=W:GOSUB 1190:A2=W 
GOSUB 1190:A3=W:I=I+1:GOSUB 1190:WX-W 
:GOSUB 1190:WY=W:GOSUB 1190:WZ=W 
I-I+2:GOSUB 1190:Fl-W:GOSUB 1190:F2=W 
:GOSUB 1190:KE=W:GR=PEEK(A+919)/2 
I=898:GOSUB 1190:ZV=W:W-PEEK(A+912) 
FL=W AND 1:WQ=(W AND 2)/2:MC=(W AND 4 
>/4:RI=(W AND 8 >/ 8 :SE=(W AND 16)/16 
WM=(W AND 32>/32:B=(W AND 64)/64:HD=( 
W AND 128)/12B:GOSUB 1165:RN=PEEK(A+9 
20 ) 

N*”"":FOR X=1 TO PEEK(A+927):N*=N*+CH 
R*(PEEK(A+927+X)):NEXT X:H-VAL(N*> 
SL=PEEK (A+954) : RETURN 


<073> 

<240> 

<232> 

<244> 

< 127> 
<070> 
<075> 

< 154> 

< 129> 

< 164> 
<095> 

<007> 

< 136> 

<232> 

<040> 

< 161 > 

<208> 

< 117> 

< 173> 

<063 > 
<072> 

<250> 

<155> 

< 160 > 
<239> 
<245> 
<249> 
< 180> 

<175> 

<234> 

<064> 

<152> 

<031 > 

<051 > 


< 164> 

< 120 > 


<224> 

<243> 

< 167> 
<242> 
<065> 

< 144> 
<075> 
<006> 

< 199> 

< 192> 

<229> 

<229> 

<127> 

<047> 

< 152> 


< 212 > 

<052> 
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Achtung! 
Jetzt ist es 
soweit: 


Auswertung der großen 
»04 '<er«-Umtrage 
aus 2/06 mit 
Bekanntgabe der 
Gewinner! 


.. außerdem lesen Sie: 


■ Listing des Monats: Mit dem »Vorio- 
set für Vixawrite« ist es möglidt,verschie- 
dene Schriftarten auf Epson-Dnicketn zu 
realisieren. ■ Tips und Tricks zu Superbase 
und Vizawrite. ■ Viele wertvolle Hilfen 
und wichtige Hinweise zu C64, C128 und 
C16 für Anfänger und Profis. ■ Anschluß 
von Monitoren und Fernsehern an den C64 
und C128. ■ Hexenküche II mit großem 
Wettbewerb. ■ Druckerkurs: Umschreiben 
verschiedener Programme auf andere 
Drucker. ■ »Verton«, das rasante Spiel für 
C128-Faits. 


Falls Sie »64'er« noch nicht regelmäßig 
beziehen, sichern Sie sich jetzt Ihr persön¬ 
liches Abonnement und nutzen die damit 
verbundenen Vorteile: ■ Sie beziehen 
»64'er« ohne Mehrkosten bequem per 
Post frei Haus ■ Sie haben Ihr »64'er« be¬ 
reits bei sich zu Hause — noch bevor Sie es 
bei Ihrem Zeitschriftenhändler kaufen 
können. ■ Sie sind sicher, keine Ausgabe 
zu versäumen. 

Sie erhalten—wenn Sie zur Anforderung 
den nebenstehenden Gutschein verwenden 
— auf alle Fälle die neueste Ausgabe als 
Probeheft unverbindlich und kostenlos. 





>£■ 


I 


Gutschein 


i 


FÜR EIN KOSTENLOSES PROBEEXEMPLAR DES 64'er-MAGAZINS 


I 


JA, ich möchte »64'er«, das Magazin für Computerfans, kennenlemen. 

Senden Sie mir bitte die aktuellste Ausgabe kostenlos als Probeexemplar. Wenn mir »64'er« gefällt und Ich 
es regelmäßig weiterboziehen möchte, brauche ich nichts zu tun: Ich erhalte »64'er« dann regelmäßig frei 
Haus per Post und bezahle pro Jahr nur DM 78,— (Ausland auf Anfrage). 


I 


I 


Vorname, Name 


Straße 


I 


PLZ, Ort 


Datum 


1. Unterschrift 


Mir ist bekannt, daß ich diese Bestellung innerhalb von 8 Tagen bei der Bestelladresse widerrufen kann 
und bestätige dies durch meine zweite Unterschrift. Zur Wahrung der Frist genügt die rechtzeitige Absendung 
des Widerrufe. 


Datum 


2. Unterschrift 


1 


Gutschein ausfüllen, ausschneiden, in ein Kuvert stecken und absenden an: 
Markt&Technik Vferiag Aktiengesellschaft, Vertrieb, Postfach 1304, 8013 Haar 


I 











GRAFIK-ERWEITERUNG 


C 64 


5 REM ********************************** 
10 REM * GIBA—CAD GRAPHIC—SYSTEM * 

15 REM * 'CAD.MOVIE' * 

20 REM * BY S. VILSMEIER & S. LIPPSTREU * 
25 REM ********************************** 
30 s 
35 : 


<042> 
<236> 
<1B7> 
< 141 > 
<062> 
<006> 
< 011 > 


40 A=PEEK(836)+1:POKE 836,AsIF A-l THEN LO 
AD"MOVIE.CAD.OBJ“, 8 ,1 
45 POKE 55,0:POKE 56,24:CLR 
50 C1=11:C4=15«C5=15:C2=12:C3=0 
55 POKE 53280,14:P0KE 53281,15:POKE 646,11 <105> 
60 OPEN 1,8,15,"U9“:CLOSE 1 SPRINT CHR*<14> 

;CHR*( 8)5 
65 : 

70 : 

75 PRINT“<CLR, RVSON 

W05OT3OTOTOTB5B5 {SPACE , R VOFF > “; 

80 PRINT“{RVSON,SPACE >00{34SPACE>DO{SPACE, 

RVOFF >"; 

85 PRINT”{RVSON,SPACE,RVOFF,2SPACE,RVSON> < 
{7SPACE>ADVIE - AAUPTMENUE{7SPACE>){RVO 
FF,2SPACE,RVSON,SPACE,RVOFF >“; 

90 PRINT"{RVSON,SPACE > X {34SPACE»<{SPACE, 

RVOFF >”} 

95 PRINT'• {RVSON> ccccccc c t: c cc-c-c-c-c-c-dtVc-c-t-etf 

100 PR I NT " {RVSON } JS {RVOFF >Y7 YYYYYYYYWYYYYV 

YYyyyyyyYVYYYYYYYYYYY{RVSON>T’{RVOFF>“; _ 

105 FOR 1=1 TO 18: PRINT"H{3BSPACE>Sf"; : NEXT <242> 
110 PRINT" {RVSONiclRVOFFlppp ppppppp pppp - p» 

P P P P PPPPP P P pp p'p-pVp'pVp {HOME> " s POKE 2023 
,254:POKE 56295,11 <006> 

115 PRINT"{HOME,7D0WN,4RIGHT,SPACE>fl. - LI 


<180> 
<244> 
< 120 > 


<217> 
<041 > 
<046> 

< 011 > 

<032> 


<039> 
< 169> 
<078> 


<069> 


LM LADEN" 


120 PRINT"{DOWN,4RIGHT,SPACE>2. - EINZELNE 


<096> 


< 109> 

SISKETTE 

< 118> 

21 RECTOR 

<135> 

ABLAUF : 

< 117> 


< 1B6> 

< 147> 
<247> 

<099> 

<235> 

<013> 

< 101 > 

< 151 > 

< 156> 


S 21LD LADEN 

125 PRINT"<D0WN,4RIGHT,SPACE>£. 

NKOMMANDO SENDEN" 

130 PRINT"{DOWN,4RIGHT,SPACE >2- 
Y" 

135 PRINT"{DOWN,4RIGHT,SPACE>£. 

ZYKLISCH{ 8 SPACE>"; 

140 IF Z THEN PRINT“{16LEFTIV0R—/RUECKWAER 
TS"; 

145 PRINT:PRINT"{DOWN,4RIGHT,SPACE >£. - flD 
DUS{2SPACE>: AIRES{5SPACEJ"; 

150 IF M THEN PRINT"{10LEFTJAULTICOLOR“; 

155 PRINT:PRINT"{DOWN,4RIGHT,SPACE>£, - £A 
RBEN AENDERN“ 

160 PRINT“{DOWN,4RIGHT,SPACE>A. - £ILM ANS 
EHEN“:POKE 198,0 

165 GET X*:IF X*<"A"DR X*>"H"GOTQ 165 
170 ON ASC(X*)-64 GOTO 185,350,310,275,400 
,405,420,485 
175 s 
180 : 

IBS PRirTr“<CLR, SPACEig g tjfltjljtjtrWjtftftltjtjtjtjtfljtjt* 

190 PRINT"{SPACE,RVSON,14SPACE>£I LM LADEN{ 

14SPACE>“ <087> 

195 GOSUB 495:N*="":INPUT"{HOME,5D0WN,2RIG 
HTJEILE - AAME ";N*: IF N*=""OR N*="«-"B 
OTO 55 <107> 

200 IF LEN(N$)>10 GOTO 195 <162> 

205 A=6144:FOR X=1 TO 24|PRINT"{HOME,7D0WN 

,2SPACE>2ILD"X <071> 

210 OPEN 2,8,2,"FI."+N*+STR*<X>+",P,R":G0S 

UB 230:IF F GOTO 55 <016> 

215 SYS 50187,A-.CLOSE 2:CLDSE 1:A=A+204B:I 

F A=49152 THEN A=51200 <185> 

220 NEXT X <16B> 

225 GOTO 55 <003> 

230 OPEN 1,B,15 <142> 

235 INPUT#1,F,F*,T,S:IF F=0 THEN RETURN <017> 
240 PRINT:PRINT"{DOWN,SPACE,RVS0N>2ISKETTE 

NSTATUS :" <052> 

245 PRINT"{DOWN>"F","F*","T","S <002> 

250 POKE 198,0 <158> 

255 GET X*:IF X*=""GOTO 255 <197> 

260 CLOSE 2:CLOSE 1:RETURN <199> 

265 : <243> 

270 : <24B> 

275 PRINT”{CLR, 


280 PRINT"{SPACE,RVSON,10SPACE>21RECTORY A 
N ZEIGEN{1 0SPACE > “ : PR I NT 
285 OPEN 1,8,15:OPEN 2,8,0,"*0":GOSUB 235: 
IF F GOTO 55 

290 SYS 50772:CLOSE 2:GOSUB 235«IF F=0 THE 
N GOSUB 250 
295 GOTO 55 
300 : 

305 « 

310 PRINT"{CLR, 


315 PRINT“{SPACE,RVSON,7SPACE>21SKETTENKOM 
MANDO SENDEN{7SPACE>":GOSUB 495 
320 POKE 631,34:POKE 198,1 
325 INPUT"{HOME,5DOWN,2SPACE>JSDMMANDO ";C* 
: IF C*=“"GOTO 55 

330 OPEN 1,8,15,C4:GOSUB 235:IF F=0 THEN G 
OSUB 240 
335 GOTO 55 
340 : 

345 : 

350 PRINT" {CLR,SPACE> 


355 PRINT“{SPACE,RVSON,9SPACE>£INZELNES 21 
LO LADEN{9SPACE>":GOSUB 495 
360 INPUT" {HOME,5D0WN.2RIGHT>£.1 LE - AAME D 
ES 2ILDES ";N*:IF N*=""GOTO 55 
365 IF LEN(N*J >13 GOTO 360 
370 PRINT"{HOME,7DDWN,2SPACE>flN WELCHE ATE 
LLE IM £ILM SOLL DAS" 

375 N=-l:INPUT"{DOWN,2SPACE>21LD GELADEN W 
ERDEN{4SPACE>";N 
380 IF N<1 OR N>24 GOTO 370 
385 A=4096+N*2048:IF N>21 THEN A=A+2048 
390 OPEN 2,8,2,"FI."+N*+",P,R":GOSUB 230«I 
F F GOTO 55 

395 SYS 50187,A:CLOSE 2:CL0SE 1:G0T0 55 
400 Z=l—Z:GOTO 115 
405 M=l—M:GOTO 115 
410 : 

415 . 

420 PRINT”{CLR, 


425 

430 

435 


440 

445 


450 

455 


460 

465 

470 

475 


480 

485 


490 

495 


PRINT"{SPACE.RVSON,12SPACE>£ARBEN AEND 
ERN{12SPACE>“:GOSUB 495 
IF M GOTO 455 

PRINT"{HOME,3D0WN,2SPACE >VORDERGRUND{2 
SPACE>“C1; : INFTJT“ {5LEFT>";C1: IF C1<0 O 
R CI>15 GOTO 435 

PRINT"{HOME,5DOWN,2SPACE>AINTERGRUND{2 
SPACEVC4;: INPUT" {5LEFT>" ; C4: IF C4<0 O 
R C4>15 GOTO 440 

PRINT"{HOME,7D0WN,2SPACE>AAND{9SPACE>" 
C5;:INPUT"{5LEFT>";C5:IF C5<0 OR C5>15 
GOTO 445 
GOTO 55 

PRINT"{HOME,3D0WN,SPACE>EARBE 1{ 6 SPACE 
>"C1;:INPUT"{5LEFT>";CI:IF C1<0 OR Cl> 
15 GOTO 455 

PRINT"{HOME,5D0WN,SPACE >£ARBE 2{ 6 SPACE 
>"C2;:INPUT"{5LEFT>";C2:IF C2<0 OR C2> 
15 GOTO 460 

PRINT"{HOME,7D0WN,SPACE >£ARBE 3{ 6 SPACE 
>"C3;:INPUT"{5LEFT>“;C3:IF C3<0 OR C3> 
15 GOTO 465 

PRINT“{HOME,9DOWN,SPACE >AINTERGRUND{2S 
PACEVC4; : INPUT" {5LEFT>"; C4: IF C4<0 OR 
C4>15 GOTO 470 

PR I NT " {HOME, 11 DOWN , SPACE >BAND {9SPACE > •• 
C5;:INPUT"{5LEFT>";C5:IF C5<0 OR C5>15 
GOTO 475 
GOTO 55 

PRINT"{CLR>";:IF M THEN POKE 53280,C5: 
POKE 53281,C4:SYS 50284,Z,M,CI,C2,C3:G 
OTO 55 

POKE 53280,C5:SYS 50284,Z,M,CI,C4,C3:G 
OTO 55 

PRINT"{HOME,24DOWN,SPACE > YV YY YYYYYYYW 
YYYyyyyyYYYWYYYYYYYYYYYY{HOME>“ : RETUR 


<088> 

< 192> 
<249> 

< 181 > 
<075> 
< 022 > 
<027> 

< 123> 

< 173> 
<026> 

<075> 

<054> 

< 115> 
<062> 
<067> 

< 163> 

< 167> 

<211 > 
<21 1 > 

<072> 

< 1B0> 

<040> 

<099> 

< 171 > 
<017> 
<035> 

< 177> 

< 132> 

< 137> 

<233> 

< 000 > 

<077> 


<203> 

<225> 


< 104> 
<230> 


<054> 

<243> 

<071 > 

<024> 


<174> 

<004> 


N 


<044> 

<231 > 

<225> 


Listing 5. Movieroutine 
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C 64 


GRAFIK-ERWEITERUNG 


5 REM ********************************** 
10 REM * GIGA-CAD GRAPHIC-SYSTEM * 

15 REM * 'CAD.HARDCOPY' * 

20 REM * BY S. VILSMEIER 8c S. LIPPSTREU * 
25 REM ********************************** 
30 : 

35 : 

40 A=PEEK(836) +1 sPOKE 836,AsIF A=1 THEN GO 
SUB 1525:LOAD"HARD.CAD.OBJ",B,1 
45 DIM A(30,6),B(20):OPEN 1,8,15 
50 OPEN 2,8,2, "CAD. PRINTER. DATAS,S,R"tBOSU 
B 305s IF FOB THEN CLOSE 2s GOTO 70 
55 INPUT#2,D* 

60 FOR X=0 TO 5:INPUT#2,A(0,X)eINPUT*2,A(l 
,X>sINPUT#2,A(2,X>:FOR 1=3 TO A(2,X>+2 
65 INPUT#2,A(I,X)sNEXTsNEXTsCLOSE 2sGOSUB 
305sCLOSE 1s DD=A(2,1) 

70 OPEN 1,8,15,"U9”sCLOSE 1 SPRINT CHR*(14) 
CHR*(8)sP0KE 53280,14 
75 s 
80 s 

85 REM ********************************** 
90 REM * HAUPTMENUE * 

95 REM ********************************** 
100 s 

105 pr i nt - <clr , space 


110 PRINT“{SPACE,RVSON,BSPACE >HARDCOPY - H 
AUPTMENUE (9SPACE,RVOFF»“ 

115 FOR 1=1 TO 21 SPRINT” TT(36SPACE>R"sNEXT 
120 PRINT”(SPACE,RVSON,38SPACE,RVOFF,HOME > 


125 

130 

135 

140 

145 

150 

155 

160 

165 

170 

175 

180 

185 

190 

195 

200 

205 

210 

215 

220 

225 

230 

235 

240 

245 

250 

255 

260 

265 

270 

275 

280 

285 

290 

295 

300 


PRINT”(HOME,3D0WN,4RIGHT,SPACE>S. - £1 
NZELNE SRAFIK LADEN” 

PRINT"(DOWN,4RIGHT,SPACE>3. - HARDCOPY 
1—FACH" 

PRINT"(DOWN,4RIGHT,SPACE>£. - HARDCOPY 
4—FACH" 

PRINT"(DOWN,4RIGHT,SPACE>3- - HARDCOPY 
10—FACH" 

PRINT"(DOWN,4RIGHT,SPACE>£. - £1NFACHE 
SICHTE”; 

IF DM THEN PRINT"(15LEFTJSDPPELTE"; 

PRINTSPRINT"(DOWN,4RIGHT,SPACE>£. - SR 
UCKERANPASSUNG" 

PRINT”(DOWN,4RIGHT,SPACE>£. - SISKETTE 
NKOMMANDO SENDEN" 

PRINT"(DOWN,4RIGHT,SPACE>H. - SIRECTOR 
Y ANZEIGEN" 

PRINT"(DOWN,4RIGHT,SPACE>i. - SRUCKERK 
OMMANDO SENDEN“ 

PRINT"(DOWN,4RIGHT,SPACE>i. - SRUCKERP 
ARAMETER PRUEFEN" 

PRINT"(HOME,23D0WN,4RIGHT,RVSON,SPACE > 
3RUCKERTYP s ";D*;"(HOME,RVOFF > "; 

GET X*sIF X*<"A"OR X*>"J"60T0 1B5 

ON ASC(X*)-64 GOTO 225,435,620,695,520 

,770,375,560,1415,1125 


REM ********************************* 
REM * GRAFIK LADEN * 
REM ********************************* 

PR I NT " (CLR , SPACE 1ODPOÖOGOOODÜDOTDÖÖÖÖO 


PRINT"(SPACE,RVSON,14SPACE> £RAFIK LADE 

N(12SPACE,RVOFF >"s GOSUB 1545 

INPUT"(HOME,5D0WN,3RIGHT,SPACE>HAME "; 

N*sIF N*=""OR N*="«-“GOTO 70 

IF LEN (NO >10 GOTO 235 

SYS 50192,11,15,1sSYS 50299,1 

OPEN 2,8,2,"PI."+NS+",P,R"sFK=1sOPEN 1 

,8,15sGOSUB 305 

IF F<>0 THEN SYS 50299,0sCLOSE 2s GOTO 
70 

SYS 50442,1sCLOSE 2sCLOSE 1 
SYS 50299,0sGOTO 70 

i 

REM ********************************* 
REM * DISKETTEN-FEHLER * 

REM ********************************* 

OPEN 1,8,15sFK=0 


<042> 

<236> 

<053> 

< 141 > 
<062> 
<006> 
< 011 > 

< 1B2> 

< 153> 

< 102 > 

<045> 

<090> 

< 149> 

<214> 
<051 > 
<056> 

< 122 > 
<014> 
<132> 
<076> 

< 172> 

< 199> 
<057> 

<055> 

<092> 

<223> 

< 022 > 

<041 > 

<079> 

<244> 

<207> 

< 161 > 

< 156> 
<030> 
<246> 

<223> 

< 170> 

<07B> 

< 171 > 

< 176> 
<080> 
<064> 
<090> 

< 196> 

<036> 

< 175> 

<094> 

<025> 

<098> 

<223> 

<131> 

<125> 

< 154> 
<248> 
<253> 

< 157> 
<225> 

< 167> 
<017> 
<23B> 


305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

355 

360 

365 

370 

375 

380 

3B5 

390 

395 

400 

405 

410 

415 

420 

425 

430 

435 

440 

445 

450 

455 

460 

465 

470 

475 

480 

485 

490 

495 

500 

505 

510 

515 

520 

525 

530 

535 

540 

545 

550 

555 

560 

565 

570 

575 

580 

585 

590 

595 

600 

605 

610 

615 

620 


INPUT#l,F,F*,T,SsIF F=0 THEN RETURN 
IF FK THEN SYS 50299,0s PRINT CHR*(14); 
CHR*(8> 

PRINT s PRINT"(DOWN,SPACE,RVSON>31SKETTE 
NSTATUS s" 

PRINT“(DOWN>"F","F*","T","S 
POKE 198,0 

GET X*sIF X*=""GOTO 330 
CLOSE 2sCLOSE lsRETURN 
GOTO 105 


REM ********************************* 
REM * DISKETTENKOMMANDO SENDEN * 
REM ********************************* 

s 

PR I NT " (CLR, SPACE > 

PRINT"(SPACE,RVSON,7SPACE >31SKETTENKOM 
MANDO SENDEN(7SPACE,RVOFF>"sGOSUB 1545 
POKE 631,34s POKE 198,1 

INPUT"(HOME,5D0WN,SPACE >ÄQMMANDO ";C*s 
IF C#=""GOTO 70 

OPEN 1,8,15,C*sGOSUB 305sIF F=0 THEN G 
OSUB 315 

CLOSE 2sCLOSE lsGOTO 70 


REM ********************************* 
REM * HARDCOPY 1-FACH * 

REM *•*•••***••••***••**••••******•** 

PRINT"(CLR,5 

PRINT"(SPACE,RVSON,12SPACE>HARDCOPY 1- 
FACH(1ISPACE,RVOFF>“s GOSUB 1545 
GOSUB 1205sIF DM THEN GOTO 465 
X=1sGOSUB 1250sOPEN 4,4,A(l,4) 

X=4s FOR S=0 TO 24 sGOSUB 1250s SYS 50475 
,S*320,0,0,0sPRINT#4sNEXT SsGDSUB 1215 
-HTO 105 
UPEN 4,4,A(l,2) 

FOR S=0 TO 24 STEP 2sX=0sSZ=lsGOSUB 12 
50sX=2sGOSUB 1250 

SYS 50475,S*320,1,0,0 s PRINT#4 s X=0 s SZ=1 
5sGOSUB 1250sX=2sGOSUB 1250 
SYS 50475,5*320,1,1,0sPRINT#4sNEXT S.-G 
OSUB 1215s GOTO 105 
GOTO 70 


REM ********************************* 
REM * MENUEPUNKT ’E' * 

REM ********************************* 

IF DD=0 GOTO 185 
DM=1—DM s GOTO 125 

3 

REM ********************************* 
REM * DIRECTORY ANZEIGEN * 


REM 


PRINT" (CLR, SP ACE > 

PRINT"(SPACE,RVSON,10SPACE>SIRECTORY A 
NZEIGEN(10SPACE,RVOFF >“ 

PRINT"(HOME,2D0WN>"s OPEN 2,8,0,"*0"sGO 
SUB 300sIF F GOTO 70 

SYS 50901sCLOSE 2sCLOSE IsPOKE 198,0 
GET X*sIF X*=""GOTO 580 
GOTO 70 


REM ********************************* 
REM * HARDCOPY 4-FACH * 
REM ********************************* 

PRINT"(CLR,£ 


625 PRINT"(SPACE,RVSON,12SPACE>HARDC0PY 4- 
FACH(11SPACE,RVOFF>"sGOSUB 1545 
630 N*=""sINPUT"(5D0WN,3RIGHT>£ILE - HAME 


<089> 

<232> 

< 129> 
<079> 
<235> 
<047> 
<018> 

< 174> 
<067> 
<072 > 
<232> 
< 101 > 
<242> 
<092> 

< 18B> 

<05B> 
<091 > 

< 138> 

<069> 

< 124> 

< 127> 

< 132> 
<036> 
<231 > 
<046> 
<152> 

<248> 

<231 > 
<219> 
<073> 

< 172> 
<03B> 
<066> 

<016> 

< 140> 

<029> 
<201 > 
< 212 > 
<217> 

< 121 > 
<019> 

< 131 > 
<239> 
<059> 
<034> 
<254> 
<003 > 

< 163> 
<213> 

< 173> 
<023> 

< 119> 
<086> 

<042> 

< 184> 

< 173> 
<047> 
<058> 
<063> 
<223> 
< 210 > 
<233> 
<083> 

< 179> 
< 002 > 


Listing 6. Hardcopy-Routine für FX-80 und Kompatible 
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C 64 


";N*:IF N$=""OR N*="«-"GOTO 105 

635 FDR Q=1 TO 4 STEP 2:0PEN 2,8,2,"HV."+N 
*+STR*(D)+”,P,R" s SYS 50442,IsCLOSE 2 
640 OPEN 2,8,2, "HV. “+NS+STR*<Q+1)+",P,R":S 
YS 50442,2:CLOSE 2 
645 GOSUB 300: IF FOB GOTO 105 
650 CLOSE lsIF DM THEN GOSUB 1070:GOTO 660 
655 GOSUB 1025 
660 NEXT Q:GOTO 105 
665 : 

670 : 

675 REM ********************************* 

680 REM * HARDCOPY 10-FACH * 

685 REM ********************************* 

690 : 

695 PRINT”{CLR, _ 

eewiööbbybfcibwyöb-" 

700 PRINT"{SPACE,RVSON,14SPACE>HARDCOPY 10 
-FACH<8SPACE,RV0FF>":GOSUB 1545 
705 N$="":INPUT"<5D0WN,3RIGHTJ£ILE - JjAME 
" 5 N*: IF N*=" "OR N»="*-"GOTO 105 
710 FOR Q=1 TO 10 STEP 2:0PEN 2,8,2,"HZ."+ 
N*+STR»(Q>+",P,R";SYS 50442,1:CLOSE 2 
715 OPEN 2,8,2,"HZ."+NS+STR»(Q+l>+",P,R":S 
YS 50442,2:CLOSE 2 
720 GOSUB 300: IF FO0 GOTO 105 
725 CLOSE 1:IF DM THEN GOSUB 1070:GOTO 735 
730 GOSUB 1025 
735 NEXT Q:GOTO 105 
740 : 

745 : 

750 REM ********************************* 

755 REM * DRUCKERANPASSUNG * 

760 REM ********************************* 

765 : 

770 GOSUB 1300 

775 PRINT"{H0ME,4D0WN,4RIGHT>HELCHEN .DRUCK 
ER HABEN":PRINT"<D0WN,4RIGHT>SIE DENN{ 
3SPACE >";D$ 

780 INPUT“{UP,13RIGHTJ";D*:D*=LEFTS(D*,19) 

785 IF D$="«-"GOTO 105 

790 GOSUB 1300:PRINT"{2D0WN,2RIGHT >HUN MUS 
S EINGEGEBEN WERDEN, OB IHR" 

795 PRINT"{DOWN,2RIGHTJSRUCKER UEBER DIE ü 
OEGLICHKEIT VER—" 

800 PRINT"{DOWN,2RIGHTJFUEGT, GRAFIKEN IN 
DOPPELTER SICHTE" 

805 PRINT"{DOWN,2RIGHTJMIT EINEM ZEILENABS 
TAND VON N HALBEN " 

810 PRINT"{DOWN,2RIGHT>£UNKTEN AUSZUDRUCKE 
N. ” 

815 INPUT“{2D0WN,2RIGHT>ÜUN, IST DIES MOEG 
LICH <J/N) ";N1* 

820 DD=1:IF N1*="N"THEN DD=0:GOTO 850 
825 GOSUB 1300:PRINT"{2D0WN,2RIGHT>HIEVIEL 
E STEUERZEICHEN MUESSEN SIE“ 

830 PRINT"{DOWN,2RIGHTJSENDEN, UM DEN ZEIL 
ENABSTAND AUF{2SPACE>" 

835 PRINT"{DOWN,2RIGHTJN/144 JNCH FESTZULE 
GEN{2SPACE>";A < 2,0) 

840 INPUT"{UP,25RIGHT>";AC2,0> 

845 X=0:GOSUB 1310: IF A«>"J"GOTO 825 
850 GOSUB 1300:PRINT"{2D0WN,2RIGHT>UUN IST 
DIE ANZAHL DER STEUERZEICHEN" 

855 PRINT"{DOWN,2RIGHT>VON INTERESSE, UM D 
EN SRUCKER AUF" 

860 PRINT"{DOWN,2RIGHT>EINEN ZEILENABSTAND 
VON 8/72 INCH " 

865 PRINT"{DOWN,2RIGHTJEINZUSTELLEN. BNZAH 
L{2SPACE >";A(2,1) 

870 INPUT"{UP,23RIGHT>";A(2,1):X=1:GOSUB 1 
310:IF A*<>"J"GOTO 850 
875 IF DD=0 GOTO 925 

880 GOSUB 1300:PRINT"{2DOWN,2RIGHT>HIEVIEL 
SDDES MUESSEN GESENDET WER-" 

885 PRINT"{DOWN,2RIGHTIDEN, UM IHREN SRUCK 
ER ZUM AUSDRUCK" 

890 PRINT"{D0WN,2RIGHT>VON 320 PUNKTSPALTE 
N IN DOPPELTER" 

895 PRINT"{DOWN,2RIGHTJSICHTE ZU BEWEGEN{2 
SPACE>";A(2,2) 

900 INPUT“{UP,20RIGHT>";A(2,2):X=2:GOSUB 1 
310:IF A*<>"J"GOTO 880 
905 GOSUB 1300:PRINT"{2DQWN,2RIGHT >AIT WEL 
CHER ANZAHL AN 3RUCKERSTEUER-{DOWN,4SP 
ACEJZEICHEN <216> 


<251 > 

<233> 

<251 > 
< 012 > 

< 152> 
<232> 

< 153> 
<133> 

< 138> 
<042> 
<073> 
<052> 

< 158> 

<254> 

< 18B> 
<070> 

< 1B3> 

< 102 > 
<087> 
<242> 
<051 > 
<228> 
<208> 
<213> 
<117> 
<043> 
<127> 
<233> 
< 012 > 


<191> 

<217> 

<003> 

< 186> 

<063> 

< 162> 

<065> 

<077 > 

<069> 

<239> 

<1B3> 

< 152> 

<073> 

<044> 

< 106> 

< 193> 
<183> 
<160> 

< 195> 

<096> 

< 156> 

<214> 

<079> 

<192> 

< 134> 
<081 > 


910 PRINT"KANN MAN 640 SRAFIKSPALTEN IN" 
915 PRINT"{DOWN,2RIGHTID0PPELTER SICHTE DR 
UCKEN{2SPACE> " ; A < 2,3) 

920 INPUT"{UP,27RIGHT>";A(2,3):X=3:GOSUB 1 
310:IF A*<>"J"GOTO 905 
925 GOSUB 1330:PRINT"{2DOWN,2RIGHT>AIT WIE 
VIEL STEUERCODES BEWERKSTEL-“ 

930 PRINT"{DOWN,2RIGHT>LIGT MAN EINEN AUSD 
RUCK VON 320" 

935 PRINT"{DOWN,2RIGHTJSPALTEN IN EINFACHE 
R SICHTE{2SPACE >";A < 2,4) 

940 INPUT"{UP,30RIGHT>"jA(2,4>:X-4:GOSUB 1 
310 

945 IF A*<>"J"GOTO 925 

950 GOSUB 1300:PRINT" {2DOWN,2RIGHT>j>JETZT I 
ST ES AUSSERDEM NOCH WICHTIG," 

955 PRINT“{DOWN,2RIGHT >WIEVIEL STEUERZEICH 
EN ZHR SRUCKER ZUM" 

960 PRINT”{DOWN,2RIGHTJAUSDRUCK VON 640 SP 
ALTEN IN EINFACHER" 

965 PRINT"{DOWN,2RIGHT>£ROESSE BENOETIGT{2 
SPACE>";A(2,5) 

970 INPUT"{UP,20RIGHT>";A(2,5):X=5:GOSUB 1 
310: IF A*< J"GOTO 950 
975 OPEN 1,8,15,"S:CAD.PRINTER.DATAS" 

980 OPEN 2,8,2,"CAD.PRINTER.DATAS,S,W":PRI 
NT#2,D* 

985 FOR X=0 TO 5:F0R 1=0 TO A(2,X)+2:PRINT 
#2,A(I,X):NEXT I:NEXT X:CLOSE 2 
990 GOSUB 305:CLOSE l:GOTO 105 
995 : 

1000 : 

1005 REM ******************************** 
1010 REM * AUSDRUCK EINFACHE DICHTE * 
1015 REM ****•****••**•*•****••••**•*«*** 
1020 : 

1025 GOSUB 1205:X=l:GOSUB 1250:OPEN 4,4,A< 
1,5) 

1030 X=5:FOR S=0 TO 24:GOSUB 1250:SYS 5047 
5,320*S,0,0,1:PRINT#4:NEXT S 
1035 GOSUB 1215:RETURN 
1040 • 

1045 : 

1050 REM ******************************** 
1055 REM * AUSDRUCK DOPPELTE DICHTE * 
1060 REM ******************************** 
1065 : 

1070 GOSUB 1205:OPEN 4,4,A<1,3) 

1075 FOR S=0 TO 24 STEP 2:ZE=15:IF S=24 TH 
EN ZE=7 

1080 X=0:SZ=1:GOSUB 1250:X=3:GOSUB 1250:SY 
S 50475,S*320,1,0,1 

1085 PRINT#4:X=0:SZ=ZE:GOSUB 1250:X*3:GOSU 
B 1250:SYS 50475,320*3,1,1,1 
1090 PRINT#4:NEXT S:GOSUB 1215:RETURN 
1095 : 

1100 : 

1105 REM ******************************** 
1110 REM * DRUCKERPARAMETER PRUEFEN * 
1115 REM ******************************** 
1120 : 

1125 PRINT”{CLR,_._ 

1130 PRINT" {SPACE,RVSON,BSPACE1SRUCKERPARA 
METER PRUEFEN{6SPACE,RVOFF>":AS=1:GOS 
UB 1545:PRINT 

1135 IF DD THEN PRINT"{DOWN,2RIGHT>ZEILENA 
BSTAND N/144 INCH PRINT:X=0:GOSUB 

1340 

1140 PRINT“{DOWN,2RIGHT >ZEILENABSTAND 8/72 
INCH :":PRINT:X=l:GOSUB 1340 
1145 IF DD THEN PRINT"{DOWN,2RIGHT>flDPPELT 
E SICHTE /320 PUNKTE :":PRINT:X=2:GOS 
UB 1340 

1150 IF DD THEN PRINT"{DOWN,2RIGHTJflOPPELT 
E SICHTE /640 £UNKTE :":PRINT:X=3:GOS 
UB 1340 

1155 PRINT"{DOWN,2RIGHT>£INFACHE SICHTE /3 
20 £UNKTE :":PRINT:X=4:GOSUB 1340 
1160 PRINT"{DOWN,2RIGHT>EINFACHE SICHTE /6 
40 £UNKTE :“:PRINT:X=5:GOSUB 1340 
1165 GET A*:IF A*=""GOTO 1165 
1170 GOTO 105 


<071 > 
<074> 
<087 > 
<223> 

< 140> 

< 191 > 

< 141 > 

< 106> 


< 195> 
< 101 > 

< 156> 

< 179> 

< 167> 
<032> 

<030> 

< 150> 
<055 > 
<209> 
<214> 
<037> 
< 202 > 
<047> 
<234> 

<252> 

<245> 
<019> 
< 000 > 
<005> 
<084 > 

< 117> 
<094> 
<025> 

< 162> 

<040> 

< 182> 

<051 > 

< 174> 
<055> 
<060> 

< 139> 
<153> 

< 149> 
<0B0> 

<176> 


<052> 


<031 > 
<0B0> 


<072> 


< 109> 
<252> 


<003> 
< 172> 
<242> 


Listing 6. Hardcopy-Routine für FX-80 und Kompatible 
(Fortsetzung) 
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GRAFIK-ERWEITERUNG 


1175 

118(9 

1185 

1190 

1195 

1200 

1205 


REM ******************************** 
REM * KANAELE OEFFNEN St SCHL. * 
REM ******************************** 


OPEN 1,4,A(1,0):OPEN 2,4,A<1,1>:OPEN 
3,4,A(l,2):OPEN 7,4,A<1,3) 

1210 OPEN 5,4,Ad, 4) : OPEN 6,4,A(1,5):RETUR 
N 

FOR 1=1 TO 9:CLOSE I:NEXT:RETURN 
: 
i 


1215 

1220 

1225 

1230 

1235 

1240 

1245 

1250 

1255 

1260 

1265 

1270 

1275 

1280 

1285 

1290 

1295 

1300 

1305 


1310 

1315 

1320 

1325 

1330 

1335 

1340 

1345 

1350 

1355 

1360 

1365 

1370 

1375 

1380 

1385 

1390 

1395 

1400 

1405 

1410 

1415 

1420 

1425 


1430 

1435 

1440 

1445 

1450 

1455 

1460 

1465 

1470 

1475 


REM 


REM * DRUCKERSEQUENZ SENDEN * 

REM ******************************** 
i 

A=A(1,X)+1:IF A=4 THEN A-7 
FOR 1=3 TD A(2,X>+2:FK=1:IF X=0 AND I 
=A(2,0)+2 THEN FK=SZ 
PRINT#A,CHR$(A <I,X)*FK);:NEXT 
RETURN 
: 
r 

REM ******************************** 
REM * EINGABE DER STEUERZEICHEN * 
REM ******************************** 

PRINT"{SPACE,RVSON,13SPACE JJJRUCKERANP 
ASSUNG{9SPACE,RVOFF>":GOSUB 1545:RETU 
RN 

IF A (2, X) =0 THEN RETURN 

PRINT"<2D0WN>":F0R 1=3 TO A(2,X)+2:A$ 

=RIGHT*(STR*(1-2) ,2) 

PRINT"<UP,2RIGHT>§TEUERCQDE #";A*;"d 
4SPACE,10LEFT>“;A <I,X) 

INPUT"(UP,19RIGHT>";A(I,X>:NEXT I 
PRINT"(2D0WN,2RIGHT>SEKUNDRERADRESSE{ 
2SPACE>";A(1,X):AS=0 
INPUT"{UP,19RIGHTJ";A(1,X>:AS=0 
A*="{2SPACE>5EKUNDAERADRESSE " 
A*=A*+RIGHT*(STR*(A(1,X>),LENCSTRS(A< 
1,X>>>-l)+”: ":IF A(2,X)=0 GOTO 1365 
FOR 1=3 TO A(2,X)+2:A*=A*+RIGHT*(STR* 
(A(I,X)I , LEN (STR* (Ad,X>)) —1 > 

IF IOA(2,XI+2 THEN A*=A*+"/ " 

NEXT I:IF X=0 THEN A*=A*+"*N“ 

PRINT"{UP>";A*:IF AS THEN RETURN 
PRINT"<DDWN,2RIGHT>JST DIES KORREKT ? 

GET A*: IF(A*<>"N“AND A*<>"J")GOTO 137 
5 

RETURN 


< 135> 

< 140> 
<219> 
<04B> 
<229> 

< 160> 

< 116> 

<004> 

< 176> 

< 180> 

< 185> 
<00B> 

< 162> 
<018> 
<205> 
<041> 

<014> 

<232> 
<051 > 
<230> 
<235> 
<060> 
<027> 
<070> 
< 001 > 

<097> 


REM ******************************** 
REM * DRUCKERKOMMANDO SENDEN * 

REM ******************************** 

PRINT"<SPACE,RVSON,9SPACE J3RUCKERKOMM 
ANDO SENDENt7SPACE,RVOFF>"-.GOSUB 1545 
INPUT"<3D0WN,2RIGHT>flNZAHL DER £DDES 
";X*:X=VAL(X*):IF X*="«-"OR X*=""GOTO 
105 

PRINT"{2D0WN>": FOR 1=1 TO X:A*=RIGHT* 
(STR*(I>,2) 

PRINT"{UP,2RIGHTJSTEUERCODE #";A*;"d 
5SPACE>" 

INPUT"{UP,19RIGHT>";B(I)sNEXT I 
INPUT"<2D0WN,2RIGHT > JiEKUNDAER ADRESSE 
“; SA 

A*="<2SPACE)5EKUNDAERADRESSE " 
A*=A*+RIGHT*(STR*(SA>,LEN(STR*(SA))-l 
>+"s * 

FOR 1=1 TO X:A*=A*+RIGHT*(STR*(B(I)>, 
LEN(STR*(B(I)))—1) 

IF IOX THEN A*=A*+“/ " 

NEXT IrPRINT"{UP>";A* 

PRINT"CDOWN,2RIGHT>JST DIES KORREKT ? 


< 110 > 

< 210 > 

< 115> 

<054> 

<236> 

<185> 

<178> 

< 173> 

<232> 

<0B2> 
< 200 > 
<071 > 
<061 > 

<096> 

< 212 > 
<16B> 
<091 > 
<096> 

< 175> 
<1BB> 
<185> 

< 116> 

< 212 > 

<040> 


1480 GET A*:IF A*<>"J"AND A*<>“N"GOTO 1480 


<109> 

<052> 

<108> 

< 013 > 

< 010 > 

<027> 

<0B3> 

<076> 

< 202 > 

< 000 > 

<201 > 
<042> 


1485 

1490 

1495 

1500 

1505 

1510 

1515 

1520 

1525 

1530 

1535 

1540 

1545 


IF A*="N"GDTO 1415 

OPEN 4,4,SA:FOR 1=1 TO X:PRINT#4,CHR* 
(B(I));:NEXT:CLOSE 4:GOTO 105 


REM ******************************** 
REM * KOPF BEIM LADEN * 

REM ******************************** 

: 

POKE 53280,15:POKE 53281,15:POKE 646, 
11:PRINT CHR*(14)CHR*(B) 

PR I NT " {CLR , 10DOWN, 5SPACE > YYyYWyYYYW 
WYVYWW7YYWW" 

PRINT"C5SPACE>CIGA-CJU HARDCOPY LOADI 
NG...» 

PRINT" (5SPACE> pWpTpWp^Tpp^WppWppp 
pp-p-p'p":RETURN 

PR I NT " (HOME , 24D0WN, SPACE >YVvYYYYYYWY 
yVyVYyYYYYYYYYYYVYYYTYYYW (HOME, DOWN > 


< 169> 

<076> 
<201 > 
<206> 
<029> 
<239> 
<039> 
<226> 

< 139> 
<246> 

< 142> 
<246> 


1550 RETURN 


<07B> 

<0B4> 


Listing 6. Hardcopy-Routine für FX-80 und Kompatible 
(Schluß) 


5 REM 
10 REM 


******************************* 
GlGA—CAD GRAPHIC-SYSTEM * 
15 REM * 'CAD.HARD.MPS801'" * 

20 REM * BY S. VILSMEIER & S. LIPPSTREU * 
25 REM ********************************** 
30 : 

35 : 

40 A=PEEK(836)+1:POKE 836,A 
45 IF A=1 THEN POKE 55,0:POKE 56,32:CLR:L0 
AD"MPSB01.CAD.OBJ",8,1 
50 SYS 50192,11,15,2:POKE 53280,14:POKE 53 
281,15 

55 OPEN 1,8,15,"U9":CLOSE 1:PRINT CHR*(14> 
CHR*(8) 

60 • 

65 : 

70 REM ********************************** 
75 REM * HAUPTMENUE * 

80 REM ********************************** 
85 : 

90 PRINT“IGREY 1,CLR,1 

95 PRINT"<SPACE,RVSON,BSPACEJÜARDCOPY - ÜA 
UPTMENUE C9SPACE,RVOFF >" 

100 FOR 1=1 TO 21:PRINT“ H<36SPACE>H":NEXT 
105 PR I NT " <SPACE, RVSON, 4SPACE JJJRUCKERT YP: 

H£S-B01/803 <11SPACE,RVOFF,HOME >“ 

110 PRINT“{HOME,6D0WN,4RIGHT,SPACE>fl. - £R 
AFIK LADEN" 

115 PRINT"<2D0WN,4RIGHT,SPACE>2. - üRAFIK 
ANSEHEN" 

120 PRINT“<2D0WN,4RIGHT,SPACE>£. - SISKETT 
ENKOMMANDO SENDEN" 

125 PRINT"<2D0WN,4RIGHT,SPACE>fl. - flIRECTO 
RY ANZEIGEN" 

130 PRINT“<2D0WN,4RIGHT,SPACE>£. 

Y“ 

135 POKE 198,0 
140 GET X*:IF X*=""GOTO 140 
145 A=ASC(X*)-64:IF A<1 OR A>5 GOTO 
150 ON A GOTO 185,335,380,440,500 
155 : 

160 : 

165 REM ********************************* 
170 REM * GRAFIK LADEN * 

175 TtEM ********************************* 
180 : 

185 PRINT" <CLR,SPACE> {jtjtftitjtjtjWjWjbtjtjbWj>jtjtjtj 

190 PRINT"{SPACE,RVSON,14SPACEJSRAFIK LADE 
N{12SPACE,RVOFF}":GOSUB 295 
INPUT"{HOME,5D0MN,3RIGHT,SPACE>HAME 
N*:IF Nt=""OR N*="«-"GOTO 55 
IF LEN(N*)>10 GOTO 195 
205 SYS 50192,11,15,2tSYS 50299,2 
210 OPEN 2,8,2,“PI."+N*+",P,R":FK“1:OPEN 1 
,8,15:GOSUB 265 

Listing 7. Hardcopy-Routine für MPS 801 


- HARDCOP 


140 


195 


200 


<042> 

<236> 

< 134> 

< 141 > 
<062> 
<006> 
< 011 > 
<036> 

<017> 

<043> 

<240> 
<036> 
<041 > 
<107> 
<255> 

< 117> 
<061 > 

<241> 

< 184> 
<042> 

<247> 

<059> 

<254> 

<017> 

< 001 > 

< 166> 
<043> 
< 112 > 
<056> 
<01B> 
<131> 

< 136> 
<040> 
<024> 
<050> 

< 156> 

<252> 

< 190> 

< 182> 
<162> 
< 1BB> 

<061 > 
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C 64 


215 

220 

225 

230 

235 

240 

245 

250 

255 

260 

265 

270 

275 

280 

285 

290 

295 

300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

355 

360 

365 

370 

375 

380 

385 

390 

395 

400 

405 

410 

415 

420 

425 

430 

435 

440 

445 

450 

455 

460 

465 

470 

475 

480 

485 

490 

495 

500 

505 

510 

515 

520 

525 

530 


IF F GOTO 55 

SYS 50442,2tCLDSE 2:CL0SE 1 
SYS 50299,0:GDTa 55 
> 
i 

REM ********************************* 
REM * FLOPPY—FEHLERKANAL * 

REM ********************************* 

OPEN 1,B,15:FK=0 

INPUT#1,F,F*,T,S:IF F=0 THEN RETURN 
IF FK THEN SYS 50299,0:PRINT CHR4C14); 
CHR*<8> 

PRINT:PRINT"{DOWN,SPACE,RVSON >31SKETTE 
NSTATUS 

PRINT"<DOWN>"F","F*",“T",“S 

GET X»:IF X*»""GOTO 285 

CLOSE 2:CLOSE 1:RETURN 

PRINT" (HOME,24DOWN,SPACE> VYVYVYYYWWY 

W7YYYYYYY Y YYYVVYYYYYYVYY {HOME,DOWN >" 

RETURN 

t 

REM ********************************* 
REM * GRAFIK ANSEHEN * 

REM ********************************* 

SYS 50299,2:POKE 198,0 
GET X*:IF Xt=""GOTO 340 
SYS 50299,0:POKE 53272,23:GOTO 135 
: 

: 

REM ********************************* 
REM * DISKETTENKOMMANDO SENDEN * 
REM ********************************* 

PRINT"{CLR,i 


PRINT”{SPACE,RVSON,7SPACE>31SKETTENKOM 
MANDO SENDEN{7SPACE,RVOFF >":GOSUB 295 
POKE 631,34:POKE 198,1 

INPUT"{HOME,5DOWN,SPACE >5DMMANDO ";C*: 
IF C$=” "OR C*=” GOTO 55 
FK=0:OPEN 1,8,15,C4:GOSUB 265:IF F=0 T 
HEN GOSUB 275 
CLOSE 2:CLDSE 1!GOTO 55 
: 

REM ********************************* 
REM * DIRECTORY ANZEIGEN * 

REM ********************************* 

PRINT"{CLR,i 

PRINT"{SPACE,RVSON,10SPACE>3IRECTORY A 
NZEIGEN{10SPACE,RVOFF >" 

PRINT“{HOME,2D0WN>":OPEN 2,8,0,“*0”:GO 
SUB 260:IF F GOTO 55 

SYS 50475:CLOSE 2:CLOSE l:POKE 198,0 
GET X*:IF X*=" “GOTO 460 
GOTO 55 


REM *********************** 
REM * HARDCOPY 

REM ********************** 


******** 

* 

******** 


PRI1^"{CLR, SPACE 

PRINT"{SPACE,RVSON,15SPACE>HARDCOPY{15 
SPACE,RVOFF>“:GOSUB 295 
PRINT"{HOME,11DOWN,6SPACE >3RUCKER EING 
ESCHALTET <J/N> ?":POKE 198,0 
GET X*:IF X*<>"J"AND X*<>"N"BOTO 515 
IF X*="N“GOTO 55 
SYS 50555 
GOTO 55 

Listing 7. Hardcopy-Routine für MPS 801 (Schluß) 


< 194 > 
<0B5> 
<240> 
<206> 
< 211 > 

< 115> 
<236> 
<125> 
<231 > 

< 198> 
<049> 

< 192> 

<089> 

<039> 

< 166> 
<229> 

<098> 

< 104> 
<027> 
<032> 

< 192> 

< 139> 
< 202 > 
<052> 

< 105> 

< 122 > 

< 154> 
<072> 
<077> 
<237> 

< 106> 
<247> 
<097> 

< 193> 

< 163> 
<096> 

< 128> 

< 170> 

< 145> 
<132> 

< 137> 
<041 > 
<091 > 
<051 > 

< 157> 

<253> 

< 220 > 

< 116> 
<096 >' 

< 146> 
<245> 

< 192> 
<197> 
< 101 > 

< 102 > 

<m> 

<217> 

<057> 

< 184> 

< 117> 

< 104> 
<245> 

< 196> 
<056> 


30 : 

35 : 

40 A=PEEK(836)+1:POKE 836,A 
45 IF A=1 THEN POKE 55,0:POKE 56,31:CLR:L0 
AD"MPS802.CAD.OBJ",8,1 
50 DI=128:SYS 50192,11,15,1:SYS 50192,11,1 
5,2:POKE 53280,14:POKE 53281,15 
55 OPEN 1,8,15,"U9":CLOSE 1:PRINT CHR*<14) 
CHR*(8) 

60 : 

65 : 

70 REM ********************************** 
75 REM * HAUPTMENUE * 

B0 REM ********************************** 
85 : 

90 PRINT"(GREY 1,CLR,SPACE>660555508555505 

eeeeeeeeeeaseeoBeesse®?" 

95 PRINT"{SPACE,RVSON,BSPACE>HARDCOPY - HA 
UPTMENUE{9SPACE,RVOFF >" 

100 FOR 1=1 TO 21:PRINT" H{36SPACE>W": NEXT 
105 PRINT"{SPACE,RVSON,4SPACE>3RUCKERTYP: 

ÄE3-802/1526{10SPACE,RVOFF,HOME >" 

110 PRINT"{HOME,5D0WN,4RIGHT,SPACE>fl. - £1 
NZELNE SRAFIK LADEN“ 

115 PRINT"{DOWN,4RIGHT,SPACE>3. - SRAFIK A 
NSEHEN" 

120 PRINT"{DOWN,4RIGHT,SPACE>£. - 31 SKETTE 
NKOMMANDO SENDEN" 

125 PRINT"{DOWN,4RIGHT,SPACE>3. - 31RECTOR 
Y ANZEIGEN" 

130 PRINT"{DOWN,4RIGHT,SPACE>£. - EINFACHE 
";:IF DI=0 THEN PRINT“{8LEFT>3DPPELTE" 
; 

135 PRINT" 3ICHTE“ 

140 PRINT"{DOWN,4RIGHT,SPACE>£. - HARDCOPY 
1—FACH” 

145 PRINT“{DOWN,4RIGHT,SPACE>£. - HARDCOPY 
4—FACH” 

150 PRINT"{DOWN,4RIGHT,SPACE>fl. - HARDCOPY 
10—FACH” 

155 POKE 198,0 
160 r r X*:IF X*=”"GOTO 160 
165 A=ASC(X*> —64:IF A<1 OR A>8 GOTO 160 
170 ON A GOTO 205,405,465,525,355,585,650, 
725 
175 : 

180 : 

185 REM ********************************* 
190 REM * GRAFIK LADEN * 

195 REM ********************************* 
200 : 

205 PRINT"{CLR, 


<006> 

< 011 > 

<036> 

<045> 

< 110 > 

<240> 
<036> 
<041 > 

< 107> 
<255> 

< 117> 
<061 > 

<241 > 

< 1B4> 
<042> 

<241 > 

< 130> 
<232> 

< 113> 

< 108> 

< 108> 
<205> 

<241 > 

<040> 

<059> 

<063> 

<004> 

< 125> 

<023> 

< 151 > 
<156> 
<060> 
<044> 
<070> 

< 176> 


5 REM ********************************** <042> 
10 REM * 61GA—CAD GRAPHIC-SYSTEM * <236> 
15 REM * 'CAD.HARD.MPS802’ * <142> 
20 REM * BY S. VILSMEIER Sc S. LIPPSTREU * <141> 
25 REM ********************************** <0f,2> 


210 

215 

220 

225 

230 

235 

240 

245 

250 

255 

260 

265 

270 

275 

2B0 

285 

290 

295 

300 

305 

310 

315 

320 

325 

330 

335 


PRINT"{SPACE,RVSON,14SPACE>SRAFIK LADE 

N{12SPACE,RVOFF >":GOSUB 345 

INPUT"{HOME,5D0WN,2RIGHT,SPACE > HAME “; 

N*:IF N*=""OR N»=”«-"GOTO 55 

IF LEN(N»>>10 GOTO 215 

SYS 50192,11,15,2:SYS 50299,2 

OPEN 2,8,2,"PI."+N4+",P,R":FK=1:OPEN 1 

,8,15:GOSUB 285 

IF F GOTO 55 

SYS 50442,2:CLOSE 2:CLOSE 1 
SYS 50299,0:GOTO 55 


REM ********************************* 
REM * FLOPPY-FEHLERKANAL * 

REM ********************************* 

OPEN 1,8,15:FK=0 

INPUT#1,F,F*,T,S:IF F=0 THEN RETURN 
IF FK THEN SYS 50299,0:PRINT CHR»<14>j 
CHR*<8> 

PRINT:PRINT"{DOWN,SPACE,RVSON >31SKETTE 
NSTATUS :" 

PRINT" {DQWN>"F" , "F*" , "T“ , "S 
GET X*:IF X*=”"GOTO 305 
CLOSE 2:CLOSE 1:RETURN 


REM ********************************* 
REM * DIVERSE UNTERPROGRAMME * 
REM ********************************* 

Listing 8. Hardcopy-Routine für MPS 802 


<077 > 

< 197> 
<208> 

<0B3> 
<214> 
<105> 
<004> 
<226> 
<231 > 

< 137> 
< 002 > 

< 147> 
<253> 
<21B> 
<069> 

< 212 > 

< 109> 
<059> 
<216> 
<249> 
<037> 
<042> 
< 202 > 

< 104> 

< 212 > 


56 


SONDERHEFT 6/86 


030 ? 


























C 64 


GRAFIK-ERWEITERUNG 


340 : <062> 
345 PR I NT " {HOME, 24D0WN , SPACE >YYYYYYYYYYYYY 

YYYYYYYyYYYYYYYYYYYYYYYYY {HOME , DOWN > “ <148> 
350 RETURN <154> 
355 DI=12B—DI:GOTO 110 <004> 
360 REM **** HARDCOPY- UNTERPROGRAMM **** <154> 
365 FOR X=8086 TO 8092:POKE X,0:NEXT X:POK 

E 8090,1:IF M THEN POKE 8092,2 <097> 
370 POKE 780,17+D+M:SYS 50555:RETURN <144> 
375 : <097> 
380 : <102> 
385 REM ********************************* <006> 
390 REM * GRAFIK ANSEHEN * <209> 
395 REM ********************************* <016> 
400 : <122> 
405 BS=1:POKE 198,0 <203> 
410 SYS 50299,BS <239> 
415 BET X*:IF X*=“"GOTO 415 <166> 
420 IF X$="1"THEN BS=l:GOTO 410 <091> 
425 IF X*="2"THEN BS=2:G0T0 410 <001> 
430 SYS 50299,0:POKE 53272,23:G0T0 155 <240> 
435 : <157> 
440 : <162> 
445 REM ********************************* <066> 
450 REM * DISKETTENKOMMANDO SENDEN * <191> 
455 REM ********************************* <076> 
460 : <182> 


OSUB 280:IF F GOTO 770 <229> 

680 SYS 50442,2:CLOSE 2:CL0SE 1 <037> 

685 GOSUB 365:NEXT Q <169> 

690 GOTO 55 <216> 

695 : <163> 

700 : <16B> 

705 REM ********************************* <072> 

710 REM * HARDCOPY 10-FACH * <103> 

715 REM ********************************* <082> 

720 : <18B> 

725 PRINT" <CLR,SPACE} 

730 PRINT"{SPACE,RVSON,12SPACEJÜARDCOPY 10 
-FACH{10SPACE,RVOFF>":GOSUB 345:M=64:D 
=0 <228> 

735 N*="“:INPUT"{5D0WN,3RIGHT>£ILE - JjAME 

";N*:IF N*=""OR N*="«-"BOTO 55 <178> 

740 FOR Q=1 TO 10 STEP 2:0PEN 2,8,2,"HZ.“+ 
N*+STR*<Q)+",P,R":GOSUB 280:IF F GOTO 
770 <029> 

745 SYS 50442,l:CLOSE 2:CLOSE 1 <100> 

750 OPEN 2,8,2,"HZ."+NS+STR*(Q+l)+“,P,R":G 

OSUB 280:IF F GOTO 770 <080> 

755 SYS 50442,2:CL0SE 2:CLOSE 1 <112> 

760 GOSUB 365:NEXT Q <244> 

765 GOTO 55 <035> 

770 0=20:NEXT Q:GOTO 55 <193> 


465 print"{clr,space 


470 

475 

480 

485 

490 

495 

500 

505 

510 

515 

520 

525 

530 

535 

540 

545 

550 

555 

560 

565 

570 

575 

580 

585 

590 

595 

600 

605 

610 

615 

620 

625 

630 

635 

640 

645 

650 

655 


PRINT"{SPACE,RVSON,7SPACE>21SKETTENKOM 
MANDO SENDEN{7SPACE,RVOFF>":GOSUB 345 
POKE 631,34:POKE 198,1 

INPUT " {HQME , 5DOWN , SPACE >JLOMMANDO " ; C*: 

IF C$="“OR C*="+"GOTO 55 

FK=0:OPEN 1,8,15,CS:GOSUB 285:IF F=0 T 

HEN GOSUB 295 

CLOSE 2:CLOSE l:GOTO 55 


REM ********************************* 
REM * DIRECTORY ANZEIGEN * 

REM ********************************* 

PRINT“{CLR,£ 

PRINT"{SPACE,RVSON,10SPACE>21 RECTORY A 
NZEIGEN{10SPACE,RVOFF>" 

PRINT“{HOME,2D0WN>■:OPEN 2,8,0,"$0":G0 
SUB 280:IF F GOTO 55 

SYS 50475:CLOSE 2:CLOSE 1:P0KE 19B,0 
GET X*:IF X*=""GOTO 545 
GOTO 55 


REM ********************************* 
REM * HARDCOPY 1-FACH * 

REM ********************************* 

: 

PRINT“{CLR,J 

PRINT"{SPACE,RVSON,12SPACE>HARDCOPY 1- 

FACH{11SPACE,RV0FF>":GOSUB 345 

PRINT"{HOME,11DOWN,6SPACE>2RUCKER EING 

ESCHALTET (J/N) ?":POKE 19B,0 

GET X*:IF X*<>"J"AND X*<>"N"GOTO 600 

IF X*="N"GOTO 55 

M=0:D=DI:GOSUB 365 

GOTO 55 


REM *••••**•**•••••**•*••******•*•*•• 
REM * HARDCOPY 4-FACH * 

REM ********************************* 

: 

PR I NT " {CLR, SPACE > 


< 022 > 

<239> 

<181> 

<213> 

< 160> 
<230> 
<217> 
< 222 > 
< 126> 

< 176> 
<138> 
<244> 

<0B4> 

<051 > 

<204> 

< 183> 
< 011 > 
<076> 
<023> 
<02B> 

< 1BB> 
<127> 

< 198> 
<048> 

< 144> 

<173> 

<204> 
<051 > 
<074> 
<084> 

< 141 > 
<0BB> 
<093> 
<253> 
<240> 
<007> 

< 113> 

<209> 


Listing 8. Hardcopy-Routine für MPS 802 (Schluß) 


660 

665 


670 

675 


PRINT"{SPACE,RVSON,12SPACE >HARDCOPY 4- 
FACH{11SPACE,RVOFF >":GOSUB 345:M=64:D= 

0 

N*= " ": I NPUT " {5D0WN , 3RIGHT >£.1 LE - SAME 

";N*:IF N*=""OR N*="«-"GOTO 55 

FOR Q=1 TO 4 STEP 2:0PEN 2,8,2,"HV."+N 

*+STR*CQ)+",P,R":GOSUB 280:IF F GOTO 7 

70 

SYS 50442,1:CLOSE 2:CLOSE 1 

OPEN 2,8,2,“HV."+NS+STR*(Q+l)+”,P,R":G 


<036> 
< 103> 


< 170> 
<025> 


5 REM ********************************** <042> 

10 REM * GlGA—CAD GRAPHIC-SYSTEM * <236> 

15 REM * 'CRSR1' & 'CRSR2' -MAKER * <030> 

20 REM * BY S. VILSMEIER Sc S. LIPPSTREU * <141> 

25 REM ********************************** <062> 

30 : <006> 

35 : <011> 

40 OPEN 2,8,2,"CRSR1,P,W“:LO=128:HI=191 <084> 

45 GOSUB 75 <111> 

50 ^ OSE 2 <069> 

55 OPEN 2,8,2,"CRSR2,P,W":L0=128:HI=255 <040> 

60 GOSUB 75 <126> 

65 CLOSE 2 <084> 

70 END <072> 

75 PRINT#2,CHR*(LO>;CHR*CHI); <159> 

80 RESTORE:FOR 1=1 TO 7:READ A <034> 

85 PRINT#2,CHR*(A>;CHR*(0);CHR*<0); <137> 

90 NEXT I <174> 

95 FOR 1=1 TO 42:PRINT#2,CHR*(0>;:NEXT I <231> 

100 RETURN <158> 

105 DATA 16,16,16,238,16,16,16 <232> 

Listing 9. Sprites. Nach dem Start des Programms werden 
die beiden Files »CRSR1« und »CRSR2« auf der Diskette 
erzeugt. 


5 REM ********************************** <042> 
10 REM * GIGA-CAD GRAPHIC-SYSTEM * <236> 
15 REM * 'CAD.PRINTER.DATA' -MAKER * <153> 
20 REM * BY S. VILSMEIER *. S. LIPPSTREU * <141> 
25 REM ********************************** <062> 
30 : <006> 
35 : <011> 
40 OPEN 2,8,2,"CAD.PRINTER.DATA,S,W" <064> 
45 PRINT#2,"EPSON £Ä 80+ ( -V.C.EJ. ) " <175> 
50 FOR Y=1 TO 6 <151> 
55'PRINT#2,0:PRINT#2,4 <038> 
60 READ A<2,Y>:PRINT42,A(2,Y):FOR X-3 TO A 

< 2,Y)+2 <0B0> 
65 READ A(X,Y):PRINT42,A(X,Y):NEXT <216> 
70 NEXT <080> 
75 CLOSE 2 <094> 
80 DATA 3,27,51,2 <186> 
85 DATA 3,27,65,8 <248> 
90 DATA 4,27,76,64,1 <012> 
95 DATA 4,27,76,128,2 <035> 
100 DATA 4,27,75,64,1 <020> 
105 DATA 4,27,75,128,2 <043> 

Listing 10. Druckerdaten. Nach dem Start des Programms 
wird das File »CAD.PRINTER.DATA« erzeugt. 
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Listing 11. Grafikdaten zum Programm 
»Giga-CAD«. Das Programm erzeugt 
nach dem Start mit RUN das File 
»HRG.CAD.OBJ«. 
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c4 

14 

a0 

82 

00 

12 

76 

cd 

16 

0edl 


40 

2a 

df 

bf 

7e 

ad 

90 

25 

f 8 

0ed9 


95 

82 

56 

01 

7d 

db 

35 

6f 

cf 

0eel 


d9 

02 

e6 

7c- 

2c 

9c 

9c 

90 

80 

0ee9 


2d 

e9 

61 

65 

bc 

20 

7e 

06 

e3 

0ef 1 


66 

d7 

af 

Cf 

03 

d3 

48 

b3 

80 

0ef 9 


6e 

bi 

b6 

ed 

67 

76 

df 

03 

03 

0f01 


*7 

ff 

0c 

eB 

20 

ac 

05 

6f 

72 

0f 09 


52 

dd 

bb 

7a 

a9 

38 

41 

fB 

db 

0f 11 


7f 

47 

cf 

c6 

fa 

32 

68 

56 

90 

0f 19 


3c 

61 

f 8 

f 8 

bd 

2a 

lf 

7c 

06 

0f 21 


f 6 

5e 

c5 

a7 

f 5 

41 

f 7 

7a 

eb 

0f 29 


7c 

ad 

dd 

dd 

ee 

4d 

0e 

57 

ef 

Bf 31 


26 

86 

b7 

2f 

4b 

e0 

al 

ef 

90 

0f 39 


7f 

3e 

b7 

5b 

ad 

43 

bl 

bb 

64 

0f 41 


bd 

d4 

f 0 

f 2 

68 

4d 

ca 

ef 

ff 

0-f 49 


f 7 

fd 

bd 

de 

9e 

f 7 

f 5 

47 

9a 

0f 51 


28 

76 

37 

77 

ba 

9e 

le 

4d 

25 

0f 59 


0f 

bd 

ca 

dl 

f 6 

fd 

dd 

ee 

eB 

0f 61 


56 

f 7 

4c 

00 

00 

00 

00 

00 

c6 


Listing 11. (Schluß) 


name s hiresl.cad.obj c4B0 cfcd 


C400 

: 

a2 

0e 

4c 

3a 

a4 

20 

a0 

c6 

5f 

C40B 

: 

20 

9b 

b7 

8e 

3c 

03 

20 

a0 

53 

c410 

: 

c6 

20 

9b 

b7 

8e 

3d 

03 

20 

e3 

c41B 

: 

a0 

c6 

20 

9b 

b7 

Be 

3e 

03 

86 

c420 

3 

ad 

3c 

03 

c9 

10 

b0 

d9 

ad 

2f 

C42B 

3 

3d 

03 

c9 

10 

ba 

d2 

ad 

3e 

30 

c430 

: 

03 

c9 

03 

b0 

cb 

ad 

3c 

03 

10 

c43B 

: 

0a 

0a 

0a 

0a 

6d 

3d 

03 

ac 

31 

c440 

: 

3e 

03 

C0 

02 

f0 

19 

C0 

00 

4b 

c448 

: 

f0 

b6 

a2 

Bc 

Be 

53 

c4 

a0 

aS 

c450 

3 

00 

99 

00 

Bc 

c8 

dB 

fa 

e8 

7f 

c45B 

3 

e0 

90 

dB 

f0 

4c 

60 

c6 

a2 

fb 

C460 

8 

C0 

Be 

68 

c4 

a0 

00 

99 

00 

8 a 

C468 

3 

C0 

cB 

dB 

fa 

■B 

e0 

c4 

dB 

6a 

C470 

3 

f0 

4c 

80 

c6 

20 

a0 

c6 

20 

e2 

c478 

8 

9b 

b7 

Be 

41 

03 

20 

aB 

cb 

fc 

C480 

3 

20 

9b 

b7 

eB 

03 

90 

03 

4c 

dl 

C4B8 

3 

00 

c4 

ad 

41 

03 

B,- 

41 

03 

2e 

c490 

3 

aa 

e0 

01 

f0 

07 

e0 

02 

f0 

6a 

C49B 

3 

14 

4c 

00 

c4 

a9 

00 

85 

fa 

12 

c4a0 

3 

85 

fc 

a9 

r-0 

85 

fb 

a9 

a0 

4a 

c4aB 

8 

BS 

fd 

4c 

bl) 

c4 

a9 

00 

85 

5b 

c4b0 

3 

fa 

85 

fc 

a9 

a0 

85 

fb 

a9 

5b 

c4bB 

I 

e0 

BS 

fd 

a9 

34 

78 

85 

01 

2e 

c4c0 

3 

ae 

41 

03 

a0 

00 

bl 

fa 

e0 

lf 

c4c8 

8 

00 

f0 

0b 

e0 

02 

d0 

05 

51 

7d 

c4d0 

3 

fc 

4c 

d6 

c4 

11 

fc 

91 

fc 

7a 

c4dB 

3 

c8 

dB 

ea 

eb 

fb 

e6 

fd 

a5 

da 

c4e0 

3 

fd 

c9 

bf 

f0 

07 

c9 

ff 

f0 

70 

c4e8 

3 

03 

4c 

c3 

c4 

a0 

00 

bl 

fa 

61 

c4f 0 

3 

e0 

00 

f0 

0b 

ea 

02 

dB 

05 

d9 

c4f 8 

: 

51 

fc 

4c 

ff 

c4 

11 

fc 

91 

c6 

c500 

3 

fc 

c8 

C0 

41 

dB 

eB 

■)9 

37 

22 

c50B 

: 

85 

01 

5B 

60 

4c 

00 

c4 

20 

48 

c510 

3 

fd 

ae 

20 

Pb 

b7 

e0 

c8 

bB 

fl 

c518 

3 

f 3 

8e 

3f 

03 

a5 

14 

B5 

14 

bc 

c52B 

3 

a5 

15 

85 

15 

c9 

01 

90 

08 

4b 

c52B 

8 

dB 

c-2 

a5 

14 

c9 

40 

b0 

de 

70 

c530 

3 

20 

46 

cb 

ac 

3f 

03 

ad 

3f 

3d 

c538 

3 

03 

29 

f 8 

BS 

fe 

B5 

fc 

a9 

22 
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C 64 


GRAFIK-ERWEITERUNG 


C54B 


00 

85 

fd 

06 

fc 

26 

fd 

06 

48 

c548 


fc 

26 

fd 

18 

a5 

fc 

65 

fe 

b0 

c550 


B5 

fc 

a5 

fd 

69 

00 

85 

fd 

25 

c55B 


06 

fc 

26 

fd 

06 

fc 

26 

fd 

02 

c560 


06 

fc 

26 

fd 

98 

29 

07 

18 

4d 

c56B 


65 

f c 

B5 

fc 

a5 

fd 

69 

00 

3c 

c570 


85 

fd 

1B 

a5 

14 

29 

f 8 

65 

eB 

c57B 


fc 

85 

fc 

a5 

15 

65 

fd 

85 

aa 

CSB0 


fd 

ae 

3e 

03 

e0 

01 

dB 

lf 

5c 

c58B 


1B 

a9 

00 

65 

fc 

85 

fc 

a9 

65 

c590 


a0 

65 

fd 

B5 

fd 

«5 

14 

29 

• c2 

c598 


07 

49 

07 

aa 

a9 

01 

ca 

30 

B9 

c5a0 


03 

0 a 

dB 

fa 

4c 

c3 

c5 

1B 

66 

c5a8 


a9 

00 

65 

fc 

85 

fc 

a9 

O0 

f 3 

c5b0 


65 

fd 

85 

fd 

a5 

14 

29 

07 

e3 

c5b8 


49 

07 

aa 

a9 

bi 

ca 

30 

03 

92 

C5c0 


0a 

d0 

fa 

8d 

41 

03 

a 2 

34 

c 2 

c5cB 


a0 

00 

78 

B6 

01 

ae 

40 

03 

e4 

c5d0 


t-0 

02 

f0 

12 

«0 

01 

f0 

09 

lc 

c5d8 


49 

ff 

31 

fc 

91 

fc 

4c 

ea 

15 

c5b0 


c5 

11 

fc 

4c 

de 

c5 

51 

fc 

32 

c5eB 


91 

fc 

ae 

3e 

03 

e0 

03 

dB 

50 

cSf 0 


12 

a5 

fd 

38 

e9 

40 

85 

fd 

0e 

c5f 8 


a9 

04 

Bd 

3e 

03 

ad 

41 

03 

77 

c600 


4c 

c3 

c5 

ad 

3e 

03 

c9 

04 

B0 

c 60 B 


d0 

03 

ce 

3e 

03 

a 2 

37 

B6 

04 

c 610 


01 

58 

60 

20 

a0 

c6 

20 

9b 

51 

c61S 


b7 

e0 

03 

b0 

40 

e0 

02 

fB 

0b 

c 620 


27 

e0 

01 

f0 

10 

a9 

lb 

Bd 

ec 

c62B 


11 

d0 

a9 

15 

Bd 

1B 

dB 

a9 

df 

c630 


97 

4c 

c4 

cf 

ea 

ad 

11 

d0 

la 

c63B 


29 

80 

09 

3b 

Bd 

ii 

d0 

a9 

43 

C640 


3d 

Bd 

1B 

dB 

4c 

c4 

cf 

ea 

64 

c648 


ad 

11 

dB 

29 

80 

09 

3b 

8d 

2f 

c650 


ii 

d0 

a9 

0d 

Bd 

18 

dB 

a9 

06 

c65B 


3c 

4c 

c4 

cf 

ea 

4c 

00 

c4 

80 

c66B 


a 2 

a 0 

Be 

6b 

c6 

a9 

00 

a0 

5e 

c66B 

s 

00 

99 

00 

a 0 

c8 

d0 

fa 

e8 

la 

c670 


e0 

bf 

d0 

ee 

a0 

00 

9B 

99 

el 

c67B 


00 

bf 

cB 

C0 

80 

d0 

fB 

60 

d5 

c680 


a 2 

e0 

Be 

8b 

c6 

a9 

00 

a 0 

a2 

c6B8 


00 

99 

00 

e0 

cB 

dB 

fa 

e8 

42 

c690 


e 0 

ff 

d0 

ee 

a0 

80 

9B 

99 

21 

c698 


00 

ff 

c8 

C0 

80 

dB 

fB 

60 

15 

c6aB 


20 

79 

00 

c9 

2 c 

f0 

03 

4c 

a5 

c6a8 


08 

af 

60 

20 

fd 

ae 

20 

eb 

52 

c 6 b 0 


b7 

e 0 

c8 

b0 

a8 

8e 

42 

03 

2d 

c6b8 


a5 

14 

8d 

45 

03 

a5 

15 

Bd 

40 

C6c0 


46 

03 

c9 

01 

90 

09 

d0 

95 

da 

c6cB 


ad 

45 

03 

c9 

40 

b0 

Be 

20 

16 

c 6 d 0 


fd 

ae 

20 

eb 

b7 

e 0 

cB 

b0 

bl 

c6dB 


84 

8e 

43 

03 

a5 

14 

Bd 

47 

94 

c 6 e 0 


03 

a5 

15 

8d 

48 

03 

c9 

01 

73 

c6e8 


90 

09 

d0 

7a 

ad 

47 

03 

c9 

35 

c6f 0 


40 

b0 

73 

20 

46 

cb 

ac 

42 

63 

c6f 8 


03 

cc 

43 

03 

f0 

67 

b0 

66 

6c 

c700 


8c 

44 

03 

ad 

46 

03 

cd 

48 

69 

c708 


03 

90 

0C 

dB 

59 

ad 

45 

03 

Bf 

c710 


cd 

47 

03 

f 0 

50 

b0 

4f 

ac 

Bl 

c71B 


44 

03 

8c 

3f 

03 

ad 

45 

03 

a 2 

c720 


8d 

49 

03 

ad 

46 

03 

Bd 

4a 

10 

C72B 


03 

ad 

49 

03 

B5 

14 

ad 

4a 

f 9 

C730 


03 

85 

15 

20 

33 

cS 

18 

ad 

5c 

c73B 


49 

03 

69 

01 

Bd 

49 

03 

ad 

08 

c740 


4a 

03 

69 

00 

Bd 

4a 

03 

cd 

39 

c74B 


48 

03 

90 

dd 

d0 

0 a 

ad 

49 

98 

c750 


03 

cd 

47 

03 

90 

d3 

f0 

dl 

7b 

C75B 


ee 

44 

03 

ac 

44 

03 

cc 

43 

d5 

c760 


03 

90 

b7 

f0 

b5 

60 

4c 

BB 

47 

c768 


c4 

20 

fd 

ae 

20 

eb 

b7 

e 0 

93 

c770 


cB 

bB 

f 3 

Ba 

54 

03 

a5 

15 

7d 

c77B 


C9 

01 

90 

08 

dB 

ea 

aS 

14 

fa 

c78B 


c9 

40 

b0 

e2 

a5 

14 

8d 

4d 

bd 

c7B8 


03 

a5 

15 

Bd 

4e 

03 

20 

fd 

ce 

c790 


ae 

20 

eb 

b7 

e0 

cB 

b0 

ce 

f5 

c79B 


Be 

51 

03 

a5 

15 

c9 

01 

90 

09 

c7a0 


08 

dB 

c3 

a5 

14 

c9 

40 

b0 

aB 

c7aB 


bd 

aS 

14 

Bd 

4b 

03 

a5 

15 

7c 

c7b0 


Bd 

4c 

03 

ac 

4d 

03 

84 

14 

el 

c7bB 


ad 

4e 

03 

B5 

IS 

20 

46 

cb 

01 

c7c0 


a 0 

01 

8c 

4f 

03 

Bc 

50 

03 

ca 

c7cB 


Bc 

4d 

03 

BB 

Bc 

4e 

03 

8c 

2d 

c7d0 


58 

03 

8c 

59 

03 

88 

ad 

4c 

bc 

c7dB 


03 

c5 

15 

90 

09 

d0 

le 

ad 

00 

c7b0 


4b 

03 

c5 

14 

b0 

17 

38 

a5 

91 

c7eB 


14 

ed 

4b 

03 

Bd 

55 

03 

a5 

01 

c7f0 


15 

ed 

4c 

03 

Bd 

56 

03 

Bc 

20 

c7f 8 


4f 

03 

4c 

0e 

cB 

3B 

ad 

4b 

39 

cB00 


03 

e5 

14 

Bd 

55 

03 

ad 

4c 

69 

cB0B 


03 

e5 

15 

Bd 

56 

03 

ad 

51 

cc 

c 810 


03 

cd 

54 

03 

b0 

10 

38 

ad 

37 

c818 


54 

03 

ed 

51 

03 

8d 

57 

03 

93 

c820 


Bc 

50 

03 

4c 

2 c 

c8 

ed 

54 

88 

c828 


03 

Bd 

57 

03 

ad 

56 

03 

d0 

63 

c830 


24 

ad 

55 

03 

cd 

57 

03 

b0 

e6 

cB38 


lc 

ae 

57 

03 

Bd 

57 

03 

Be 

9e 

c840 


55 

03 

ad 

4f 

03 

8d 

59 

03 

74 

c848 


ad 

50 

03 

Bd 

58 

03 

c8 

Bc 

6a 

c850 


4 f 

03 

Bc 

50 

03 

ad 

56 

03 

4b 

C85B 


4a 

Bd 

53 

03 

ad 

55 

03 

6a 

04 


cB60 


Bd 

52 

03 

4c 

f 9 

cB 

ad 

4f 

9c 

c86B 


03 

30 

0e 

1B 

65 

14 

85 

14 

3f 

C870 


a5 

15 

69 

00 

85 

15 

4c 

86 

39 

cB7B 


cB 

38 

a5 

14 

e9 

01 

B5 

14 

2d 

c880 


a5 

15 

e9 

00 

85 

15 

1B 

ad 

e7 

cB88 


54 

03 

6d 

58 

03 

Bd 

54 

03 

bB 

c890 


18 

ad 

52 

03 

6d 

57 

03 

Bd 

2d 

c898 


52 

03 

ad 

53 

03 

69 

00 

Bd 

dB 

c 8 a 0 


53 

03 

ee 

4d 

03 

dB 

03 

ee 

7b 

cBaB 


4e 

03 

ad 

53 

03 

cd 

56 

03 

4c 

c 8 b 0 


90 

47 

d0 

08 

ad 

55 

03 

cd 

46 

cBbB 


52 

03 

b0 

3d 

38 

ad 

52 

03 

a0 

cBc0 


ed 

55 

03 

Bd 

52 

03 

ad 

53 

65 

c8cB 


03 

ed 

56 

03 

8d 

53 

03 

ad 

93 

c8d0 


59 

03 

30 

0e 

1B 

65 

14 

85 

Bl 

cBdB 


14 

a5 

15 

69 

00 

85 

15 

4c 

4a 

cBe0 


of 

cB 

38 

a5 

14 

e9 

01 

B5 

96 

c8eB 


14 

a5 

15 

e9 

00 

B5 

15 

18 

02 

c8f 0 


ad 

54 

03 

6d 

50 

03 

Sd 

54 

32 

c8f 8 


03 

ac 

54 

03 

8c 

3f 

03 

20 

d6 

c900 


33 

c5 

ad 

4e 

03 

cd 

56 

03 

49 

c90B 


90 

0b 

d0 

0B 

ad 

55 

03 

cd 

B0 

c910 


4d 

03 

b0 

01 

60 

4c 

66 

cB 

bf 

c91B 


20 

a0 

c6 

20 

9b 

b7 

8e 

5a 

a4 

c920 


03 

86 

02 

78 

a9 

79 

Bd 

14 

bb 

c928 


03 

a9 

c9 

Bd 

15 

03 

20 

61 

dl 

c930 


c9 

58 

60 

a9 

00 

Bd 

la 

dB 

e9 

c938 


78 

a9 

31 

Bd 

14 

03 

a9 

ea 

59 

c940 


8d 

15 

03 

58 

20 

a0 

c6 

20 

86 

C94B 


9b 

b7 

e0 

03 

b0 

10 

e0 

00 

66 

c950 


f0 

0c 

e 0 

01 

d0 

04 

20 

35 

b7 

C95B 


c6 

60 

20 

48 

c6 

60 

4c 

BB 

00 

c960 


c4 

a9 

bi 

8d 

la 

d0 

ad 

n 

ec 

C968 


d0 

29 

7f 

Bd 

ii 

dB 

a9 

00 

9d 

c970 


8d 

12 

dB 

a9 

bi 

8d 

19 

d0 

f 2 

c978 


60 

ad 

19 

dB 

29 

01 

dB 

03 

f 3 

c980 


4c 

31 

ea 

c6 

02 

f0 

06 

20 

f 8 

C9B8 


61 

c9 

4c 

31 

ea 

ad 

5a 

03 

93 

c990 


85 

02 

ad 

18 

d0 

c9 

0d 

f0 

f 6 

c998 


09 

20 

48 

c6 

20 

61 

c9 

4c 

69 

c9a0 


31 

ea 

20 

35 

c6 

20 

61 

c9 

7c 

c9aB 


4c 

31 

ea 

ad 

00 

de 

c9 

7f 

0 a 

c9b0 


f0 

45 

c9 

7e 

f0 

46 

c9 

77 

de 

c9b8 


f0 

47 

c9 

7d 

fB 

48 

c9 

7b 

dd 

C9C0 


f0 

49 

c9 

6f 

f0 

4a 

c9 

76 

2b 

C9c8 


f0 

4b 

c9 

75 

f0 

4c 

c9 

79 

0a 

c9d0 


f0 

4d 

c9 

7a 

f0 

4e 

c9 

6e 

ae 

C9d8 


f0 

63 

c9 

67 

f0 

64 

- ? 

6d 

0d 

c9e0 


ffc 

65 

c9 

6b 

f0 

66 

c9 

66 

99 

c9e8 


f0 

3f 

c9 

65 

f0 

40 

c9 

69 

a 2 

c9f 0 


f0 

41 

c9 

6a 

f0 

42 

60 

a9 

36 

c9f 8 


00 

4c 

51 

ca 

a9 

01 

4c 

51 

42 

ca 00 


ca 

a9 

03 

4c 

51 

ca 

a9 

05 

05 

ca 08 


4c 

51 

ca 

a9 

07 

4c 

51 

ca 

92 

calB 


a9 

B0 

4c 

51 

ca 

a9 

02 

4c 

dl 

ca 1B 


51 

ca 

a9 

04 

4c 

51 

ca 

a9 

B7 

ca20 


06 

4c 

51 

ca 

a9 

08 

4c 

51 

a9 

ca 28 


ca 

a9 

B2 
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9280 


a9 

el 

30 


20 

32 

bb 

a9 

6f 

9288 


fl 

30 

9f 

20 

50 

bB 

.19 

d7 

d6 

9290 


aB 

9e 

aa 

20 

d4 

bb 

a0 

29 

2e 

9298 


20 

a2 

b3 

a9 

fb 

30 

9f 

20 

Bf 

92a0 


67 

bB 

a9 

cd 

30 

9e 

aa 

20 

71 

92aB 


d4 

bb 

a0 

01 

20 

32 

b3 

a9 

db 

92b 0 


c8 

a0 

9e 

aa 

20 

d4 

bb 

60 

le 

92b8 


ea 

a9 

b5 

30 

9f 

20 

32 

bb 

f 5 

92c 0 


a9 

b0 

30 

9f 

20 

5b 

bc 

c9 

41 

92c 8 


ff 

f0 

53 

39 

ba 

a0 

9f 

aa 

ce 

92d0 


20 

d4 

bb 

39 

b0 

30 

9f 

20 

4d 

92dB 


a2 

bb 

39 

b5 

a0 

9f 

aa 

20 

6b 

92e0 


d4 

bb 

a9 

ba 

30 

9f 

20 

a2 

20 

92e8 


bb 

a9 

b0 

a0 

9f 

aa 

20 

d4 

31 

92f 0 


bb a9 

ab a0 9f 

70 

2 

bb 

7c 

92f 8 


a9 

ba 

30 

9f 

aa 

20 

d4 

bb 

91 

9300 


a9 

a6 

30 

9f 

20 

a2 

bb 

a9 

72 

9308 


ab 

30 

9f 

aa 

20 

d4 

bb 

a9 

2b 

9310 


ba 

30 

9f 

20 

a2 

bb 

39 

a6 

02 

9318 


a0 

9f 

aa 

20 

d4 

bb 

ea 

39 

61 

9320 


b5 

aß 

9f 

20 

a2 

bb 

39 

fl 

a4 

9328 


a0 

9f 

20 

5b 

bc 

8d 

a0 

9f 

05 

9330 


c9 

ff 

d0 

15 

a9 

b0 

30 

9f 

bl 

9338 


20 

a2 

bb 

39 

fi 

a0 

9f 

20 

b0 

9340 


5b 

bc 

c9 

ff 

dB 

03 

4c 

el 

86 

9348 


95 

ad 

30 

9f 

c9 

ff 

d0 

5f 

6e 

9350 


a9 

ab 

30 

9f 

20 

a2 

bb 

a9 

44 

9358 


a6 

a0 

9f 

20 

50 

b8 

a9 

96 

d9 

9360 


a0 

9f 

aa 

20 

d4 

bb 

a9 

b0 

b2 

9368 


a0 

9f 

20 

28 

ba 

a9 

9b 

a0 

Be 

9370 


9f 

aa 

20 

d4 

bb 

a9 

b5 

30 

28 

9378 


9f 

20 

a2 

bb 

39 

b0 

30 

9f 

29 

9380 


20 

50 

ba 

a9 

9b 

30 

9f 

20 

a9 

9388 


0f 

bb 

a9 

ab 

30 

9f 

20 

50 

7d 

9390 


b8 

a9 

96 

30 

9f 

20 

67 

b8 

e0 

9398 


a9 

ab 

30 

9f 

aa 

20 

d4 

bb 

a9 

93a0 


a9 

fi 

30 

9f 

20 

32 

bb 

39 

b7 

93aB 


b5 

a0 

9f 

aa 

20 

d4 

bb 

ea 

58 

93b0 


a9 

fb 

30 

9f 

20 

■2 

bb 

a9 

cc 

93bB 


b0 

aß 

9f 

20 

5b 

bc 

8d 

30 

b7 

93c 0 


9f 

c9 

ff 

f0 

03 

4c 

4b 

94 

4b 

93c 8 


•a 

«9 

b5 

30 

9f 

20 

5b 

bc 

ea 

93d0 


c9 

ff 

dB 

03 

4c 

el 

95 

ad 

b3 

93dB 


a0 

9f 

c9 

ff 

d0 

6d 

39 

a6 

26 

93e0 


a0 

9f 

20 

a2 

bb 

39 

ab 

30 

a5 

93b8 


9f 

20 

50 

bB 

39 

96 

30 

9f 

d3 

93f 0 


aa 

20 

d4 

bb 

a9 

b5 

30 

9f 

61 

93f 8 


20 

a2 

bb 

39 

fb 

30 

9f 

20 

11 

9400 


50 

bB 

39 

96 

a0 

9f 

20 

28 

cl 

9408 


ba 

a9 

9b 

30 

9f 

aa 

20 

d4 

0b 

9410 


bb 

b9 

b5 

30 

9f 

20 

32 

bb 

le 

9418 


a9 

bB 

30 

9f 

20 

50 

b8 

39 

f0 

9420 


9b 

30 

9f 

20 

0f 

bb 

39 

a6 

ba 

9428 


a0 

9f 

20 

50 

bB 

39 

96 

a0 

le 

9430 


9f 

20 

67 

b8 

89 

a6 

a0 

9-f 

62 

9438 


aa 

20 

d4 

bb 

39 

fb 

a0 

9f 

db 

9440 


20 

a2 

bb 

39 

b0 

30 

9f 

aa 

b9 

9448 


20 

d4 

bb 

ea 

a9 

ab 

30 

9f 

dB 

9450 


20 

a2 

bb 

39 

a6 

30 

9f 

20 

13 

945B 


5b 

bc 

c9 

ff 

f0 

53 

a9 

Bl 

17 

9460 


a0 

9f 

aa 

20 

d4 

bb 

39 

a6 

9e 

9468 


a0 

9f 

20 

a2 

bb 

39 

ab 

30 

2d 

9470 


9f 

aa 

20 

da 

bb 

39 

al 

a0 

dB 

9478 


9f 

20 

32 

bb 

a9 

a6 

30 

9f 

d9 

9480 


aa 

20 

d4 

bb 

a9 

b5 

30 

9f 

fl 


9488 

s 

20 

a2 

bb 

39 

3 1 

30 

9f 

aa 

10 

9490 

: 

20 

d4 

bb 

39 

b0 

a0 

9f 

20 

0d 

9498 

B 

a2 

bb 

a9 

b5 

30 

9-f 

aa 

20 

2b 

94a0 

8 

d4 

bb 

a9 

3 1 

30 

9f 

20 

a2 

bd 

94aB 

s 

bb 

a9 

b0 

30 

9f 

aa 

20 

d4 

fi 

94b0 

: 

bb 

ea 

39 

fl 

30 

9f 

20 

32 

56 

94b8 

8 

bb 

39 

ab 

30 

9f 

20 

5b 

bc 

29 

94c 0 

8 

Bd 

30 

9f 

c9 

bi 

f0 

03 

4c 

fb 

94c8 

3 

3f 

95 

ea 

39 

a6 

30 

9f 

20 

fo 

94d0 

3 

5b 

bc 

c9 

01 

dH 

03 

4c 

el 

36 

94dB 

3 

95 

ad 

30 

9f 

c9 

01 

dB 

5f 

06 

94e0 

8 

39 

b5 

30 

9f 

20 

32 

bb 

b9 

d9 

94e8 

3 

b0 

a0 

9f 

20 

50 

bB 

39 

96 

73 

94f 0 

8 

a0 

9f 

aa 

20 

d4 

bb 

39 

a6 

2e 

94f 8 

8 

30 

9f 

20 

28 

ba 

39 

9b 

30 

le 

9500 

3 

9f 

aa 

20 

d4 

bb 

39 

ab 

a0 

90 

9508 

8 

9f 

20 

32 

bb 

39 

a6 

30 

9f 

69 

9510 

3 

20 

50 

bB 

39 

9b 

30 

9f 

20 

39 

9518 

1 

0f 

bb 

a9 

b5 

30 

9f 

20 

50 

4e 

9520 

8 

b8 

39 

96 

30 

9f 

20 

67 

b8 

70 

9528 

8 

39 

b5 

30 

9f 

aa 

20 

d4 

bb 

3e 

9530 

8 

39 

fl 

a0 

9f 

20 

32 

bb 

a9 

47 

9538 

8 

ab 

30 

9f 

aa 

20 

d4 

bb 

ea 

de 

9540 

8 

a9 

f 6 

30 

9f 

20 

32 

bb 

39 

da 

9548 

3 

36 

30 

9f 

20 

5b 

bc 

Bd 

30 

3d 

95S0 

8 

9f 

c9 

ff 

f0 

03 

4c 

db 

95 

lf 

9558 

8 

ea 

39 

ab 

30 

9f 

20 

5b 

bc 

fB 

9560 

8 

c9 

ff 

dB 

03 

4c 

el 

95 

ad 

43 

9568 

8 

30 

9f 

c9 

ff 

dB 

6d 

39 

bB 

cb 

9570 

3 

30 

9f 

20 

32 

bb 

39 

b5 

aß 

5d 

9578 

8 

9f 

20 

50 

b8 

39 

96 

a0 

9f 

63 

9580 

8 

aa 

20 

d4 

bb 

39 

ab 

a0 

9f 

3l 

9588 

8 

20 

32 

bb 

39 

f 6 

a0 

9f 

20 

50 

9590 

3 

50 

b8 

39 

96 

30 

9f 

20 

28 

51 

9598 

3 

ba 

39 

9b 

a0 

9f 

aa 

20 

d4 

9b 

95a0 

3 

bb 

39 

ab 

a0 

9f 

20 

32 

bb 

2c 

95aB 

8 

39 

a6 

a0 

9f 

20 

50 

b8 

b9 

7b 

95b 0 

3 

9b 

a0 

9f 

20 

of 

bb 

39 

b0 

5e 

95b 8 

8 

30 

9f 

20 

50 

b8 

a9 

96 

30 

ae 

95c 0 

8 

9f 

20 

67 

b8 

a9 

b0 

30 

9f 

42 

95c 8 

I 

aa 

20 

d4 

bb 

a9 

f 6 

30 

9f 

43 

95d0 

8 

20 

32 

bb 

39 

a6 

a0 

9f 

aa 

39 

95d8 

8 

20 

d4 

bb 

39 

01 

Bd 

30 

9f 

c5 

95e0 

8 

60 

39 

00 

8d 

a0 

9f 

60 

4c 

e8 

95eB 

8 

00 

c4 

20 

fd 

ae 

20 

83 

ad 

84 

95f 0 

8 

a9 

dB 

30 

9f 

aa 

20 

d4 

bb 

98 

95f 8 

8 

20 

fd 

ae 

20 

8a 

ad 

39 

ce 

21 

9600 

: 

a0 

9f 

aa 

20 

d4 

bb 

20 

fd 

c6 

9608 


ae 

20 

Ba 

ad 

39 

c4 

a0 

9f 

al 

9610 


aa 

20 

d4 

bb 

20 

fd 

ae 

20 

64 

9618 


83 

ad 

a9 

d3 

30 

9f 

aa 

20 

50 

9620 

: 

d4 

bb 

20 

fd 

ae 

20 

83 

ad 

0b 

9628 

8 

a9 

c9 

30 

9f 

aa 

20 

d4 

bb 

48 

9630 


20 

fd 

ae 

20 

83 

ad 

a9 

bf 

3b 

9638 


a0 

9f 

aa 

20 

d4 

bb 

20 

46 

Bf 

9640 

8 

cb 

39 

dB 

a0 

9f 

20 

32 

bb 

27 

9648 


a9 

ec 

30 

9f 

20 

67 

bB 

39 

f 7 

9650 


b5 

30 

9f 

aa 

20 

d4 

bb 

39 

7d 

9658 


c4 

30 

9f 

20 

32 

bb 

a9 

e7 

d7 

9660 


30 

9f 

20 

67 

b8 

39 

ab 

aß 

Be 

9668 


9f 

aa 

20 

d4 

bb 

39 

d3 

aß 

99 

9670 


9f 

20 

32 

bb 

39 

ec 

30 

9f 

03 

9678 


20 

67 

b8 

39 

b0 

30 

9f 

aa 

93 

9680 


20 

d4 

bb 

39 

bf 

30 

9f 

20 

ee 

96BB 


a2 

bb 

39 

e7 

30 

9f 

20 

67 

c5 

9690 


b8 

b9 

a6 

30 

9f 

aa 

20 

d4 

54 

9698 


bb 

20 

bB 

92 

ad 

30 

9f 

c9 

d6 

9630 


00 

d0 

03 

4c 

54 

97 

ea 

39 

54 

96bB 


e2 

30 

9f 

20 

■2 

bb 

39 

b5 

e0 

96b0 


30 

9f 

20 

0f 

bb 

a9 

b5 

30 

2b 

96bB 


9f 

aa 

20 

d4 

bb 

39 

dd 

30 

11 

96c 0 


9f 

20 

32 

bb 

a9 

ab 

30 

9f 

49 

96cB 


20 

0f 

bb 

39 

f 9 

30 

ba 

20 

64 

96d0 


67 

b8 

39 

ab 

30 

9f 

aa 

20 

65 

96dB 


d4 

bb 

39 

e2 

30 

9f 

20 

32 

ld 

96e0 


bb 

39 

b0 

30 

9f 

20 

0f 

bb 

5f 

96e8 


39 

b0 

30 

9f 

aa 

20 

d4 

bb 

7c 

96f 0 


39 

dd 

30 

9f 

20 

32 

bb 

39 

fd 

96f 8 


a6 

30 

9f 

20 

0f 

bb 

b9 

f 9 

44 

9700 


30 

ba 

20 

67 

b8 

39 

a6 

aß 

37 

970B 


9f 

aa 

20 

d4 

bb 

20 

13 

97 

d7 

9710 


4c 

54 

97 

ea 

39 

b0 

30 

9f 

ab 

971B 


20 

32 

bb 

20 

f 7 

b7 

35 

14 

78 

9720 


Bd 

4b 

03 

a5 

15 

8d 

4c 

03 

bd 

9728 


b9 

a6 

a0 

9f 

20 

32 

bb 

20 

87 

9730 


f 7 

b7 

35 

14 

Bd 

51 

03 

a9 

bl 

9738 


ab 

a0 

9f 

20 

32 

bb 

20 

f 7 

98 

9740 


b7 

a5 

14 

Bd 

54 

03 

a9 

b5 

fB 

9748 


a0 

9f 

20 

32 

bb 

20 

f 7 

b7 

20 

9750 


20 

C0 

c7 

60 

ea 

39 

ce 

aß 

47 

9758 


9f 

20 

a2 

bb 

39 

ec 

30 

9f 

eb 

9760 

: 

20 

67 

b0 

a9 

b5 

30 

9f 

aa 

cb 

9768 


20 

d4 

bb 

39 

c4 

30 

9f 

20 

26 

9770 


32 

bb 

a9 

e7 

30 

9f 

20 

67 

ad 

9778 


b8 

a9 

ab 

30 

9f 

aa 

20 

d4 

7d 

9780 

8 

bb 

a9 

c9 

30 

9f 

20 

a2 

bb 

93 


Listing 

13. 

(Fortsetzung) 



name 

s 

hires2.C3d.obj 

9000 

9ef 9 

9000 

s 

4c 

00 

c4 

20 

79 

00 

c9 

2c 

99 

9008 


f0 

03 

4c 

0B 

3f 

60 

20 

03 

12 

9010 


90 

20 

9b 

b7 

eß 

04 

b0 

e8 

51 

901B 


eß 

00 

f0 

e4 

8e 

3e 

03 

e0 

7a 

9020 


01 

dB 

0d 

a9 

57 

Bd 

40 

90 

06 

9028 


39 

bd 

8d 

44 

90 

4c 

3a 

90 

ii 

9030 


s9 

57 

8d 

40 

90 

39 

fd 

Bd 

53 

9038 


44 

90 

78 

39 

34 

B5 

01 

39 

de 

9040 


57 

85 

fa 

39 

bd 

B5 

fb 

39 

99 

904B 


07 

85 

fc 

a9 

da 

85 

fd 

aß 

99 

9050 


00 

bl 

fc 

11 

f 3 

91 

f 3 

c8 

44 

9058 


C0 

39 

dß 

f 5 

35 

f 3 

18 

69 

45 

9060 


40 

B5 

fa 

35 

fb 

69 

01 

85 

f0 

9068 


fb 

a5 

fc 

18 

69 

a9 

85 

fc 

6c 

9070 


sS 

fd 

69 

00 

85 

fd 

c9 

db 

95 

9078 


dß 

d5 

35 

fc 

c9 

59 

dB 

cf 

86 

9080 


ad 

3e 

03 

c9 

03 

dB 

06 

ee 

f 3 

9088 


3e 

03 

4c 

23 

90 

ad 

3e 

03 

35 

9090 


c9 

04 

dß 

03 

ce 

3e 

03 

a9 

2e 

9098 


37 

85 

01 

58 

60 

30 

c7 

20 

4B 

9030 


a2 

b3 

39 

f 6 

aß 

9f 

aa 

20 

57 

9038 


d4 

bb 

30 

00 

20 

32 

b3 

39 

bb 

90b0 


fi 

30 

9f 

aa 

20 

d4 

bb 

aß 

07 

90bB 


30 

20 

32 

b3 

39 

ec 

aß 

9f 

4b 

90c0 


aa 

20 

d4 

bb 

30 

64 

20 

32 

13 

90c 8 


b3 

b9 

e7 

30 

9f 

aa 

20 

d4 

d7 

90d0 


bb 

30 

02 

20 

s2 

b3 

39 

e2 

94 

90dS 


30 

9f 

aa 

20 

d4 

bb 

30 

16 

dB 

90e0 


20 

32 

b3 

20 

fe 

ba 

39 

dd 

6b 

90e8 


30 

9f 

aa 

20 

d4 

bb 

30 

78 

35 

90f 0 


20 

32 

b3 

39 

f 6 

aß 

9f 

20 

b6 

90f 8 


67 

b8 

39 

fb 

30 

9f 

aa 

20 

97 

9100 


d4 

bb 

a9 

e7 

8d 

ii 

03 

a9 

da 

910B 


9b 

Bd 

12 

03 

s9 

35 

30 

bl 

fc 

9110 


20 

a2 

bb 

39 

fl 

30 

9f 

20 

88 

9118 


50 

b8 

39 

91 

30 

9f 

aa 

20 

53 

9120 


d4 

bb 

aß 

06 

20 

32 

b3 

a9 

f 4 

9128 


8c 

aß 

9f 

aa 

20 

d4 

bb 

aß 

la 

9130 


39 

20 

a2 

b3 

39 

f 6 

aß 

9f 

ac 

9138 


20 

67 

b8 

39 

82 

30 

9f 

aa 

70 

9140 


20 

d4 

bb 

30 

6d 

20 

32 

b3 

97 

9148 


a9 

82 

aß 

9f 

29 

281 b* 

39 

dß 

9150 


87 

aß 

9f 

aa 

20 

d4 bb 

3» 

3d 

9158 


67 

20 

32 

b3 

39 

82 30 

9.4 

5f 

9160 


20 

28 

ba 

39 

7d 

30 

9f 

4>a 

29 

9168 


20 

d4 

bb 

30 

dß 

22/ 

32 

b3 

'f 5 

9170 


39 

7d 

aß 

9f 

20 

(,? I»8 

39 

67 
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9788 

1 

a9 

ec 

a0 

9+ 

20 

67 

bB 

a9 

37 

9790 

3 

b0 

a0 

9f 

aa 

20 

d4 

bb 

a9 

bB 

9798 

8 

b+ 

a0 

9+ 

20 

a2 

bb 

a9 

e7 

12 

97a0 


a0 

9-f 

20 

67 

bB 

a9 

a6 

aB 

ba 

97aB 

8 

9f 

aa 

20 

d4 

bb 

20 

b8 

92 

04 

97b0 

: 

ad 

30 

9f 

c9 

00 

dB 

03 

4c 

+ a 

97b8 

8 

32 

98 

ea 

a9 

e2 

a0 

9+ 

20 

18 

97c0 

: 

a2 

bb 

a9 

bS 

a0 

9f 

20 

0 f 

06 

97c8 

3 

bb 

a9 

ec 

i0 

9+ 

20 

67 

bB 

bl 

97d0 

3 

a9 

b5 

aB 

9f 

aa 

20 

d4 

bb 

e6 

97d8 

8 

a9 

dd 
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a8 

20 

0c 

9e3B 

3 

a2 

b3 

4c 

55 

9e 

ad 

45 

03 

e4 

9e40 

3 

B5 

fa 

ad 

46 

03 

BS 

fb 

a0 

04 

9e4B 

1 

02 

bl 

fa 

4a 

4a 

4a 

4a 

4a 

df 

9e50 

1 

4a 

a8 

20 

a2 

b3 

ad 

62 

03 

83 

9e5B 

I 

B5 

49 

ad 

63 

03 

85 

4a 

60 

a0 

9e60 

3 

eb 

dl 

67 

63 

67 

73 

9b 

6 f 

d9 

9e68 

1 

73 

6 d 

9b 

4f 

43 

4f 

4d 

6 b 

ld 

9«70 

3 

5b 

db 

db 

6 f 

57 

55 

43 

51 

6 d 

9e7B 

3 

63 

67 

65 

4d 

b5 

93 

83 

B5 

a3 

9oB 0 

3 

89 

b5 

71 

43 

db 

4f 

4d 

6 b 

ed 

9eBB 

3 

69 

73 

59 

b5 

5d 

63 

55 

55 

a9 

9e90 

1 

4f 

4d 

51 

6 b 

4b 

b5 

a9 

db 

08 

9e98 

I 

4f 

4d 

6 b 

69 

73 

59 

b5 

49 

01 

9ea0 

3 

63 

5d 

4f 

5b 

6 b 

63 

6 b 

51 

13 

9ea8 

3 

db 

73 

5d 

5d 

b5 

51 

63 

67 

82 

9eb0 

3 

65 

4d 

4f 

b5 

51 

6 b 

4f 

6 b 

cb 

9ebB 

1 

51 

49 

6 b 

6 d 

b5 

b3 

db 

49 

31 

9ec0 

3 

6 b 

51 

4f 

63 

57 

59 

b5 

95 

56 

9ec8 

3 

99 

Bb 

b5 

97 

b5 

93 

Bb 

99 

e0 

9ed0 

3 

93 

99 

93 

B3 

85 

89 

db 

ff 

99 

9ed8 

I 

a5 

02 

c9 

e3 

f0 

03 

4c 

e2 

8 b 

9ee0 

3 

fc 

a0 

00 

b9 

60 

9e 

c9 

ff 

86 

9eeS 

I 

f0 

Bc 

49 

ff 

18 

4a 

38 

e9 

ba 

9ef 0 

3 

05 

20 

d2 

ff 

c8 

4c 

e3 

9e 

76 

9ef 8 

3 

60 

20 

20 

20 

20 

20 

20 

20 

38 



Listing 13. (Schluß) 




name 

s 

hires3.cad.obj 

5500 

6666 

5500 

.. 

aa 

4c 

d4 

bb 

20 

fd 

ae 

20 

6 a 

5508 

: 

8 a 

ad 

a9 

b5 

a0 

9f 

20 

00 

11 

5510 

: 

55 

20 

fd 

ae 

20 

8 a 

ad 

a9 

2 b 

5518 

s 

ab 

aB 

9f 

20 

00 

55 

20 

fd 

26 

5520 

: 

ae 

20 

8 a 

ad 

a9 

b0 

a0 

9f 

18 

5528 

: 

20 

00 

55 

20 

fd 

ae 

20 

Ba 

Bd 

5530 

s 

ad 

a9 

a6 

a0 

9f 

20 

bb 

55 

15 

553B 

s 

20 

46 

cb 

20 

bB 

92 

ad 

aB 

Ba 

5540 

a 

9f 

c9 

bi 

dB 

03 

20 

13 

97 

cb 

5548 

a 

60 

4c 

bb 

c4 

20 

03 

90 

20 

04 

5550 

r 

9b 

b7 

e0 

04 

b0 

f 3 

e0 

00 

ae 

5558 

: 

fB 

ef 

Be 

3e 

03 

a2 

02 

Se 

16 

5560 

: 

40 

03 

ad 

4f 

9f 

c9 

00 

f0 

al 

5568 

s 

03 

4c 

4a 

58 

a9 

93 

Bd 

01 

9e 

5570 

a 

dB 

a9 

b5 

Bd 

00 

d0 

a9 

00 

61 

5578 

3 

Bd 

10 

d0 

8 d 

eB 

07 

ad 

00 

71 

55B0 

8 

de 

29 

10 

f0 

f 9 

a5 

cb 

c9 

a2 

55BB 

: 

40 

d0 

fa 

a9 

00 

Bd 

77 

02 

72 

5590 

8 

85 

c6 

20 

9e 

99 

ad 

77 

02 

3d 

5598 

i 

c9 

00 

dB 

ef 

ac 

e9 

07 

20 

0 a 

55a0 

8 

a2 

ta3 

a9 

82 

aB 

9f 

20 

28 

ae 

5SaB 

I 

ba 

a9 

73 

a0 

9f 

20 

00 

55 

cd 

55b0 

8 

ac 

e8 

07 

20 

a2 

b3 

a9 

73 

ec 

55b8 

1 

aB 

9f 

20 

67 

bB 

a9 

73 

aB 

05 

55c 0 

3 

9f 

20 

00 

55 

ac 

ea 

07 

20 

99 

55c 8 

3 

a2 

b3 

a9 

6 e 

aB 

9f 

20 

00 

03 

55d0 

a 

55 

20 

85 

57 

a9 

00 

Bd 

eB 

24 

55d8 

i 

07 

ad 

00 

de 

29 

10 

f0 

f 9 

lc 

55e0 

8 

a5 

cb 

c9 

40 

d0 

fa 

a9 

00 

71 

55eB 

a 

Bd 

77 

02 

85 

c6 

ad 

00 

de 

+ 6 

55f 0 

: 

29 

10 

dB 

08 

a0 

00 

cB 

dB 

25 

55f 8 

3 

fd 

4c 

ed 

55 

20 

9e 

99 

ad 

fa 

5600 

8 

77 

02 

c9 

00 

dB 

e0 

ac 

e9 

85 

5608 

8 

07 

20 

a2 

b3 

a9 

82 

aB 

9f 

af 

5610 

8 

20 

28 

ba 

a9 

69 

a0 

9f 

20 

82 

5618 

8 

00 

55 

ac 

eB 

07 

20 

a2 

b3 

6 e 

5620 

: 

a9 

69 

aB 

9f 

20 

67 

bB 

a9 

0 d 

5628 

8 

69 

a0 

9f 

20 

00 

55 

ac 

ea 

00 

5630 

3 

07 

20 

a2 

b3 

a9 

64 

a0 

9f 

e6 

5638 

8 

20 

00 

55 

a9 

73 

aB 

9f 

20 

de 

5640 

: 

a2 

bb 

a9 

69 

a0 

9f 

20 

50 

7f 

5648 

s 

bB 

20 

58 

bc 

20 

0 c 

bc 

a9 

67 

5650 

: 

e2 

a0 

9f 

20 

78 

bf 

a9 

9b 

d2 

5658 

8 

a0 

9f 

20 

00 

55 

a9 

6 e 

aB 

6 e 

5660 

8 

9f 

20 

a2 

bb 

a9 

64 

aB 

9f 

af 

5668 

8 

20 

50 

bB 

20 

58 

bc 

20 

0 c 

e6 

5670 

3 

bc 

a9 

e2 

a0 

9f 

20 

78 

bf 

2 a 

567B 

8 

a9 

9b 

a0 

9f 

20 

67 

bB 

20 

6 b 
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C 64 


5680 

J 

71 

b+ 

39 

5f 

a0 

9+ 

20 

00 

a-f 

5680 

: 

55 

a9 

fl 

a0 

9f 

20 

5b 

bc 

24 

5690 

i 

c9 

00 

dB 

03 

4c 

4d 

58 

4c 

17 

569B 

s 

7a 

58 

ea 

a9 

5-f 

30 

9+ 

20 

eB 

56a0 

s 

a2 

bb 

39 

50 

30 

9f 

20 

0f 

33 

56aB 

1 

bb 

a9 

5a 

30 

9f 

20 

00 

55 

B8 

56bß 

8 

a9 

e2 

a0 

9f 

20 

28 

ba 

39 

68 

56b B 

3 

4a 

30 

9f 

20 

00 

55 

39 

+ 1 

73 

56c 0 

3 

a0 

9+ 

20 

a2 

bb 

39 

55 

30 

2c 

56cB 

3 

9+ 

20 

00 

55 

ea 

39 

55 

a0 

b5 

56d0 

3 

9+ 

20 

a2 

bb 

39 

5a 

30 

9+ 

ce 

56dB 

1 

20 

67 

b8 

39 

9b 

30 

9+ 

20 

Bd 

56c0 

3 

00 

55 

39 

55 

30 

9+ 

20 

32 

6d 

56e8 

3 

bb 

20 

64 

b2 

39 

5f 

30 

9+ 

80 

56f0 

3 

20 

28 

ba 

39 

73 

a0 

9+ 

20 

03 

56f 8 

3 

67 

bB 

a9 

b5 

30 

9+ 

20 

00 

64 

5700 

8 

55 

a9 

55 

30 

9f 

20 

32 

bb 

90 

570B 

8 

20 

6b 

e2 

39 

5+ 

30 

9+ 

20 

85 

5710 

3 

28 

ba 

39 

6e 

30 

9f 

20 

67 

24 

5718 

3 

bB 

a9 

ab 

30 

9f 

20 

00 

55 

49 

5720 

3 

a9 

9b 

a0 

9+ 

20 

32 

bb 

20 

+9 

572B 

1 

64 

e2 

39 

5+ 

30 

9+ 

20 

28 

2b 

5730 

8 

ba 

a9 

73 

30 

9f 

20 

67 

bB 

ba 

573B 

8 

a9 

b0 

30 

9+ 

20 

00 

55 

39 

00 

5740 

8 

9b 

a0 

9+ 

20 

32 

bb 

20 

6b 

77 

5748 

3 

b2 

a9 

5+ 

30 

9+ 

20 

28 

ba 

fc 

5750 

3 

a9 

6e 

30 

9+ 

20 

67 

bB 

a9 

C0 

5758 

3 

a6 

30 

9+ 

20 

00 

55 

20 

3b 

de 

5760 

3 

55 

a9 

4a 

30 

9+ 

20 

a2 

bb 

2d 

S76B 

3 

a9 

55 

30 

9f 

20 

67 

bB 

39 

4b 

5770 

3 

55 

30 

9f 

20 

00 

55 

39 

e5 

le 

5778 

3 

a0 

e2 

20 

5b 

bc 

c9 

+ + 

d0 

b9 

5780 

3 

03 

4c 

cc 

56 

60 

ac 

ea 

07 

cc 

5788 

8 

20 

a2 

b3 

39 

ab 

30 

9f 

20 

9a 

5790 

3 

00 

55 

39 

a6 

a0 

9 f 

20 

00 

01 

5798 

3 

55 

ac 

e9 

07 

20 

32 

b3 

39 

dB 

5730 

3 

82 

30 

9-f 

20 

28 

ba 

39 

b5 

c9 

57a8 

8 

30 

9+ 

20 

00 

55 

ac 

bB 

07 

Bc 

57b0 

3 

20 

a2 

b3 

39 

b5 

30 

9+ 

20 

62 

57b8 

3 

67 

bB 

39 

b5 

30 

9+ 

20 

00 

24 

57c0 

3 

55 

a9 

e2 

30 

9+ 

20 

67 

bB 

C0 

57cB 

3 

a9 

b0 

30 

9+ 

20 

00 

55 

39 

90 

57d0 

3 

e2 

30 

9+ 

20 

a2 

bb 

39 

b5 

0B 

57d8 

3 

30 

9+ 

20 

50 

bB 

39 

b5 

30 

4b 

57e0 

3 

9+ 

20 

00 

55 

20 

3b 

55 

ac 

c5 

57eB 

3 

ea 

07 

20 

32 

b3 

39 

ab 

a0 

2b 

57fß 

8 

9+ 

20 

00 

55 

a9 

e2 

30 

9-f 

bd 

57+8 

8 

20 

67 

bB 

39 

a6 

30 

9-f 

20 

5d 

5800 

: 

00 

55 

39 

e2 

a0 

9-f 

20 

32 

3e 

5808 

3 

bb 

a9 

ab 

30 

9+ 

20 

50 

bB 

44 

5810 

3 

a9 

ab 

a0 

9+ 

20 

00 

55 

ac 

5c 

5818 

3 

e9 

07 

20 

32 

b3 

a9 

B2 

30 

b5 

5820 

3 

9f 

20 

2B 

ba 

39 

b5 

a0 

9f 

3b 

5B28 


20 

00 

55 

ac 

e8 

07 

20 

32 

C0 

5830 


b3 

a9 

b5 

30 

9+ 

20 

67 

b8 

43 

5838 


a9 

b5 

a0 

9+ 

20 

00 

55 

a9 

B3 

5840 

3 

b0 

a0 

9f 

20 

03 

55 

20 

3b 

ce 

5848 


55 

60 

20 

9a 

56 

ea 

39 

6e 

69 

5850 


a0 

9f 

20 

32 

bb 

20 

+ 7 

b7 

28 

5B5B 


a5 

14 

8d 

ea 

07 

a9 

73 

30 

95 

5B60 


9f 

20 

32 

bb 

20 

+ 7 

b7 

aS 

lb 

5868 


14 

8d 

c8 

07 

a5 

15 

Bd 

e9 

6b 

5870 


07 

20 

B5 

57 

39 

00 

Bd 

4+ 

43 

5878 


9+ 

60 

20 

9a 

56 

39 

01 

Bd 

75 

5880 


4+ 

9+ 

60 

20 

46 

cb 

39 

0a 

38 

5888 


Bd 

45 

03 

39 

00 

Bd 

46 

03 

39 

SB90 


30 

02 

Be 

30 

9+ 

98 

1B 

6d 

62 

5B9B 


45 

03 

B5 

14 

Bd 

4b 

03 

ad 

dd 

S8a0 


46 

03 

69 

00 

85 

15 

Bd 

4c 

92 

5BaB 


03 

a9 

b4 

Bd 

54 

03 

39 

b7 

d2 

58b 0 


Bd 

51 

03 

20 

C0 

c7 

ac 

30 

*9 

5BbB 


9+ 

c8 

c8 

C0 

14 

d0 

d3 

ad 

78 

58c 0 


45 

03 

1B 

69 

0 a 

85 

14 

Bd 

+2 

58c 8 


4b 

03 

ad 

46 

03 

69 

00 

B5 

50 

S8d0 


15 

8d 

4c 

03 

39 

b4 

8d 

54 

3b 

56dB 


03 

a9 

ba 

Bd 

51 

03 

20 

C0 

3+ 

58b0 


c7 

ad 

45 

03 

85 

14 

Bd 

4b 

f 5 

58bB 


03 

ad 

46 

03 

85 

15 

8d 

4c 

84 

58+0 


03 

39 

b4 

8d 

54 

03 

a9 

bd 

26 

5Bf 8 


Bd 

51 

03 

20 

C0 

c7 

ad 

45 

7b 

5900 


03 

1B 

69 

14 

Bd 

45 

03 

ad 

57 

5908 


46 

03 

69 

00 

Bd 

46 

03 

c9 

d5 

5910 


01 

+ 0 

03 

4c 

90 

58 

ad 

45 

el 

591B 


03 

c9 

36 

+ 0 

03 

4c 

90 

5B 

31 

5920 


a9 

01 

85 

15 

8d 

4c 

03 

39 

B8 

5928 


36 

es 

14 

Bd 

4b 

03 

39 

b4 

b4 

5930 


Bd 

54 

03 

39 

bd 

Bd 

51 

03 

71 

5938 


20 

C0 

c7 

39 

03 

B5 

14 

a9 

d+ 

5940 


00 

85 

15 

a9 

3c 

Bd 

4b 

03 

el 

594B 


a9 

01 

Bd 

4c 

03 

39 

b4 

Bd 

ca 

5950 


54 

03 

8d 

51 

03 

20 

C0 

c7 

77 

595B 


60 

20 

lc 

62 

Bf? 

71 

03 

ca 

32 

5960 


0a 

aS 

20 

32 

b3 

39 

9b 

a0 

d3 

596B 


9f 

20 

00 

55 

39 

7B 

a0 

9f 

e2 

5970 

3 

20 

32 

bb 

a9 

9b 

a0 

9+ 

20 

B3 

5978 


0+ 

bb 

20 

cc 

bc 

39 

cB 

a0 

84 

5980 

3 

9e 

20 

67 

b8 

20 

+7 

b7 

a5 

0b 

59BB 


14 

Bd 

70 

03 

20 

lc 

62 

Be 

69 

5990 


68 

03 

20 

16 

62 

a9 

af 

30 

b8 


5998 

9e 

20 

00 

55 

20 

16 

62 

a9 

81 

5930 

b4 

30 

9e 

20 

00 

55 

20 

lc 

b3 

59aB 

62 

8b 

6d 

03 

20 

lc 

62 

8e 

97 

59b0 

6e 

03 

20 

16 

62 

39 

45 

a0 

34 

59bB 

9+ 

20 

00 

55 

a9 

01 

8d 

6+ 

ca 

59c 0 

03 

ad 

70 

03 

c9 

01 

f0 

14 

37 

59cB 

c9 

02 

fß 

0a 

c9 

03 

■f 0 

09 

9a 

59d0 

39 

03 

Bd 

71 

03 

60 

4c 

5a 

29 

59d8 

5c 

4c 

cd 

5d 

ad 

6d 

03 

c9 

5f 

59e0 

01 

+ 0 

33 

ad 

6e 

03 

c9 

01 

04 

59eB 

d0 

07 

39 

04 

a0 

9f 

4c 

0C 

77 

59+0 

5a 

c9 

02 

d0 

07 

39 

ff 

30 

cB 

59+ 8 

9e 

4c 

0C 

5a 

c9 

03 

dB 

07 

ii 

5a00 

39 

fa 

30 

9b 

4c 

0c 

5a 

ea 

B7 

5a0B 

a9 

+ 5 

30 

9e 

20 

a2 

bb 

39 

01 

5a 10 

45 

30 

9+ 

20 

00 

55 

30 

01 

C0 

5318 

20 

32 

b3 

a9 

c3 

30 

9e 

20 

37 

Sa 20 

00 

55 

ad 

68 

03 

c9 

00 

+ 0 

34 

5a2B 

0d 

20 

5c 

5b 

ad 

6f 

03 

c9 

be 

5a30 

00 

d0 

03 

4c 

28 

5b 

ea 

39 

3+ 

5a3B 

c3 

30 

9e 

20 

32 

bb 

20 

b2 

e5 

5a40 

9d 

39 

c8 

30 

9e 

20 

32 

bb 

e5 

Sa48 

20 

b3 

9d 

39 

b9 

a0 

9b 

20 

52 

5350 

00 

55 

39 

cB 

30 

9e 

20 

32 

43 

5a58 

bb 

39 

c3 

30 

9b 

20 

67 

bB 

b7 

5a60 

20 

b2 

9d 

39 

c8 

a0 

9e 

20 

c2 

5a6B 

32 

bb 

20 

b3 

9d 

39 

be 

30 

dB 

5a 70 

9b 

20 

00 

55 

ea 

39 

b9 

30 

ed 

5a78 

9e 

20 

32 

bb 

20 

98 

9c 

39 

d3 

5a80 

c8 

30 

9e 

20 

a2 

bb 

20 

+ 1 

b0 

5a88 

9b 

39 

dB 

30 

9+ 

20 

00 

55 

e8 

5a90 

39 

e2 

30 

9+ 

20 

32 

bb 

20 

0d 

5a98 

fl 

9b 

a9 

ce 

30 

9+ 

20 

00 

22 

5330 

55 

39 

7B 

a0 

9+ 

20 

32 

bb 

f 9 

5aaB 

20 

+ 1 

9b 

a9 

c4 

30 

9+ 

20 

ed 

5ab0 

00 

55 

a9 

45 

30 

9+ 

20 

a2 

3b 

SabB 

bb 

ad 

71 

03 

c9 

01 

d0 

11 

ii 

5ac0 

39 

dB 

a0 

9-f 

20 

28 

ba 

a9 

73 

5acB 

d8 

a0 

9f 

20 

00 

55 

4c 

f8 
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94 

20 

00 

55 

20 

7c 

61c0 


10 

Sc 

a9 

b9 

a0 

9e 

20 

a2 

65 

61cB 


bb 

20 

Ba 

9b 

a9 

cB 

a0 

9e 

4a 

61d0 


20 

a2 

bb 

a9 

b9 

a0 

9e 

20 

cl 

61 dB 


67 

bB 

a9 

b9 

30 

9e 

20 

00 

bc 

61e0 


55 

a9 

be 

30 

9e 

20 

5b 

bc 

94 

61e8 


c9 

44 

dB 

03 

4c 

85 

60 

ea 

8e 

6140 


a9 

cB 

.10 

9e 

20 

a2 

bb 

a9 

53 

6148 


c3 

30 

9e 

20 

67 

bB 

a9 

c3 

21 

6200 


a0 

9e 

20 

00 

55 

a9 

b4 

aB 

ae 

6208 


9e 

20 

ob 

bc 

c9 

44 

dB 

03 

0b 

6210 


4c 

33 

60 

4c 

4c 

5b 

20 

4d 

b4 

6218 


ae 

4c 

Ba 

ad 

20 

03 

90 

4c 

3a 

6220 


9b 

b7 

ea 

20 

03 

90 

20 

9b 

c2 

6228 


b7 

Be 

68 

03 

20 

4d 

ae 

20 

Be 

6230 


Ba 

ad 

a9 

a4 

a0 

9e 

20 

00 

71 

6238 


55 

20 

46 

cb 

a9 

cB 

30 

9e 

49 

6240 


20 

a2 

bb 

39 

c3 

30 

9e 

20 

dl 

6248 


00 

55 

a9 

01 

8d 

64 

0.5 

ea 

b4 

6250 


a9 

c3 

30 

9e 

20 

a2 

bb 

20 

ld 

6258 


b2 

9d 

a9 

c8 

a0 

9e 

20 

a2 

21 

6260 


bb 

20 

e3 

9d 

a9 

31 

a0 

94 

be 

6268 


20 

00 

55 

a9 

c3 

a0 

9e 

20 

04 

6270 


a2 

bb 

a9 

cB 

a0 

9e 

20 

67 

cl 

6278 


ba 

20 

b2 

9d 

a9 

c8 

30 

9e 

41 

6280 


20 

a2 

bb 

20 

e3 

9d 

a9 

2c 

0e 

6288 


a0 

94 

20 

00 

55 

a9 

41 

30 

ac 

6290 


94 

20 

5b 

bc 

C9 

00 

dB 

01 

90 

6298 


60 

ad 

68 

03 

c9 

00 

40 

0d 

c4 

62a0 


20 

5c 

5b 

ad 

64 

03 

c9 

00 

bl 

62a8 


d0 

03 

4c 

lb 

64 

ea 

a9 

31 

17 

62b0 


a0 

94 

20 

a2 

bb 

20 

98 

9c 

d5 

62bB 


a9 

cB 

aB 

9e 

20 

a2 

bb 

20 

07 

62c0 


41 

9b 

a9 

40 

aB 

94 

20 

00 

79 

62cB 


55 

a9 

e2 

a0 

94 

20 

a2 

bb 

bb 


62dB 


20 

ti 

9b 

39 

3b 

a0 

9+ 

20 

7c 

62d8 

t 

00 

55 

a9 

78 

a0 

9+ 

20 

a2 

c9 

62e0 

8 

bb 

20 

fl 

9b 

a9 

36 

a0 

9f 

39 

62eB 

8 

20 

00 

55 

39 

c8 

a0 

9e 

20 

df 

62+0 

8 

a2 

bb 

a9 

2c 

a0 

9+ 

20 

50 

80 

62+8 

8 

bB 

a9 

be 

30 

9e 

20 

00 

55 

de 

6300 

3 

20 

98 

9c 

39 

cB 

a0 

9e 

20 

15 

6308 

8 

a2 

bb 

20 

fl 

9b 

39 

d3 

a0 

66 

6310 

8 

9+ 

20 

00 

55 

a9 

e2 

30 

9+ 

dd 

6318 

3 

20 

a2 

bb 

20 

fl 

9b 

39 

c9 

b2 

6320 

8 

30 

9+ 

20 

00 

55 

a9 

78 

30 

5e 

6328 

3 

9f 

20 

a2 

bb 

20 

fl 

9b 

39 

4b 

6330 

8 

bf 

a0 

9f 

20 

00 

55 

a9 

40 

fd 

6338 

1 

30 

9f 

20 

a2 

bb 

•9 

d8 

a0 

b2 

6340 

3 

9f 

20 

00 

55 

a9 

3b 

30 

9f 

dB 

6348 

3 

20 

a2 

bb 

39 

ce 

30 

9f 

20 

Be 

6350 

3 

00 

55 

a9 

36 

30 

9f 

20 

a2 

f 9 

6358 

8 

bb 

a9 

c4 

30 

9f 

20 

00 

55 

d3 

6360 

8 

20 

41 

96 

a9 

31 

30 

9f 

20 

d2 

6368 

8 

a2 

bb 

a9 

cB 

30 

9e 

20 

67 

b9 

6370 

8 

b8 

a9 

b9 

30 

9e 

20 

00 

55 

15 

6378 

8 

ea 

a9 

b9 

30 

9e 

20 

a2 

bb 

a6 

6380 

3 

20 

98 

9c 

a9 

40 

a0 

9f 

20 

10 

6388 

8 

a2 

bb 

39 

d3 

30 

9f 

20 

00 

74 

6390 

3 

55 

a9 

3b 

30 

9f 

20 

a2 

bb 

9a 

6398 

3 

a9 

c9 

30 

9f 

20 

00 

55 

a9 

ed 

63a0 

8 

36 

30 

9f 

20 

a2 

bb 

a9 

b+ 

40 

63aB 

8 

30 

9f 

20 

00 

55 

a9 

cB 

30 

27 

63b 0 

8 

9e 

20 

a2 

bb 

20 

+ 1 

9b 

a9 

d2 

63b 8 


dB 

a0 

9f 

20 

00 

55 

a9 

40 

9e 

63c 0 

3 

a0 

9f 

20 

00 

55 

a9 

e2 

30 

37 

63c 8 

8 

9f 

20 

32 

bb 

20 

fl 

9b 

39 

eb 

63d0 


ce 

a0 

9f 

20 

00 

55 

a9 

3b 

32 

63dB 

8 

a0 

9+ 

20 

00 

55 

a9 

78 

30 

16 

63e0 

8 

9+ 

20 

a2 

bb 

20 

fl 

9b 

39 

03 

63b8 

8 

c4 

a0 

9f 

20 

00 

55 

a9 

36 

a6 

63+0 

3 

30 

9f 

20 

00 

55 

20 

41 

96 

fi 

63+8 

8 

a9 

c8 

30 

9e 

20 

a2 

bb 

a9 

5i 

6400 


b9 

30 

9e 

20 

67 

bB 

a9 

b9 

0b 

6408 

8 

30 

9e 

20 

00 

55 

a9 

be 

30 

de 

6410 


9e 

20 

5b 

bc 

c9 

01 

fB 

03 

9b 

6418 

8 

4c 

78 

63 

ea 

39 

cB 

30 

9e 

77 

6420 


20 

a2 

bb 

39 

c3 

a0 

9e 

20 

bl 

642B 

8 

67 

b8 

39 

c3 

30 

9e 

20 

00 

4e 

6430 


55 

4c 

4+ 

62 

20 

16 

62 

39 

5b 

6438 

3 

69 

a0 

9+ 

20 

00 

55 

20 

16 

35 

6440 


62 

a9 

64 

a0 

9+ 

20 

00 

55 

4a 

6448 

8 

20 

16 

62 39 

87 

a» 


20 

79 

6450 


00 

55 

20 

46 

cb 

a0 

«l/4 

20 

de 

6458 

8 

a2 

b3 

a9 

31 

a0 

9+ 

20 

00 

ec 

6460 


55 

a9 

69 

a0 

9+ 

20 

50 

bB 

a6 

6468 

8 

a9 

dQ 

a0 

9+ 

20 

00 

55 

39 

44 

6470 


31 

a0 

9+ 

20 

32 

bb 

39 

69 

5f 

6478 

8 

a0 

9+ 

20 

67 

b8 

39 

d3 

a0 

46 

6480 


9+ 

20 

00 

55 

20 

15 

65 

20 

5b 

6488 

3 

2a 

65 

20 

41 

96 

39 

31 

a0 

52 

6490 


9+ 

20 

32 

bb 

39 

64 

30 

9+ 

d+ 

6498 

8 

20 

50 

b8 

a9 

ce 

a0 

9f 

20 

f 4 

6430 

3 

00 

55 

a9 

31 

a0 

9f 

20 

32 

aB 

64aB 

8 

bb 

a9 

64 

30 

9+ 

20 

67 

CD 

n 

6f 

64b0 

8 

a9 

c9 

a0 

9f 

20 

00 

55 

20 

fl 

64bB 

3 

00 

65 

20 

2a 

65 

20 

41 

96 

42 

64c 0 

8 

a9 

31 

a0 

9+ 

20 

a2 

bb 

39 

77 

64c8 

3 

87 

30 

9 e 

20 

50 

b8 

a9 

c4 

46 

64d0 

3 

a0 

9f 

20 

00 

55 

a9 

31 

aB 

fl 

64dB 

8 

9+ 

20 

a2 

bb 

a9 

87 

30 

9e 

3e 

64eB 

3 

20 

67 

b8 

a9 

bf 

30 

9f 

20 

d7 

64e8 

3 

00 

55 

20 

00 

65 

20 

15 

65 

11 

64f 0 


20 

41 

96 

20 

00 

65 

20 

15 

30 

64f 8 

3 

65 

20 

2a 

65 

20 

41 

96 

60 

cc 

6500 

3 

a9 

69 

a0 

9f 

20 

32 

bb 

a9 

d3 

650B 

s 

dB 

a0 

9f 

20 

00 

55 

a9 

d3 

15 

6510 

3 

a0 

9f 

4c 

00 

55 

39 

64 

30 

00 

6518 

8 

9f 

20 

a2 

bb 

a9 

ce 

30 

9f 

ba 

6520 

8 

20 

00 

55 

39 

c9 

30 

9f 

4c 

B4 

6528 

3 

00 

55 

a9 

87 

30 

9e 

20 

a2 

f 3 

6530 

3 

bb 

a9 

C4 

a0 

9f 

20 

00 

55 

ab 

6538 

8 

a9 

bf 

30 

9f 

4c 

00 

55 

a9 

4a 

6540 

3 

67 

85 

fb 

a9 

dB 

65 

fa 

39 

16 

654B 

8 

00 

30 

00 

91 

f« 

c8 

d0 

fb 

fc 

6550 

3 

a9 

00 

85 

fa 

a5 

fb 

1B 

69 

27 

6558 

8 

01 

85 

+ b 

c9 

Bc 

d0 

eB 

60 

08 

6560 

3 

a2 

02 

20 

c9 

ff 

39 

00 

20 

d2 

656B 

3 

d2 

ff 

a9 

20 

20 

d2 

ff 

39 

94 

6570 

3 

00 

85 

fa 

ad 

5f 

03 

85 

fb 

c3 

6578 

8 

30 

00 

32 

35 

78 

86 

01 

bl 

Bb 

6580 

8 

+ a 

a2 

37 

86 

01 

5B 

20 

d2 

63 

65BB 

3 

** 

c8 

dB 

ee 

e6 

fb 

aS 

fb 

da 

6590 

3 

cd 

61 

03 

dB 

e3 

4c 

cc 

ff 

bc 

6598 

3 

a2 

02 

20 

c6 

ff 

20 

cf 

ff 

5c 

65a0 

3 

20 

c+ 

+ + 

a9 

00 

B5 

+ a 

ad 

50 

65aB 

3 

5f 

03 

85 

fb 

30 

00 

20 

cf 

94 

65b0 


ff 

91 

fa 

cB 

dB 

f 8 

e6 

fb 

b8 

65b 8 


a5 

fb 

cd 

61 

03 

d0 

ed 

4c 

01 

65c0 

3 

cc 

+ + 

4c 

00 

c4 

20 

03 

90 

19 

65c8 

3 

20 

9b 

b7 

O0 

03 

b0 

f 3 

e0 

07 

65d0 


00 

f0 

ef 

60 

20 

c5 

65 

e0 

d8 

65d8 

3 

01 

d0 

0d 

a9 

a0 

8d 

5f 

03 

b4 

65e0 

3 

a9 

C0 

Bd 

61 

03 

4c 

60 

65 

58 

65e8 


a9 

e0 

8d 

5f 

03 

a9 

00 

8d 

e9 


65f 0 

: 

61 

03 

4c 

60 

65 

20 

c5 

65 

2b 

65f 8 

: 

eB 

01 

d0 

0d 

a9 

30 

Sd 

5f 

c3 

6600 

8 

03 

a9 

C0 

Bd 

61 

03 

4c 

98 

4a 

6608 

1 

65 

a9 

e0 

8d 

5f 

03 

a9 

00 

■0 

6610 

3 

Bd 

61 

03 

4c 

98 

65 

a2 

02 

db 

6618 

3 

20 

c 6 

ff 

20 

cf 

ff 

20 

cf 

bc 

6620 

8 

ff 

20 

cf 

ff 

a5 

90 

d0 

3a 

ba 

6628 

8 

20 

c + 

ff 

f0 

35 

a6 

90 

eB 

da 

6630 

8 

00 

da 

2f 

20 

cf 

ff 

a6 

90 

21 

6638 

8 

e0 

00 

dB 

26 

85 

fa 

20 

cf 

61 

6640 

8 

ff 

a6 

90 

e0 

00 

dB 

lb 

a6 

13 

664B 

8 

fa 

20 

cd 

bd 

20 

cf 

+ + 

36 

4b 

6650 

8 

90 

e0 

00 

d0 

0d 

28 

d2 

ff 

88 

665B 

8 

d0 

+2 

a9 

0d 

20 

d2 

+ + 

4c 

df 

6660 

3 

21 66 20 cc ff 60 60 

Listing 14. (Schluß) 

b9 

4e 


name : hires4.cad.obj 554c 584b 


554c 

8 

4c 

bb 

c4 

20 

03 

90 

20 

9b 

33 

5554 

8 

b7 

e0 

10 

b0 

f 3 

8e 

5e 

03 

c9 

555c 

X 

20 

03 

90 

20 

9b 

b7 

e0 

10 

41 

5564 

: 

b0 

e6 

Be 

Sf 

03 

20 

03 

90 

75 

556c 

8 

20 

9b 

b7 

e0 

10 

b0 

d9 

Be 

6+ 

5574 


60 

03 

ad 

5e 

03 

0a 

0a 

0a 

4a 

557c 

8 

0a 

1B 

6d 

Sf 

03 

8d 

Se 

03 

f 6 

5584 

8 

20 

03 

90 

20 

9b 

b7 

e0 

03 

4f 

558c 


bB 

be 

e0 

00 

tB 

ba 

Se 

3e 

6f 

5594 

8 

03 

ad 

60 

03 

30 

00 

99 

00 

57 

559c 

8 

dB 

99 

00 

d9 

99 

00 

da 

99 

b4 

55a4 


00 

db 

CB 

d0 

+ 1 

ae 

3e 

03 

71 

55ac 


e0 

02 

+ 0 

ld 

ad 

5e 

03 

a0 

88 

55b 4 


00 

99 

00 

8c 

99 

00 

8d 

99 

15 

55bc 


00 

8e 

99 

00 

8f 

c8 

d0 

fi 

dB 

55c4 


20 

35 

c6 

a9 

dB 

8d 

16 

dB 

5a 

55cc 

8 

60 

ad 

5e 

03 

a0 

00 

99 

00 

6b 

55d4 


C0 

99 

00 

Cl 

99 

00 

c2 

99 

71 

55dc 

8 

00 

c3 

cB 

d0 

fi 

20 

48 

c6 

d9 

55e4 


4c 

c7 

55 

4c 

00 

c4 

20 

03 

9+ 

55ec 


90 

20 

9b 

b7 

Be 

5e 

03 

20 

92 

55+4 


03 

90 

20 

9b 

b7 

e0 

04 

b0 

a+ 

55+c 

8 

ea 

e0 

00 

+ 0 

e6 

Be 

3e 

03 

56 

5604 


e0 

01 

f0 

07 

e0 

02 

+0 

2b 

ba 

560c 


20 

37 

56 

39 

a0 

85 

+ b 

39 

0C 

5614 


00 

85 

fa 

ad 

5e 

03 

a0 

00 

cc 

561c 


91 

fa 

c8 

dB 

+ b 

e6 

fb 

35 

39 

5624 


fb 

c9 

b+ 

d0 

ee 

ad 

5e 

03 

ea 

562c 

s 

30 

00 

99 

00 

b+ 

cB 

C0 

41 

+ a 

5634 


d0 

+ 8 

60 

a9 

e0 

85 

fb 

a9 

4b 

563c 


00 

85 

fa 

ad 

5e 

03 

a0 

00 

f 4 

5644 


91 

fa 

c8 

d0 

fb 

e6 

fb 

a5 

dl 

564c 

8 

fb 

c9 

+ + 

dB 

ee 

ad 

5e 

03 

22 

5654 


a0 

00 

99 

00 

+ + 

c8 

C0 

41 

26 

565c 


dB 

+ 8 

60 

4c 

00 

c4 

20 

03 

+ 7 

5664 

3 

90 

20 

9b 

b7 

e0 

30 

b0 

+ 3 

30 

566c 

8 

8e 

5e 

03 

20 

03 

90 

20 

9b 

5b 

5674 


b7 

e0 

cB 

b0 

e6 

8e 

71 

03 

92 

567c 

8 

20 

03 

90 

20 

9b 

b7 

e0 

04 

49 

5684 


b0 

d9 

Be 

40 

03 

20 

03 

90 

2b 

568c 

8 

20 

9b 

b7 

e0 

04 

bB 

cc 

e0 

3e 

5694 


00 

f0 

c8 

Be 

3e 

03 

a9 

00 

b3 

569c 

8 

18 

0e 

5e 

03 

69 

00 

Bd 

5f 

3f 

56a4 


03 

ad 

5e 

03 

18 

69 

01 

Bd 

62 

56ac 

3 

60 

03 

ad 

5f 

03 

69 

00 

Bd 

7c 

56b 4 

3 

61 

03 

ad 

40 

03 

c9 

01 

f0 

6+ 

56bc 

3 

3d 

c9 

02 

f0 

44 

c9 

03 

f0 

fd 

56c 4 

8 

4b 

4c 

ef 

56 

Bd 

40 

03 

ad 

3e 

56c c 

8 

5e 

03 

B5 

14 

ad 

5f 

03 

B5 

7d 

56d4 

8 

15 

ad 

71 

03 

Bd 

3f 

03 

20 

9c 

56dc 

8 

33 

c5 

60 

Bd 

40 

03 

ad 

60 

4+ 

56e4 

8 

03 

85 

14 

ad 

61 

03 

B5 

15 

d3 

56ec 

8 

4c 

d5 

56 

a9 

00 

20 

cB 

56 

be 

56f 4 

8 

a9 

00 

20 

df 

56 

60 

39 

01 

b2 

56fc 

8 

20 

cB 

56 

39 

00 

20 

df 

56 

78 

5704 

3 

60 

a9 

00 

20 

cB 

56 

39 

01 

25 

570c 

8 

20 

df 

56 

60 

a9 

01 

20 

c8 

72 

5714 

8 

56 

39 

01 

20 

df 

56 

60 

32 

+b 

571c 

8 

02 

20 

c9 

ff 

39 

00 

20 

d2 

61 

5724 

8 

ff 

39 

20 

20 

d2 

ff 

39 

00 

dB 

572c 

8 

85 

fa 

a9 

e0 

85 

fb 

30 

00 

6+ 

5734 

8 

a2 

35 

78 

86 

01 

bl 

fa 

32 

2f 

573c 

8 

37 

B6 

bi 

58 

20 

d2 

ff 

cB 

2c 

5744 

8 

c0 

a0 

dB 

ec 

a5 

fa 

18 

69 

Bb 

574c 


40 

85 

fa 

a5 

fb 

69 

01 

85 

de 

5754 

8 

fb 

c9 

ef 

d0 

d9 

4c 

cc 

ff 

7d 

575c 

8 

20 

fd 

ae 

20 

Ba 

ad 

39 

b4 

51 

5764 


30 

9e 

aa 

20 

d4 

bb 

20 

+ d 

aa 

576c 

8 

ae 

20 

Ba 

ad 

a9 

c8 

30 

9e 

23 

5774 


20 

67 

bB 

a9 

a+ 

30 

9e 

aa 

7b 

577c 

8 

20 

d4 

bb 

39 

b4 

a0 

9e 

20 

35 

5784 


a2 

bb 

20 

b2 

9d 

ad 

45 

03 

c5 

578c 

8 

85 

fc 

ad 

46 

03 

B5 

fd 

39 

6b 

5794 

8 

67 

B5 

fb 

a9 

dB 

BS 

fa 

60 

d8 
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579c 

s 

ea 

a9 

af 

a0 

9« 

20 

a2 

bb 

48 

57a4 

s 

20 

98 

9c 

ad 

45 

03 

85 

fc 

6a 

57ac 

s 

ad 

46 

03 

85 

+ d 

a9 

6d 

85 

de 

57b 4 

s 

f b 

a9 

00 

85 

fa 

60 

a0 

00 

6a 

57bc 

: 

bl 

fa 

20 

d2 

ff 

a5 

+ a 

1B 

96 

57c 4 

s 

69 

01 

85 

+ a 

a5 

+b 

69 

00 

4b 

57cc 

: 

85 

+b 

c5 

+ d 

d0 

bB 

a5 

fa 

61 

57d4 

: 

c5 

♦ c 

d0 

e2 

60 

20 

cf 

++ 

ee 

57dc 

3 

•0 

00 

91 

+ a 

a5 

fa 

1B 

69 

aS 

57e4 

: 

01 

85 

+ a 

a5 

+ b 

69 

00 

85 

31 

57 Bc 

s 

+b 

c5 

+ d 

d0 

cB 

a5 

fa 

CS 

96 

57+4 

: 

fc 

d0 

e2 

60 

a2 

02 

20 

c9 

6b 

57+c 

8 

f + 

20 

5c 

57 

20 

ba 

57 

20 

83 

5804 

8 

9c 

57 

20 

ba 

57 

20 

cc 

ff 

55 

SB0c 

8 

60 

a2 

02 

20 

c6 

ff 

20 

5c 

bB 

5B14 

8 

57 

20 

d9 

57 

20 

9c 

57 

20 

61 

SBlc 

8 

d9 

57 

20 

cc 

+ + 

60 

03 

0f 

70 

SB24 

8 

10 

19 

12 

09 

07 

08 

14 

20 

a8 

5B2c 

3 

31 

39 

38 

36 

20 

13 

2b 

0c 

3a 

5B34 

8 

09 

10 

10 

13 

14 

12 

05 

15 

bc 

5B3c 

8 

20 

26 

20 

13 

2c- 

16 

09 

0c 

aa 

5844 

: 
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name 

8 

hiresS.cad. 

ob j 

62a6 

64d5 

62a6 


4c 

00 

c4 

a9 

00 

Bd 

41 

03 

dB 

62aB 


a9 

ff 

8d 

5+ 

03 

a9 

fb 

a0 

55 

62b6 


9f 

20 

a2 

bb 

a9 

f?2 

a0 

9+ 

+ 9 

62b e 


20 

28 

ba 

a9 

c8 

a0 

9b 

20 

22 

62c 6 


67 

b8 

a9 

fb 

a0 

9+ 

aa 

20 

65 

62cb 

: 

d4 

bb 

20 

b8 

92 

a9 

cB 

a0 

7a 

62d6 


9e 

20 

a2 

bb 

a9 

fb 

a0 

9+ 

el 

62dB 


20 

50 

bB 

a9 

fb 

a0 

9+ 

aa 

22 

62b6 


20 

d4 

bb 

a9 

b2 

a0 

9+ 

20 

86 

62eb 

: 

a2 

bb 

a9 

fb 

a0 

9+ 

20 

0f 

f d 

62+6 


bb 

a9 

+b 

a0 

9+ 

aa 

20 

d4 

12 

62+b 


bb 

ad 

a0 

9+ 

c9 

01 

+0 

01 

16 

6306 

: 

60 

ea 

a9 

b0 

a0 

9+ 

20 

a2 

2B 

630b 

: 

bb 

20 

+ 7 

b7 

a5 

14 

8d 

4b 

96 

6316 


03 

a5 

15 

Bd 

4c 

03 

a9 

a6 

b4 

631b 


a0 

9+ 

20 

a2 

bb 

20 

f 7 

b7 

+ 6 

6326 


aS 

14 

Bd 

51 

03 

a9 

ab 

30 

dB 

632b 


9+ 

20 

a2 

bb 

20 

f 7 

b7 

a5 

e9 

6336 

: 

14 

8d 

54 

03 

a9 

b5 

30 

9f 

90 

633b 


20 

a2 

bb 

20 

f 7 

b7 

a0 

01 

64 

6346 


8c 

4+ 

03 

Bc 

50 

03 

Bc 

4d 

b6 

634e 


03 

88 

Bc 

4e 

03 

8c 

58 

03 

7b 

6356 


Bc 

59 

03 

88 

ad 

4c 

03 

c5 

36 

635b 


15 

90 

09 

dB 

iE 

ad 

4b 

03 

9a 

6366 


c5 

14 

b0 

17 

38 

a5 

14 

ed 

21 

636b 


4b 

03 

8d 

55 

03 

a5 

15 

ed 

d6 

6376 


4c 

03 

Bd 

56 

03 

Bc 

4+ 

03 

4a 

637b 


4c 

92 

63 

38 

ad 

4b 

03 

B5 

00 

6386 


14 

Bd 

55 

03 

ad 

4c 

03 

e5 

2c 

638a 


15 

Bd 

56 

03 

ad 

51 

03 

cd 

6d 

6396 


54 

03 

b0 

10 

3B 

ad 

54 

03 

b2 

639b 

: 

Bd 

51 

03 

Sd 

57 

03 

Bc 

50 

07 

63a6 


03 

4c 

b0 

63 

cd 

54 

03 

Sd 

10 

63ae 


57 

03 

ad 

56 

03 

d0 

24 

ad 

60 

63b6 


55 

03 

cd 

57 

03 

b0 

lc 

ae 

6+ 

63be 


57 

03 

Bd 

57 

03 

Bb 

55 

03 

b5 

63c 6 


ad 

4f 

03 

Bd 

59 

03 

ad 

50 

92 

63cb 


03 

8d 

58 

03 

c8 

Bc 

4f 

03 

43 

63d6 


Bc 

50 

03 

ad 

56 

03 

4a 

Bd 

c3 

63dB 


53 

03 

ad 

55 

03 

6a 

8d 

52 

27 

63b6 


03 

4c 

7d 

64 

ad 

4f 

03 

30 

bd 

63ae 

: 

0B 

18 

65 

14 

85 

14 

aS 

15 

9b 

63+6 


69 

00 

B5 

15 

4c 

0a 

64 

38 

7a 

63f b 


a5 

14 

B9 

01 

B5 

14 

a5 

15 

02 

6406 


b9 

00 

85 

15 

18 

ad 

54 

03 

3a 

640e 

: 

6d 

5B 

03 

8d 

54 

03 

18 

ad 

33 

6416 


52 

03 

6d 

57 

03 

8d 

52 

03 

lc 

641b 


ad 

53 

03 

69 

00 

Bd 

53 

03 

23 

6426 


ec 

4d 

03 

d0 

03 

ee 

4b 

03 

7d 

642b 


ad 

53 

03 

cd 

56 

03 

90 

47 

4b 

6436 


d0 

08 

ad 

55 

03 

cd 

52 

03 

0B 

643b 


b0 

3d 

3B 

ad 

52 

03 

ed 

55 

+ 0 

6446 


03 

8d 

52 

03 

ad 

53 

03 

ed 

62 

644b 


56 

03 

Bd 

53 

03 

ad 

59 

03 

+d 

6456 


30 

0B 

18 

65 

14 

85 

14 

a5 

49 

645b 


15 

69 

00 

85 

15 

4c 

73 

64 

23 

6466 


38 

aS 

14 

e9 

01 

85 

14 

aS 

8b 

646b 


15 

e9 

00 

BB 

15 

18 

ad 

54 

9a 

6476 


03 

6d 

50 

03 

Bd 

54 

03 

ac 

85 

647b 


54 

03 

8c 

3+ 

03 

20 

9c 

64 

cb 

6486 


ad 

4e 

03 

cd 

56 

03 

90 

0b 

ab 

648b 


d0 

08 

ad 

55 

03 

cd 

4d 

03 

52 

6496 


b0 

01 

60 

4c 

ea 

63 

ad 

41 

6b 

649b 


03 

c9 

01 

+0 

lc 

CC 

5c 

03 

84 

64a6 


f0 

01 

60 

a5 

14 

Bd 

Sb 

03 

11 

64ae 


Bd 

60 

03 

a5 

15 

Bd 

5f 

03 

22 

64b6 


Sd 

61 

03 

a9 

01 

Bd 

41 

03 

71 

64be 


60 

CC 

5c 

03 

dB 

0b 

a5 

14 

20 

64c6 


Bd 

60 

03 

a5 

15 

Bd 

61 

03 

42 

64c e 

: 

60 

a9 

00 

8d 

41 

03 

60 

00 

62 
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64 


name 

3 

hirea6.cad. 

obj 

5000 

5444 

5000 

3 

a9 

01 

Bd 

40 

03 

20 

fd 

ae 

lc 

5008 


20 

8a 

ad 

a9 

b4 

30 

9e 

20 

19 

5010 


40 

54 

2E 

03 

90 

20 

9b 

b7 

cb 

5018 


Sb 

71 

03 

20 

03 

90 

20 

9b 

90 

5020 


b7 

Bc 

72 

03 

20 

+d 

ae 

20 

08 

5028 


Ba 

ad 

a9 

40 

30 

9+ 

20 

40 

03 

5030 


54 

20 

+ d 

ae 

20 

8a 

ad 

a9 

43 

5038 


3b 

a0 

9+ 

20 

40 

54 

20 

fd 

d2 

5040 


ae 

20 

8a 

ad 

a9 

36 

a0 

9+ 

65 

5048 


20 

40 

54 

20 

fd 

ae 

20 

8a 

Bc 

5050 


ad 

a9 

31 

a0 

9+ 

20 

40 

54 

d7 

5058 


20 

fd 

ae 

20 

Ba 

ad 

39 

2c 

3c 

5060 


a0 

9+ 

20 

40 

54 

20 

+ 7 

b7 

76 

5068 


a5 

14 

Bd 

70 

03 

20 

f d 

ae 

0f 

5070 


20 

8a 

ad 

a9 

27 

30 

9+ 

20 

ac 

5078 


40 

54 

20 

+ d 

ae 

20 

Ba 

ad 

lc 

5080 


a9 

22 

a0 

9+ 

20 

40 

54 

20 

ec 

50BB 


+ d 

ae 

20 

8a 

ad 

39 

Id 

30 

14 

5090 


9+ 

20 

40 

54 

20 

03 

90 

20 

77 

5098 


9b 

b7 

8c- 

73 

03 

8b 

3b 

03 

c4 

50a0 


a9 

c8 

,10 

7b 

20 

32 

bb 

39 

03 

50aS 


c3 

a0 

9e 

20 

40 

54 

39 

fb 

ac 

50b 0 


aß 

9+ 

20 

a2 

bb 

39 

cB 

aß 

ea 

50b8 


9b 

20 

67 

b8 

39 

13 

aß 

9+ 

4c 

50c 0 


20 

40 

54 

ad 

72 

03 

d0 

lf 

Bc 

50c8 


a9 

31 

a0 

9f 

20 

32 

bb 

39 

7f 

50d0 


2c 

a0 

9+ 

20 

28 

ba 

a9 

31 

9a 

50d8 


a0 

9f 

20 

40 

54 

a9 

2c 

30 

de 

50B0 


9+ 

20 

40 

54 

4c 

4f 

51 

ea 

84 

50b8 


a9 

04 

30 

9+ 

20 

32 

bb 

39 

09 

50+0 


2c 

a0 

9f 

20 

67 

b8 

39 

31 

9d 

50+8 


a0 

9+ 

20 

2B 

ba 

a9 

a5 

30 

46 

5100 


9b 

20 

40 

54 

aß 

09 

20 

a2 

61 

5108 


b3 

a9 

96 

aß 

9+ 

20 

40 

54 

ee 

5110 


a0 

08 

20 

a2 

b3 

39 

96 

aß 

35 

5118 


9f 

20 

0f 

bb 

a9 

2c 

30 

9f 

C0 

5120 


20 

67 

bS 

a9 

31 

30 

9f 

20 

2e 

5128 


28 

ba 

a9 

31 

aß 

9+ 

20 

40 

46 

S130 


54 

a9 

a5 

aß 

9b 

20 

32 

bb 

c3 

5138 


a9 

2c 

aß 

9f 

20 

40 

54 

a9 

bc 

5140 


13 

a0 

9+ 

20 

a2 

bb 

e6 

61 

f 6 

5148 


a9 

a0 

aß 

9e 

20 

40 

54 

ea 

68 

5150 


a9 

c3 

a0 

9e 

20 

32 

bb 

20 

ld 

5158 


b2 

9d 

a9 

c8 

30 

9e 

20 

a2 

21 

5160 


bb 

20 

e3 

9d 

39 

b9 

aß 

9e 

00 

5168 


20 

40 

54 

a9 

0B 

c" 

°f 

20 

97 

5170 


40 

54 

a9 c3 

30 

St. 

-•0 

32 

82 

5178 


bb 

a9 

c8 

aß 

9e 

20 

67 

bB 

4B 

5180 


20 

b2 

9d 

a9 

cB 

30 

9e 

20 

e2 

5188 


a2 

bb 

20 

e3 

9d 

39 

be 

aß 

f0 

5190 


9b 

20 

40 

54 

a9 

00 

Bd 

41 

2c 

5198 


03 

ea 

a9 

b9 

30 

9e 

20 

a2 

77 

51a0 


bb 

20 

98 

9c 

39 

cB 

a0 

9e 

c6 

SlaB 


20 

a2 

bb 

20 

fl 

9b 

a9 

ce 

4c 

51b0 


a0 

9+ 

20 

40 

54 

a9 

B2 

30 

8+ 

51bB 


9f 

20 

a2 

bb 

20 

+i 

9b 

39 

db 

51c0 


dB 

a0 

9+ 

20 

40 

54 

39 

78 

12 

51cB 


a0 

9+ 

20 

a2 

bb 

20 

+ 1 

9b 

50 

51 dB 


a9 

c4 

aß 

9f 

20 

40 

54 

ad 

aB 

51d8 


71 

03 

+0 

7b 

39 

3b 

30 

9f 

ad 

51e0 


20 

a2 

bb 

a9 

ce 

30 

9f 

20 

26 

51b8 


50 

bB 

a9 

18 

aß 

9+ 

20 

40 

0a 

51f 0 


54 

a9 

+ 1 

a0 

9f 

20 

5b 

bc 

Bb 

51+B 


c9 

00 

+0 

Sb 

39 

18 

aß 

9f 

86 

5200 


20 

a2 

bb 

a9 

cc 

30 

9f 

20 

46 

5208 


0+ 

bb 

a9 

18 

30 

9+ 

20 

40 

63 

5210 


54 

a9 

40 

30 

9+ 

20 

a2 

bb 

53 

5218 


a9 

d8 

a0 

9+ 

20 

50 

ba 

39 

04 

5220 


1B 

a0 

9+ 

20 

28 

ba 

39 

d8 

25 

5228 


a0 

9f 

20 

50 

bB 

39 

dB 

30 

27 

5230 


9+ 

20 

40 

54 

39 

36 

30 

9+ 

88 

523B 


20 

a2 

bb 

a9 

c4 

30 

9+ 

20 

dd 

5240 


50 

bB 

a9 

18 

30 

9+ 

20 

28 

32 

5248 


ba 

a9 

c4 

30 

9+ 

20 

50 

bB 

ca 

5250 


a9 

c4 

30 

9+ 

20 

40 

54 

ea 

33 

5258 


a9 

27 

30 

9+ 

20 

32 

bb 

a9 

03 

5260 


ec 

a0 

9+ 

20 

50 

bB 

39 

dB 

ab 

5268 


a0 

9+ 

20 

67 

bB 

39 

31 

30 

ac 

5270 


9+ 

20 

28 

ba 

39 

dB 

30 

9f 

a4 

527B 


20 

40 

54 

a9 

22 

30 

9+ 

20 

e8 

5280 


a2 

bb 

a9 

e7 

30 

9f 

20 

50 

8+ 

5288 


bB 

a9 

c4 

30 

9f 

20 

67 

bB 

64 

5290 


a9 

2c 

aß 

9f 

20 

28 

ba 

37 

Bd 

5298 

B< 

c4 

a0 

9f 

20 

40 

54 

ad 

72 

da 

52a0 


03 

f0 

31 

a7 

dB 

30 

9f 

20 

ee 

52a8 


a2 

bb 

a9 

96 

30 

9+ 

20 

40 

6d 

52b0 


54 

a9 

c4 

30 

9+ 

20 

a2 

bb 

lb 

52b B 


a9 

a0 

30 

9e 

20 

50 

bB 

39 

68 

52c 0 


dB 

a 0 

9+ 

20 

40 

54 

a9 

96 

4+ 

S2c8 


a0 

9f 

20 

a2 

bb 

a9 

c4 

30 

+ 2 

52d0 


9+ 

20 

40 

54 

ea 

39 

ld 

30 

CC 

52d8 


9+ 

20 

a2 

bb 

a9 

c4 

30 

9f 

2a 

52b0 


20 

50 

bB 

a9 

c4 

30 

9+ 

20 

9c 

52b8 


40 

54 

a9 

b9 

30 

9e 

20 

a2 

b9 

52f 0 


bb 

a9 

be 

30 

9e 

20 

5b 

bc 

15 

52f 8 


c9 

00 

d0 

1 + 

39 

69 

aß 

9f 

81 
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5300 

8 

20 

32 

bb 

39 

dB 

aß 

9+ 

20 

e7 

5300 

s 

40 

54 

a9 

87 

30 

9e 

20 

32 

92 

5310 

: 

bb 

a9 

C4 

30 

9+ 

20 

40 

54 

Bb 

5318 

s 

4c 

44 

53 

ad 

41 

03 

dB 

24 

c9 

5320 

B 

39 

01 

Bd 

41 

03 

39 

dB 

30 

f 7 

5328 


9f 

20 

32 

bb 

39 

69 

aß 

9f 

9+ 

5330 

B 

20 

40 

54 

39 

c4 

aß 

9f 

20 

cb 

5338 

S 

a2 

bb 

39 

B7 

aß 

9e 

20 

40 

13 

5340 

B 

54 

4c 

db 

53 

ea 

39 

dB 

30 

bc 

5348 

3 

9+ 

20 

32 

bb 

39 

b5 

30 

9f 

21 

5350 

3 

20 

40 

54 

39 

c4 

30 

9+ 

20 

cb 

5358 

s 

32 

bb 

a9 

ab 

30 

9+ 

20 

40 

C0 

5360 

B 

54 

39 

d3 

30 

9+ 

20 

32 

bb 

Bf 

5368 

3 

39 

b0 

30 

9+ 

20 

40 

54 

39 

2b 

5370 

B 

bf 

30 

9f 

20 

a2 

bb 

a9 

36 

67 

5378 

3 

aß 

9f 

20 

40 

54 

20 

3b 

55 

d6 

5380 

3 

ad 

70 

03 

c9 

02 

d0 

54 

a9 

ab 

5388 

3 

13 

30 

9+ 

20 

32 

bb 

37 

dB 

3B 

5390 

> 

30 

9f 

20 

50 

bB 

39 

b5 

aß 

03 

5398 

3 

9f 

20 

40 

54 

39 

c4 

30 

9f 

64 

5330 

B 

20 

32 

bb 

39 

ab 

30 

9+ 

20 

b4 

53aB 

8 

40 

54 

39 

13 

30 

9+ 

20 

a2 

ac 

53b0 

3 

bb 

a9 

d3 

30 

9+ 

20 

50 

be 

+ 6 

53b8 

3 

a9 

bß 

aß 

9f 

20 

40 

54 

a9 

7b 

53c 0 

8 

bf 

aß 

9+ 

20 

32 

bb 

39 

36 

b7 

53c 8 

3 

aß 

9f 

20 

40 

54 

39 

02 

Bd 

+ B 

53d0 

8 

3b 

03 

20 

3b 

55 

ad 

73 

03 

96 

S3dB 

3 

Bd 

3e 

03 

ea 

39 

dB 

30 

9+ 

c6 

53c0 

3 

20 

32 

bb 

a9 

d3 

30 

9+ 

20 

76 

53b8 

3 

40 

54 

a9 

c4 

30 

9+ 

20 

a2 

22 

53+0 

3 

bb 

39 

bf 

30 

9+ 

20 

40 

54 

28 

53+8 

3 

39 

b9 

aß 

9b 

20 

32 

bb 

a9 

d3 

5400 

B 

cB 

aß 

9b 

20 

67 

bB 

39 

b9 

1 • 

5408 

3 

aß 

9e 

20 

40 

54 

39 

be 

aß 

d6 

5410 

3 

9e 

20 

5b 

bc 

c9 

01 

fß 

03 

9b 

541B 

8 

4c 

99 

51 


a9 

c3 

30 

9b 

5b 

5420 

3 

20 

a2 

bb 

a9 

cB 

30 

9c 

20 

02 

542B 

3 

67 

b8 

a9 

c3 

30 

9b 

20 

40 

cc 

5430 

8 

54 

a9 

b4 

30 

9c 

20 

5b 

bc 

6c 

5438 

3 

c9 

00 

+0 

03 

4c 

4f 

51 

60 

e3 

5440 

3 

aa 

4c 

d4 

bb 

00 

00 

00 

00 

bd 


Listing 17. (Schluß) 


name : hirM7.cad.obj 3800 4B81 


3B00 

s 

e6 

61 

20 

f 7 

b7 

35 

14 

B5 

32 

3B08 

: 

+ 3 

a5 

15 

18 

69 

50 

B5 

fb 

44 

3810 

s 

a9 

45 

30 

9f 

20 

a2 

bb 

39 

dl 

3818 

: 

+9 


ba 

20 

28 

ba 

39 

91 

36 

3B20 

: 

30 

9+ 

20 

67 

b8 

20 

+ 7 

b7 

61 

3828 

: 

30 

00 

35 

14 

91 

+ 3 

cB 

35 

14 

3830 

: 

15 

91 

+ 3 

60 

e6 

61 

20 

+7 

c2 

3838 

s 

b7 

35 

15 

18 

69 

50 

B5 

15 

64 

3840 

s 

30 

00 

bl 

14 

aa 

cB 

bl 

14 

af 

384B 


38 

8a 

20 

Bl 

39 

39 

91 

aß 

d6 

3850 


9+ 

20 

a2 

bb 

39 

68 

aß 

49 

12 

3B5B 


20 

50 

bB 

39 

68 

a0 

49 

aa 

03 

TOtpi 


20 

d4 

bb 

39 

+ 9 

aß 

ba 

20 

de 

3868 


a2 

bb 

39 

68 

aß 

49 

4c 

0+ 

03 

3870 


bb 

20 

+ 7 

b7 

35 

14 

18 

69 

Se 

3878 


53 

B5 

+ 3 

a5 

15 

69 

4b 

85 

B9 

3880 


fb 

30 

00 

bl 

f 3 

38 

4c 

82 

6d 

3888 


b3 

20 

f 7 

b7 

35 

14 

18 

69 

6b 

3890 


5s 

85 

fa 

35 

15 

69 

45? 

B5 

01 

3898 


fb 

39 

45 

30 

9+ 

20 

a2 

bb 

ca 

38a0 


20 

+ 7 

b7 

85 

14 

30 

00 

91 

cB 

38bB 


+ 3 

60 

ea 

89 

30 

30 

9e 

20 

8c 

38b0 


28 

ba 

39 

9b 

30 

9+ 

20 

67 

69 

3BbB 


bB 

e6 

61 

20 

f 7 

b7 

35 

14 

3c 

38c 0 


1B 

69 

28 

85 

+ 3 

35 

15 

69 

4c 

38 c 8 


4d 

85 

fb 

a9 

45 

30 

9f 

20 

24 

38d0 


32 

bb 

39 

+9 

30 

ba 

20 

28 

aa 

3Bd8 


ba 

a9 

91 

30 

9+ 

20 

67 

ba 

B9 

38b0 


20 

+ 7 

b7 

30 

00 

85 

14 

91 

9b 

38bB 


+ 3 

cB 

85 

15 

91 

f 3 

60 

ea 

9b 

38f 0 


89 

30 

a0 

9e 

20 

28 

ba 

39 

67 

38+ 8 


9b 

30 

9f 

20 

67 

bB 

c6 

61 

6a 

3900 

s 

20 

+ 7 

b7 

35 

14 

18 

69 

2B 

b6 

3908 


85 

fa 

35 

15 

69 

4d 

85 

fb 

25 

3910 


30 

00 

bl 

fa 

aa 

c8 

bl 

+ 3 

2s 

3918 


38 

83 

20 

81 

39 

39 

91 

30 

a6 

3920 


9+ 

20 

32 

bb 

89 

68 

a0 

49 

e2 

3928 


20 

50 

bB 

39 

68 

30 

49 

aa 

da 

3930 


20 

d4 

bb 

39 

+ 9 

30 

ba 

20 

ae 

3938 


a2 

bb 

39 

6B 

aß 

49 

4c 

0 + 

d3 

3940 

s 

bb 

e6 

61 

20 

+ 7 

b7 

85 

14 

c7 

3948 


1B 

69 

de 

85 

«8 

a5 

15 

69 

01 

3950 


49 

85 

fb 

aß 

00 

ad 

72 

03 

ac 

395B 


91 

+ 3 

ad 

73 

03 

cB 

91 

+ 3 

+3 

3960 


60 

e6 

61 

20 

+7 

b7 

a5 

14 

Bc 

396B 


1B 

69 

de 

B5 

+ 8 

35 

15 

69 

21 

3970 


49 

B5 

fb 

30 

00 

bl 

+ 3 

Bd 

23 

3978 


72 

03 

cB 

bl 

+ 3 

8d 

73 

03 

c4 

3980 


60 

Bd 

4f 

9+ 

20 

32 

b3 

35 

30 


Listing 18. Hilfsprogramm »HiRes 7a 
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GRAFIK-ERWEITERUNG 


3980 

: 

61 

18 

69 

08 

85 

61 

a9 

68 

2c 

3990 

3 

a0 

49 

aa 

20 

d4 

bb 

ac 

4« 

00 

3998 

s 

9« 

20 

a2 

b3 

a9 

68 

a0 

49 

59 

39a0 


20 

67 

bB 

a9 

68 

a0 

49 

aa 

dd 

39a8 

3 

20 

d4 

bb 

60 

20 

fd 

ae 

4c 

72 

39b 0 

3 

8a 

ad 

20 

03 

90 

4c 

9b 

b7 

c3 

39bB 

8 

00 

08 

35 

3d 

02 

0a 

37 

3« 

7d 

39c0 

3 

10 

18 

25 

2d 

12 

la 

27 

2« 

bB 

39c8 

3 

31 

39 

04 

0c 

33 

3b 

06 

Be 

Sa 

39d0 

3 

21 

29 

14 

lc 

23 

2b 

16 

le 

2« 

39dB 

1 

03 

0b 

36 

3e 

01 

09 

34 

3c 

58 

39e0 

3 

13 

lb 

26 

2e 

11 

19 

24 

2c 

93 

39e8 

1 

32 

3a 

07 

0f 

30 

38 

05 

Bd 

ce 

39« 0 

8 

22 

2a 

17 

1« 

20 

28 

15 

ld 

a3 

39« 8 

3 

ad 

75 

03 

0a 

0a 

0a 

6d 

74 

«2 

3a00 

3 

03 

a8 

b9 

bB 

39 

aB 

4c 

a2 

2c 

3a08 

8 

b3 

20 

b2 

39 

Be 

77 

03 

20 

90 

3a 10 

3 

b2 

39 

Be 

7a 

03 

20 

b2 

39 

C0 

3al8 

3 

Be 

76 

03 

20 

b2 

39 

Be 

7b 

CC 

3a20 

3 

03 

20 

b2 

39 

Be 

7d 

03 

20 

28 

3a2B 

8 

b2 

39 

Be 

79 

03 

20 

ac 

39 

a0 

3a30 

8 

a9 

6d 

a0 

49 

aa 

20 

d4 

bb 

58 

3a 38 

3 

20 

ac 

39 

a9 

b4 

a0 

9e 

aa 

52 

3a 40 

3 

20 

d4 

bb 

20 

ac 

39 

a9 

aa 

4e 

3a4B 

3 

a0 

9e 

aa 

20 

d4 

bb 

20 

b2 

f 7 

3aS0 

3 

39 

Be 

Bl 

03 

20 

b2 

39 

Be 

2b 

3a5B 

3 

82 

03 

20 

b2 

39 

8e 

3e 

03 

cl 

3a60 

3 

Be 

7c 

03 

20 

6f 

3c 

4c 

de 

b5 

3a6B 

3 

45 

a9 

01 

Bd 

68 

03 

39 

d8 

6b 

3a70 


a0 

9f 

20 

a2 

bb 

a9 

d3 

aB 

d6 

3a7B 

3 

9f 

20 

5b 

bc 

30 

55 

«0 

53 

ae 

3a80 

3 

a9 

68 

aB 

49 

aa 

20 

d4 

bb 

25 

3a 88 

3 

a9 

d3 

ad 

9« 

20 

a2 

bb 

a9 

90 

3a90 


dB 

a0 

9f 

aa 

20 

d4 

bb 

39 

e0 

3a9B 

3 

6B 

a0 

49 

20 

a2 

bb 

39 

d3 

fd 

3aa0 

3 

a0 

9f 

aa 

20 

d4 

bb 

a9 

ce 

2e 

3aa8 

3 

a0 

9« 

20 

a2 

bb 

a9 

68 

aB 

60 

3ab0 


49 

aa 

20 

d4 

bb 

a9 

c9 

a0 

62 

3abB 

3 

9« 

20 

a2 

bb 

a9 

ce 

30 

9« 

5a 

3ac0 

8 

aa 

20 

d4 

bb 

a9 

6S 

ad 

49 

la 

3ac8 

3 

20 

a2 

bb 

a9 

c9 

30 

9« 

aa 

d3 

3ad0 

3 

20 

d4 

bb 

20 

de 

3c 

a9 

a4 

00 

3ad8 

3 

a0 

49 

20 

a2 

bb 

a9 

ce 

30 

ff 

3ae0 


9« 

20 

50 

bS 

a9 

9a 

aB 

49 

3f 

3ae8 


aa 

20 

d4 

bb 

a9 

dB 

a0 

9f 

72 

3a«0 


20 

a2 

bb 

20 

cc 

bc 

20 

2b 

de 

3a« 8 

: 

bc 

10 

07 

a9 

fl 

ad 

9f 

20 

96 

3b 00 


a2 

bb 

ea 

a9 

55 

a0 

9f 

aa 

9e 

3b0B 


20 

d4 

bb 

a9 

d3 

30 

9f 

20 

b7 

3b 10 


a2 

bb 

20 

cc 

bc 

a9 

d6 

30 

e7 

3b 1B 

3 

49 

20 

5b 

bc 

30 

09 

«0 

07 

fd 

3b20 


a9 

d6 

a0 

49 

20 

a2 

bb 

ea 

61 

3b 28 

3 

a9 

cc 

a0 

49 

aa 

20 

d4 

bb 

ff 

3b 30 


ea 

a9 

9a 

a0 

49 

20 

a2 

bb 

41 

3b 38 

8 

a9 

a4 

a0 

49 

20 

67 

bB 

a9 

f 8 

3b 40 

3 

9a 

a0 

49 

aa 

20 

d4 

bb 

a9 

bd 

3b4B 

3 

55 

a0 

9f 

20 

a2 

bb 

ad 

76 

85 

3bS0 


03 

f 0 

11 

a9 

e2 

a0 

9f 

20 

37 

3b58 

3 

a2 

bb 

a9 

55 

aB 

9f 

20 

0« 

92 

3b 60 


bb 

20 

cc 

bc 

ea 

a9 

95 

ad 

89 

3b68 

8 

49 

aa 

20 

d4 

bb 

20 

34 

38 

a7 

3b70 


a9 

31 

a0 

9« 

aa 

20 

d4 

bb 

44 

3b78 

8 

ad 

77 

03 

«0 

41 

ad 

7a 

03 

31 

3b 80 


«0 

08 

ad 

7B 

03 

«0 

03 

4c 

4b 

3b 88 

3 

be 

3b 

ea 

a9 

9a 

30 

49 

20 

e8 

3b 90 

3 

50 

b8 

20 

58 

bc 

.19 

e2 

a0 

35 

3b98 

3 

9« 

20 

Sb 

bc 

10 

20 

ad 

7a 

63 

3ba0 

3 

03 

d0 

0b 

a9 

01 

Bd 

40 

03 

87 

3ba8 

3 

20 

0a 

3d 

4c 

eB 

3b 

a9 

01 

b7 

3bb0 

3 

0d 

78 

03 

20 

0a 

3d 

a9 

00 

6f 

3bb8 

3 

8d 

78 

03 

4c 

eB 

3b 

ea 

a9 

33 

3bc0 

8 

e2 

a0 

9« 

20 

a2 

bb 

■d 

6B 

6e 

3bc0 

3 

03 

(0 

03 

20 

b4 

bf 

ea 

a9 

50 

3bd0 

3 

31 

ad 

9« 

20 

67 

bB 

a9 

9a 

55 

3bd8 

3 

a0 

49 

20 

5b 

bc 

10 

09 

ad 

5c 

3be0 

3 

68 

03 

Bd 

40 

03 

20 

0a 

3d 

09 

3beB 

8 

ea 

a9 

55 

a0 

9« 

20 

a2 

bb 

0d 

3bf 0 

3 

a9 

aa 

a0 

9e 

20 

67 

bB 

a9 

5e 

3b« 0 

8 

55 

a0 

9« 

aa 

20 

d4 

bb 

a9 

c5 

3c 00 

3 

cc 

a0 

49 

20 

Sb 

bc 

c9 

01 

37 

3c08 

3 

«0 

03 

4c 

30 

3b 

60 

ea 

a9 

49 

3cl0 


dB 

ad 

9« 

20 

a2 

bb 

a9 

d3 

7b 

3c 1B 

3 

a0 

9« 

20 

50 

b8 

a9 

9« 

a0 

33 

3c 20 

3 

49 

aa 

20 

d4 

bb 

aS 

61 

dB 

71 

3c 28 

8 

10 

a9 

«1 

ad 

9f 

20 

a2 

bb 

9a 

3c 30 

3 

a9 

•4 

ad 

49 

aa 

20 

d4 

bb 

f 3 

3c 38 

3 

60 

ea 

a9 

ce 

ad 

9f 

20 

a2 

le 

3c40 

8 

bb 

a9 

c9 

,-.0 

9« 

20 

50 

bB 

04 

3c4B 

8 

a9 

68 

■0 

49 

aa 

20 

d4 

bb 

ed 

3c 50 

8 

a9 

9« 

a0 

49 

20 

32 

bb 

a9 

73 

3c5B 

8 

68 

a0 

49 

20 

0f 

bb 

ad 

76 

d9 

3c 60 

3 

03 

«0 

02 

e6 

61 

ea 

a9 

a4 

96 

3c 68 

8 

a0 

49 

aa 

20 

d4 

bb 

60 

30 

49 

3c70 

3 

33 

20 

a2 

b3 

a9 

a0 

30 

9e 

32 

3c 7B 

3 

aa 

20 

d4 

bb 

a0 

3« 

20 

a2 

a9 

3c 80 


b3 

a9 

96 

ad 

9e 

aa 

20 

d4 

2b 

3c88 

3 

bb 

•9 

ec 

a0 

9« 

20 

32 

bb 

64 

3c 90 


e6 

61 

a9 

8c 

ad 

9e 

aa 

20 

0d 

3c98 

3 

d4 

bb 

a9 

aa 

a0 

9e 

20 

2B 

d9 


3c aB 

: 

ba 

a9 

68 

a0 

49 

aa 

20 

d4 

71 

3c aB 

a 

bb 

a9 

cB 

ad 

9e 

20 

a2 

bb 

6b 

3cb0 

: 

a9 

68 

ad 

49 

20 

50 

b8 

a9 

99 

3cbB 

8 

d6 

a0 

49 

aa 

20 

d4 

bb 

a9 

71 

3cc0 

S 

aa 

aB 

9e 

20 

a2 

bb 

20 

f 7 

de 

3ccB 

8 

b7 

a5 

14 

8d 

70 

03 

ac 

76 

c7 

3cd0 

: 

03 

cB 

20 

a2 

b3 

a9 

aa 

a0 

0B 

3cd8 

s 

9e 

aa 

20 

d4 

bb 

a9 

cB 

ad 

db 

3c eB 

3 

9e 

20 

a2 

bb 

a9 

91 

aB 

9f 

97 

3c eB 

I 

20 

50 

b8 

a9 

Bb 

a0 

49 

aa 

cc 

3cf 0 

a 

20 

d4 

bb 

a9 

«9 

ad 

ba 

20 

6e 

3cf 8 

a 

a2 

bb 

..9 

Bb 

aB 

49 

20 

0f 

47 

3d00 

3 

bb 

a9 

8b 

aB 

49 

aa 

20 

d4 

9b 

3dBB 

s 

bb 

60 

ad 

79 

03 

f0 

48 

a9 

ba 

3dl0 

8 

6d 

aB 

49 

20 

a2 

bb 

a9 

9a 

08 

3dlB 

3 

ad 

49 

20 

80 

bB 

20 

2b 

bc 

22 

3d20 

3 

Bd 

a0 

9f 

20 

5B 

bc 

a9 

cB 

Bd 

3d28 

8 

aB 

9e 

20 

bb 

bc 

30 

06 

ad 

4c 

3d30 

3 

a0 

9f 

30 

23 

60 

ea 

a9 

6d 

ef 

3d3B 

1 

aB 

49 

20 

a2 

bb 

a9 

45 

aB 

39 

3d40 

8 

9f 

aa 

20 

d4 

bb 

a9 

95 

a0 

78 

3d4B 

8 

49 

20 

a2 

bb 

20 

00 

38 

a9 

f 8 

3dS0 

8 

01 

Bd 

40 

03 

4 c 

83 

3d 

ea 

34 

3d5B 

8 

a9 

9a 

a0 

49 

20 

a2 

bb 

a9 

f 9 

3d60 

8 

45 

,i0 

9f 

aa 

20 

d4 

bb 

a9 

ld 

3d68 

3 

95 

aB 

49 

20 

a2 

bb 

20 

00 

2c 

3d70 

3 

38 

ad 

78 

03 

f0 

05 

a9 

00 

db 

3d7B 

8 

Bd 

40 

03 

ad 

7a 

03 

fB 

03 

25 

3d80 

8 

4c 

3b 

3e 

ad 

7c 

03 

8d 

3e 

42 

3dBB 

3 

03 

ad 

70 

03 

c9 

02 

dB 

35 

39 

3d90 

3 

a9 

8c 

a0 

9e 

20 

a2 

bb 

a9 

d5 

3d9B 

8 

95 

,i0 

49 

20 

0f 

bb 

20 

cc 

bd 

3da0 

8 

bc 

20 

f 7 

b7 

e6 

14 

a5 

14 

2f 

3da8 

8 

8d 

Je 

03 

c9 

02 

90 

16 

a9 

9f 

3db0 

8 

8c 

aB 

9e 

20 

a2 

bb 

a9 

95 

12 

3db8 

3 

aB 

49 

20 

50 

bB 

,19 

95 

aB 

7f 

3dc0 

8 

49 

aa 

20 

d4 

bb 

ad 

76 

03 

0a 

3dc8 

8 

f0 

13 

,i9 

72 

a0 

49 

20 

a2 

15 

3dd0 

8 

bb 

20 

f 7 

b7 

aS 

14 

18 

6d 

c6 

3ddS 

8 

40 

03 

Bd 

40 

03 

ad 

40 

03 

aa 

3de0 

3 

c9 

04 

90 

05 

a9 

03 

8d 

40 

d9 

3deB 

3 

03 

ad 

76 

03 

fB 

10 

a9 

95 

21 

3df 0 

3 

aB 

49 

20 

a2 

bb 

20 

f 7 

b7 

9d 

3df 8 

3 

20 

ac 

3f 

4c 

32 

3e 

ea 

a9 

de 

3e00 

; 

95 

a0 

49 

20 

a2 

bb 

20 

f 7 

b4 

3e0B 

8 

b7 

20 

93 

3f 

ad 

7b 

03 

dB 

00 

3el0 

3 

03 

4c 

32 

3e 

ea 

a9 

95 

aB 

21 

3el8 

3 

49 

20 

a2 

bb 

20 

f > 

Äf > 

18 

62 

3e20 

3 

46 

14 

b0 

06 

20 

eB 

oe 

4c 

38 

3e2B 

3 

32 

3e 

ad 

7f 

03 

f0 

03 

20 

d9 

3e30 

3 

eB 

3e 

ad 

7d 

03 

fB 

03 

4c 

af 

3e38 

8 

c7 

3f 

60 

a9 

00 

8d 

7f 

03 

5d 

3e40 

3 

ad 

40 

03 

c9 

01 

dB 

06 

Bd 

dl 

3e4B 

3 

7f 

03 

4c 

83 

3d 

ea 

a9 

95 

c9 

3e50 

3 

ad 

49 

20 

a2 

bb 

20 

f 7 

b7 

fd 

3e5B 

3 

a5 

14 

29 

07 

Bd 

74 

03 

ad 

16 

3e60 

3 

7e 

03 

29 

07 

Bd 

75 

03 

a9 

6f 

3e68 

8 

c3 

aB 

9e 

20 

a2 

bb 

20 

71 

92 

3e70 

3 

38 

a9 

77 

a0 

49 

aa 

20 

d4 

83 

3e78 

3 

bb 

ad 

76 

03 

dB 

lc 

a9 

78 

Bd 

3eB0 

3 

aB 

9f 

20 

a2 

bb 

a9 

77 

aB 

74 

3eB8 

3 

49 

20 

0f 

bb 

20 

cc 

bc 

a9 

cb 

3e9B 

8 

77 

a0 

49 

aa 

20 

d4 

bb 

4c 

2f 

3e98 

8 

ca 

3e 

ea 

a9 

96 

aB 

9e 

20 

9a 

3ea0 

8 

a2 

bb 

a9 

77 

a0 

49 

20 

0f 

6c 

3eaB 

8 

bb 

20 

cc 

bc 

a9 

72 

a0 

49 

81 

3eb0 

3 

aa 

20 

M 

bb 

a9 

96 

aB 

9e 

26 

3ebB 

8 

20 

28 

ba 

a9 

77 

aB 

49 

20 

b2 

3ec0 

3 

50 

b9 

a9 

77 

a0 

49 

aa 

20 

05 

3ecB 

3 

d* 

bb 

20 

fB 

39 

a9 

77 

a0 

al 

3ed0 

3 

49 

20 

5b 

bc 

c9 

01 

f0 

08 

10 

3ed8 

8 

a9 

01 

8d 

40 

03 

4c 

83 

3d 

BB 

3ee0 

3 

a9 

00 

Bd 

40 

03 

4c 

83 

3d 

10 

3eeB 

8 

ea 

a9 

95 

afl 

49 

20 

a2 

bb 

bB 

3ef 0 

3 

20 

«7 

b7 

a5 

14 

4a 

29 

07 

f 5 

3ef 8 

8 

Bd 

74 

03 

ad 

7e 

03 

29 

07 

e9 

3f 00 

3 

Bd 

7 b 

03 

a9 

c3 

.10 

9e 

20 

3a 

3f0B 

3 

a2 

bb 

20 

71 

38 

a9 

77 

a0 

ae 

3f 10 

3 

49 

aa 

20 

d4 

bb 

a9 

96 

aB 

f 6 

3f 18 

3 

9e 

20 

a2 

bb 

a9 

77 

a0 

49 

52 

3f 20 

3 

20 

Et 

bb 

20 

cc 

bc 

a9 

72 

f 9 

3f 28 

3 

aB 

49 

aa 

20 

d4 

bb 

a9 

96 

la 

3f 30 

8 

ad 

9» 

20 

28 

ba 

•9 

77 

a0 

45 

3f 38 

8 

49 

20 

50 

bB 

a9 

77 

a0 

49 

28 

3f 40 

8 

aa 

20 

d4 

bb 

a9 

72 

ad 

49 

ea 

3f 4B 

8 

20 

•2 

bb 

20 

f 7 

b7 

a5 

14 

a8 

3f50 

3 

Bd 

40 

03 

ad 

7f 

03 

t0 

06 

54 

3f 5B 

8 

ee 

40 

03 

4c 

6f 

3f 

20 

f 8 

14 

3f 60 

3 

39 

a9 

77 

aB 

49 

20 

Sb 

bc 

de 

3f 68 

3 

c9 

01 

fB 

03 

ee 

40 

03 

ad 

a7 

3f 70 

3 

40 

03 

c9 

04 

90 

05 

a9 

03 

03 

3f 78 

3 

Bd 

40 

03 

ea 

a9 

95 

a0 

49 

a0 

3f 80 

3 

20 

a2 

bb 

20 

f 7 

b7 

18 

46 

0e 

3f8B 

3 

15 

66 

14 

a9 

02 

8ri 

3e 

03 

96 

3f 90 

3 

4c 

ac 

3f 

a5 

15 

f0 

0C 

c9 

53 

3f 98 

3 

01 

f0 

01 

60 

a5 

14 

c9 

40 

BB 

3fa0 

3 

90 

01 

60 

ad 

7e 

03 

ad 

3f 

33 

3faB 

8 

03 

4c 

33 

c5 

a5 

15 

fB 

01 

20 

3fb0 

8 

60 

a5 

14 

c9 

aB 

90 

01 

60 

74 


3fb8 


a5 

14 

Bd 

5e 

03 

ad 

7e 

03 

34 

3fc0 


Bd 

71 

03 

20 

9a 

56 

60 

a9 

fc 

3f cB 

: 

00 

Bd 

40 

03 

ad 

7f 

03 

f0 

c4 

3fd0 


08 

a9 

01 

Bd 

40 

03 

4c 

e3 

b4 

3fd8 


3f 

ad 

78 

03 

f0 

05 

a9 

01 

4c 

3fe0 


Bd 

40 

03 

a9 

02 

Bd 

3e 

03 

0f 

3fe8 


a9 

95 

a0 

49 

20 

a2 

bb 

20 

f 3 

3f f 0 


f 7 

b7 

4c 

93 

3f 

49 

00 

B5 

95 

3f f 8 


fa 

a9 

50 

85 

fb 

a9 

00 

40 

da 

4000 


00 

91 

fa 

c8 

cJ0 

fb 

e6 

fb 

21 

4008 


aS 

fb 

c9 

55 

dB 

ef 

60 

ad 

31 

4010 


7e 

03 

Bd 

Bc 

03 

49 

4f 

aB 

fb 

4018 


49 

20 

a2 

bb 

a9 

bS 

40 

9f 

9b 

4020 


aa 

20 

d4 

bb 

a9 

44 

40 

49 

89 

4028 


20 

a2 

bb 

■9 

b0 

a0 

9f 

aa 

al 

4030 


20 

d4 

bb 

a9 

45 

a0 

49 

20 

9d 

4038 


a2 

bb 

a9 

ab 

a0 

9f 

aa 

20 

8a 

4040 


d4 

bb 

a9 

40 

40 

49 

20 

a2 

7e 

4048 


bb 

a9 

a6 

aB 

9f 

aa 

20 

d4 

0f 

4050 


bb 

20 

a9 

62 

ad 

5f 

03 

c9 

47 

405B 


ff 

d0 

03 

4c 

40 

45 

ad 

5e 

ab 

4060 


03 

ac 

5f 

03 

20 

81 

39 

a9 

38 

4068 


dB 

a0 

9f 

aa 

20 

d4 

bb 

ad 

C0 

4070 


60 

03 

ac 

61 

03 

20 

Bl 

39 

53 

4078 


,l9 

d3 

aB 

9f 

aa 

20 

d4 

bb 

9d 

4080 


a9 

00 

Bd 

7B 

03 

ad 

7a 

03 

29 

4088 


f 0 

lc 

ad 

65 

03 

f0 

17 

c9 

46 

4090 

: 

02 

f0 

Be 

a9 

63 

40 

49 

20 

64 

4098 


a2 

bb 

20 

f 7 

b7 

46 

14 

90 

3e 

40a0 


05 

a9 

01 

8d 

7B 

03 

ea 

a9 

0a 

40a8 


la 

a0 

49 

20 

a2 

bb 

a9 

4f 

e6 

40b0 


aB 

49 

20 

50 

bB 

a9 

9f 

aB 

40 

40b8 


49 

aa 

20 

d4 

bb 

20 

58 

bc 

91 

40C0 


a9 

e2 

a0 

9f 

20 

5b 

bc 

10 

e6 

40cB 


03 

4c 

cl 

41 

ea 

a9 

7c 

40 

b9 

40d0 


49 

20 

a2 

bb 

49 

81 

a0 

49 

05 

40d8 


20 

50 

bB 

a9 

68 

a0 

49 

aa 

8a 

40e0 

: 

20 

d4 

bb 

a9 

9f 

40 

49 

20 

f 3 

4Be8 


a2 

bb 

a9 

68 

40 

49 

20 

0f 

d2 

40f 0 


bb 

a9 

a4 

a0 

49 

aa 

20 

d4 

dl 

40f 8 


bb 

a9 

4f 

a0 

49 

20 

a2 

bb 

07 

4100 

: 

a9 

d8 

a0 

9f 

20 

50 

bB 

a9 

ec 

4108 


a4 

a0 

49 

20 

28 

ba 

a9 

81 

55 

4110 


aB 

49 

20 

67 

bB 

a9 

ce 

aB 

9f 

4118 


9f 

aa 

20 

d4 

bb 

a9 

4f 

a0 

36 

4120 


49 

20 

a2 

bb 

a9 

d3 

a0 

9f 

94 

4128 


20 

50 

b8 

a9 

a4 

a0 

49 

20 

8B 

4130 

: 

28 

ba 

a9 

81 

40 

49 

20 

67 

f 3 

4138 


b8 

a9 

c9 

a0 

9f 

aa 

20 

d4 

c5 

4140 

: 

bb 

ad 

78 

03 

fB 

05 

ad 

7d 

39 

4148 


03 

f0 

la 

ea 

a9 

d8 

a0 

9f 

ca 

4150 

a 

20 

a2 

bb 

a5 

61 

da 

0b 

a9 

81 

4158 


d3 

a0 

9f 

20 

42 

bb 

a5 

61 

C9 

4160 


f0 

03 

20 

69 

3a 

4c 

dB 

43 

f 7 

4168 

: 

ea 

a9 

54 

a0 

49 

20 

a2 

bb 

eB 

4170 


a9 

9b 

aB 

9f 

aa 

20 

d4 

bb 

79 

4178 


a9 

dB 

aB 

9f 

20 

a2 

bb 

a9 

03 

4180 

: 

45 

aB 

9f 

aa 

20 

d4 

bb 

a9 

3d 

4188 


cB 

aE 

9e 

20 

a2 

bb 

20 

aa 

2a 

4190 


JB 

a9 

ce 

a0 

9f 

20 

a2 

bb 

61 

4198 


a9 

45 

a0 

9f 

aa 

20 

d4 

bb 

76 

41a0 

: 

a9 

e2 

40 

9f 

20 

a2 

bb 

20 

ld 

41aB 


aa 

3B 

a9 

54 

40 

49 

20 

a2 

7d 

41b0 


bb 

a9 

c8 

a0 

9e 

20 

67 

ba 

80 

41bB 


a9 

54 

a0 

49 

aa 

20 

d4 

bb 

53 

41cO 

: 

60 

ea 

a9 

40 

40 

49 

20 

a2 

22 

41cB 


bb 

a9 

45 

40 

49 

20 

50 

ba 

06 

4 1 dB 


a9 

9f 

a0 

49 

aa 

20 

d4 

bb 

11 

41dB 


20 

58 

bc 

a9 

e2 

aB 

9f 

20 

7a 

41e0 


Sb 

bc 

10 

38 

a9 

81 

a0 

49 

60 

41eB 


20 

a2 

bb 

a9 

7c 

40 

49 

20 

b0 

41f 0 


67 

b8 

a9 

68 

aB 

49 

aa 

20 

6a 

41f 8 


d4 

bb 

a9 

e2 

a0 

9f 

20 

a2 

3d 

4200 


bb 

a9 

68 

40 

49 

20 

0f 

bb 

07 

4208 


ea 

a9 

ce 

40 

9f 

aa 

20 

d4 

08 

4210 


bb 

a9 

c9 

aB 

9f 

aa 

20 

d4 

aB 

4218 


bb 

4c 

41 

41 

ea 

a9 

7c 

40 

al 

4220 


49 

20 

a2 

bb 

a9 

Bl 

aB 

49 

55 

4228 


20 

BO 

b8 

a9 

68 

aB 

49 

aa 

da 

4230 


20 

d4 

bb 

a9 

9f 

aB 

49 

20 

43 

4238 


a 2 

bb 

a9 

68 

40 

49 

20 

0f 

22 

4240 


bb 

a9 

a4 

40 

49 

aa 

20 

d4 

21 

424B 


bb 

a9 

45 

aB 

49 

20 

a 2 

bb 

dS 

4250 


a9 

dl 

aB 

49 

20 

50 

bB 

a9 

ee 

4258 


,i4 

a0 

49 

20 

28 

ba 

a9 

Bl 

aS 

4260 


a0 

49 

20 

67 

b8 

4c 

08 

42 

2c 

426B 


ea 

a9 

Bb 

a0 

49 

20 

a2 

bb 

bS 

4270 


4 9 

90 

aB 

49 

aa 

20 

(14 

bb 

29 

4278 


a9 

00 

Bd 

B0 

03 

Bd 

78 

03 

19 

4280 

s 

a9 

fl 

a0 

9f 

20 

a2 

bb 

a9 

97 

4288 


bf 

aB 

9f 

aa 

20 

d4 

bb 

ea 

42 

4290 


a9 

fl 

40 

9f 

20 

a2 

bb 

a9 

a7 

429B 


9b 

aB 

9f 

aa 

20 

d4 

bb 

ea 

2e 

42a0 


a9 

c8 

aB 

9e 

20 

a2 

bb 

20 

ef 

42aB 


ef 

38 

a9 

90 

a0 

49 

20 

5b 

bb 

42b0 


bc 

10 

17 

a9 

90 

a0 

49 

aa 

fB 

42bB 


20 

d4 

bb 

a9 

9b 

a0 

9f 

20 

e4 


Listing 18. (Fortsetzung) 
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C 64 


42 cB 


a2 

bb 

a9 

86 

a0 

49 

aa 

20 

ba 


45dB 


4c 

80 

40 

60 

ad 

81 

03 

Bd 

8e 


5220 


aa 

20 

d4 

bb 

a9 

27 

a0 

9f 

lc 

42c B 


d4 

bb 

ea 

a9 

9b 

aB 

9f 

20 

e7 


45e0 


7e 

03 

ac 

7s 

03 

20 

32 

b3 

fe 


5228 


aa 

20 

d4 

bb 

20 

07 

52 

8e 

2f 

42d0 


a2 

bb 

a9 

cB 

a0 

9e 

20 

67 

21 


45bB 


a9 

dl 

30 

49 

aa 

20 

d4 

bb 

42 


5230 


64 

03 

a2 

02 

20 

c6 

ff 

20 

77 

42dB 


b8 

a9 

9b 

aB 

9 f 

aa 

20 

d4 

d9 


45f 0 


20 

fS 

3f 

a9 

c8 

aB 

9s 

20 

Sc 


5238 


Cf 

ff 

a6 

90 

f 0 

03 

4c 

08 

2b 

42e0 


bb 

a9 

54 

a0 

49 

20 

5b 

bc 

15 


45f 8 


32 

bb 

39 

c3 

aB 

9e 

aa 

20 

44 


5240 


53 

c9 

ff 

dB 

03 

4c 

08 

53 

eb 

42b8 


dB 

b5 

a9 

Bb 

a0 

49 

20 

a2 

89 


4600 


d4 

bb 

ea 

39 

c3 

aB 

9e 

20 

9e 


5248 


Bd 

65 

03 

20 

cf 

ff 

a6 

90 

05 

42f0 


bb 

a9 

9B 

a0 

49 

20 

5b 

bc 

34 


4608 


32 

bb 

20 

61 

39 

ad 

7b 

03 

bd 


5250 


f0 

03 

4c 

BB 

53 

8d 

41 

03 

83 

42f 8 


d0 

03 

4c 

aS 

43 

ad 

B0 

03 

bb 


4610 


cd 

72 

03 

b0 

03 

4c 

49 

47 

34 


5258 


ea 

a9 

2c 

a0 

9f 

20 

a2 

bb 

33 

4300 


dB 

3b 

a9 

01 

Bd 

80 

03 

a9 

35 


4618 


ad 

73 

03 

cd 

7b 

03 

b0 

03 

c2 


5260 


a9 

c8 

aB 

9e 

20 

67 

bB 

a9 

dd 

4308 


86 

aB 

49 

20 

a2 

bb 

a9 

9b 

lb 


4620 


4c 

49 

47 

ea 

39 

fl 

aB 

9f 

2c 


5268 


2c 

aB 

9f 

aa 

20 

d4 

bb 

20 

f 9 

4310 


aB 

9f 

aa 

20 

d4 

bb 

a9 

c8 

92 


4628 


20 

32 

bb 

a9 

54 

aB 

49 

aa 

82 


5270 


98 

9c 

ad 

45 

03 

85 

f a 

ad 

Be 

431B 


aB 

9b 

20 

a2 

bb 

20 

ef 

38 

51 


4630 


20 

d4 

bb 

a9 

c3 

30 

9ß 

20 

da 


527B 


46 

03 

85 

fb 

a0 

00 

20 

cf 

4b 

4320 


a9 

dB 

a0 

9f 

aa 

20 

d4 

bb 

cB 


4638 


a2 

bb 

20 

b2 

9d 

39 

cB 

aB 

82 


52B0 


ff 

a6 

90 

f0 

03 

4c 

08 

53 

6e 

4328 


a9 

e2 

aB 

9f 

20 

a2 

bb 

20 

35 


4640 


9b 

20 

32 

bb 

20 

e3 

9d 

89 

f 9 


5288 


91 

fa 

c8 

C0 

06 

dB 

ef 


25 

4330 


Bf 

38 

a9 

ce 

a0 

9f 

aa 

20 

71 


464B 


5« 

aB 

49 

aa 

20 

d4 

bb 

39 

89 


5290 


41 

03 

ad 

41 

03 

dB 

c 1 

a9 

f 7 

433B 


d4 

bb 

4c 

7c 

43 

ea 

a9 

B6 

cc 


4650 


b9 

aB 

9» 

aa 

20 

d4 

bb 

39 

41 


5298 


27 

30 

9f 

20 

a2 

bb 

a9 

c8 

3b 

4340 


aB 

49 

20 

a2 

bb 

a9 

9b 

aB 

9a 


465B 


78 

a0 

9f 

20 

32 

bb 

20 

e3 

5c 


5230 


aB 

9b 

20 

67 

b8 

a9 

9b 

a0 

0d 

4348 


9f 

aa 

20 

d4 

bb 

a9 

cB 

aB 

4c 


4660 


9d 

20 

f 7 

b7 

35 

14 

8d 

65 

fe 


5238 


9f 

aa 

20 

d4 

bb 

a9 

b4 

aB 

5c 

4350 


9e 

20 

a2 

bb 

20 

Bf 

38 

a9 

d4 


4668 


03 

ad 

45 

03 

18 

69 

03 

Bd 

bB 


52b0 


9b 

20 

a2 

bb 

a9 

96 

aB 

9f 

Bf 

435B 


d3 

aB 

9 f 

aa 

20 

d4 

bb 

a9 

a3 


4670 


45 

03 

ad 

46 

03 

69 

00 

8d 

02 


52bS 


aa 

20 

d4 

bb 

20 

4e 

9d 

a9 

5d 

4360 


«2 

aB 

9f 

20 

a2 

bb 

20 

ef 

»7 


4678 


46 

03 

a9 

cB 

aB 

9e 

20 

32 

88 


52c 0 


b4 

30 

9b 

20 

a2 

bb 

a9 

c8 

b0 

4368 


38 

a9 

c9 

aB 

9f 

aa 

20 

d4 

75 


46B0 


bb 

20 

b3 

9d 

39 

59 

30 

49 

72 


52cB 


30 

9e 

20 

67 

b8 

a9 

b4 

aB 

99 

43/0 


bb 

a9 

00 

Bd 

80 

03 

Bd 

68 

d9 


4688 


aa 

20 

d4 

bb 

39 

fl 

80 

9f 

db 


52d0 


9b 

aa 

20 

d4 

bb 

39 

96 

aB 

Bb 

437Ö 


03 

20 

d3 

3a 

ea 

a9 

86 

a0 

lf 


4690 


20 

a2 

bb 

*9 

63 

30 

49 

aa 

db 


52dB 


9f 

aa 

20 

d4 

bb 

39 

2c 

aB 

6a 

4380 


49 

20 

a2 

bb 

a9 

9b 

a0 

9f 

33 


4698 


20 

d4 

bb 

39 

c8 

aB 

9b 

20 

93 


52b0 


9f 

20 

32 

bb 

..9 

CB 

aB 

9e 

5B 

43B8 


aa 

20 

d4 

bb 

a9 

8b 

*0 

49 

fb 


4630 


a2 

bb 

a9 

59 

aB 

49 

20 

50 

2b 


52b8 


20 

67 

b8 

a9 

9b 

30 

9f 

aa 

b2 

4390 


20 

a2 

bb 

a9 

45 

a0 

9f 

aa 

53 


46a8 


bB 

a9 

be 

30 

9s 

aa 

20 

d4 

62 


52f 0 


20 

d4 

bb 

20 

4a 

9d 

39 

2c 

3e 

439Ö 


20 

d4 

bb 

a9 

cB 

aB 

9e 

20 

93 


46b0 


bb 

ea 

a9 

b9 

30 

9s 

20 

a2 

47 


52f 8 


30 

9f 

20 

a2 

bb 

39 

27 

80 

ab 

43*0 


a2 

bb 

20 

aa 

38 

ea 

a9 

Bb 

16 


46bB 


bb 

20 

98 

9c 

20 

7b 

47 

ad 

93 


5300 


9f 

aa 

20 

d4 

bb 

4c 

37 

52 

37 

43aS 


aB 

49 

20 

a2 

bb 

a9 

90 

30 

d6 


46c 0 


45 

03 

18 

69 

06 

8d 

45 

03 

s2 


5308 


ea 

a9 

b4 

aB 

9b 

20 

32 

bb 

f 5 

43b0 


49 

aa 

20 

d4 

bb 

a9 

bf 

30 

3a 


46cB 


ad 

46 

03 

69 

00 

Bd 

46 

03 

12 


5310 


20 

f 7 

b7 

a5 

14 

Bd 

ea 

07 

36 

43bB 


9f 

20 

a2 

bb 

a9 

cB 

30 

9b 

28 


46d0 


20 

b3 

47 

20 

eb 

47 

39 

BB 

3f 


5318 


a5 

15 

Bd 

eb 

07 

39 

2c 

a0 

d8 

43c0 


20 

67 

bB 

a9 

bf 

aB 

9f 

aa 

CC 


46dB 


8d 

B3 

03 

20 

0f 

40 

39 

63 

4c 


5320 


9f 

20 

a2 

bb 

20 

f 7 

b7 

a5 

db 

43cB 


20 

d4 

bb 

a9 

54 

aB 

49 

20 

26 


46b0 


aB 

49 

20 

32 

bb 

39 

cB 

aB 

ef 


5328 


14 

Bd 

ec 

07 

a5 

15 

8d 

Bd 

34 

43d0 


5b 

bc 

f0 

03 

4c 

Bf 

42 

60 

31 


46e8 


9e 

20 

67 

bB 

a9 

63 

aB 

49 

52 


5330 


07 

20 

cc 

ff 

60 

20 

00 

52 

26 

43dB 


ea 

a9 

45 

a0 

49 

20 

a2 

bb 

94 


46f 0 


aa 

20 

d4 

bb 

39 

b9 

aB 

9e 

7f 


5338 


a9 

b4 

aB 

9e 

aa 

20 

d4 

bb 

ae 

43e0 


20 

cc 

bc 

a9 

bd 

aB 

49 

aa 

26 


46f B 


20 

32 

bb 

a9 

cB 

aB 

9e 

20 

da 


5340 


39 

be 

30 

9e 

aa 

20 

d4 

bb 

bb 

43e8 


20 

d4 

bb 

a9 

40 

aB 

49 

20 

05 


4700 


67 

b8 

39 

b9 

aB 

9e 

aa 

20 

4f 


5348 


20 

07 

52 

Be 

40 

03 

a2 

02 

fd 

43f 0 


a2 

bb 

20 

cc 

bc 

a9 

b8 

a0 

4f 


470B 


d4 

bb 

39 

be 

aB 

9s 

20 

5b 

32 


5350 


2B 

c9 

ff 

39 

cB 

a0 

9e 

20 

d6 

43f B 


49 

aa 

20 

d4 

bb 

a9 

bd 

30 

7a 


4710 


bc 

f0 

03 

4c 

bl 

46 

89 

01 

85 


5358 


a2 

bb 

a9 

b9 

30 

9b 

aa 

20 

63 

4400 


49 

20 

5b 

bc 

10 

26 

a9 

68 

71 


4718 


8d 

83 

03 

a9 

5e 

30 

49 

20 

ad 


5360 


d4 

bb 

ea 

39 

b9 

30 

9e 

20 

5d 

4408 


aB 

49 

aa 

20 

d4 

bb 

a9 

bd 

49 


4720 


32 

bb 

20 

98 

9c 

20 

b3 

47 

e3 


5368 


32 

bb 

20 

b2 

9d 

39 

b2 

30 

33 

4410 


a0 

49 

20 

a2 

bb 

a9 

b8 

a0 

de 


4728 


a9 

be 

aB 

9e 

20 

32 

bb 

20 

72 


5370 


9f 

20 

32 

bb 

20 

e3 

9d 

20 

17 

44X8 


49 

aa 

20 

d4 

bb 

a9 

68 

aB 

45 


4730 


98 

9c 

20 

7b 

47 

20 

eb 

47 

42 


5378 


f 7 

b7 

35 

14 

cd 

40 

03 

fB 

03 

4420 


49 

20 

a2 

bb 

a9 

bd 

a0 

49 

37 


4738 


20 

Bf 

40 

39 

54 

30 

49 

20 

d5 


5380 


03 

4c 

22 

54 

ea 

39 

78 

aB 

de 

4428 


aa 

20 

d4 

bb 

ea 

a9 

54 

aB 

ld 


4740 


a2 

bb 

35 

61 

f0 

03 

20 

68 

ce 


5388 


9f 

20 

a2 

bb 

20 

e3 

9d 

20 

2f 

4430 


49 

20 

a2 

bb 

a5 

61 

d0 

4f 

fi 


4748 


42 

ea 

39 

c3 

aB 

9e 

20 

a2 

a7 


5390 


f 7 

b7 

a5 

14 

20 

d2 

ff 

a9 

3b 

4438 


a9 

bd 

aB 

49 

20 

a2 

bb 

a9 

6a 


4750 


bb 

39 

cB 

30 

9e 

2»u 

7 

b8 

20 


5398 


c8 

a0 

9b 

20 

a2 

bb 

20 

e3 

ac 

4440 


b3 

aB 

49 

aa 

20 

d4 

bb 

a9 

d6 


4758 


39 

c3 

30 

9e 

aa 

20 

d4 

bb 

55 


53a0 


9d 

a9 

22 

aB 

9f 

aa 

20 

d4 

28 

4448 

B 

bB 

a0 

49 

20 

a2 

bb 

a9 

ae 

b3 


4760 


39 

b4 

aB 

9e 

20 

5b 

bc 

f0 

11 


53aB 


bb 

a9 

b9 

30 

9e 

20 

32 

bb 

37 

4450 


aB 

49 

aa 

20 

d4 

bb 

ea 

a9 

6 e 


4768 


03 

4c 

02 

46 

ee 

7e 

03 

ad 

25 


53b0 


a9 

cB 

30 

9b 

20 

67 

b8 

20 

18 

4458 


63 

a0 

49 

20 

a2 

bb 

a9 

a9 

64 


4770 


B2 

03 

cd 

7e 

03 

90 

03 

4c 

10 


53bB 


b2 

9d 

39 

c8 

30 

9e 

20 

32 

81 

4460 


a0 

49 

aa 

20 

d4 

bb 

a9 

bd 

al 


4778 


e2 

45 

6B 

ea 

39 

cB 

aB 

9e 

13 


53c 0 


bb 

20 

b3 

9d 

a9 

ld 

30 

9f 

7d 

446B 


aB 

49 

20 

a2 

bb 

a9 

c7 

a0 

73 


4780 


20 

a2 

bb 

20 

fl 

9b 

39 

4f 

25 


53c8 

3 

aa 

20 

d4 

bb 

a9 

22 

30 

9f 

9c 

4470 


49 

aa 

20 

d4 

bb 

a9 

bB 

30 

de 


4788 


aB 

49 

aa 

20 

d4 

bb 

a9 

7B 

3e 


53d0 


20 

a2 

bb 

39 

ld 

aB 

9f 

20 

fb 

447B 


49 

20 

a2 

bb 

a9 

c2 

aB 

49 

b7 


4790 


aB 

9f 

20 

32 

bb 

23 

fl 

9b 

18 


53d8 


5B 

b8 

20 

f 7 

b7 

a5 

14 

20 

c5 

4480 


aa 

20 

d4 

bb 

4c 

68 

41 

ea 

ca 


4798 


a9 

45 

30 

49 

aa 

20 

d4 

bb 

ac 


53e0 


d2 

ff 

ea 

39 

22 

aB 

9f 

20 

87 

44BB 


a9 

a9 

aB 

49 

20 

a2 

bb 

a9 

b0 


47a0 


39 

e2 

30 

9f 

20 

a2 

bb 

20 

ld 


53e8 


32 

bb 

20 

98 

9c 

ad 

45 

03 

d5 

4490 


CB 

a0 

9e 

20 

67 

b8 

a9 

63 

fe 


47aB 


fl 

9b 

a9 

81 

aB 

49 

aa 

20 

41 


53f 0 


85 

fa 

ad 

46 

03 

85 

fb 

a0 

b4 

4498 


aB 

49 

20 

5b 

bc 

fa 

05 

ad 

13 


47b0 


d4 

bb 

60 

ea 

a9 

c8 

aB 

9s 

78 


53f 8 


00 

bl 

f 3 

20 

d2 

ff 

c8 

C0 

65 

44a0 


B3 

03 

f0 

b2 

ea 

a9 

bd 

30 

6b 


47bB 


20 

32 

bb 

20 

fl 

9b 

89 

48 

53 


5400 


06 

d0 

f 6 

a9 

c8 

a0 

9e 

20 

ad 

44aB 


49 

20 

a2 

bb 

a9 

b8 

a0 

49 

97 


47c0 


30 

49 

aa 

20 

d4 

bb 

39 

78 

76 


5408 


a2 

bb 

a9 

22 

aB 

9f 

20 

67 

8d 

44b0 


20 

5b 

bc 

dB 

01 

60 

ea 

a9 

d9 


47cB 


30 

9f 

20 

32 

bb 

20 

fl 

9b 

50 


5410 


bB 

39 

22 

30 

9f 

aa 

20 

d4 

b3 

44bB 


dl 

aB 

49 

20 

a2 

bb 

a9 

c7 

6a 


47d0 


39 

40 

a0 

49 

aa 

20 

d4 

bb 

61 


5418 


bb 

39 

ld 

aB 

9f 

20 

5b 

bc 

e5 

44c 0 


aB 

49 

20 

5b 

bc 

dB 

B9 

a9 

42 


47dB 


39 

e2 

aB 

9f 

2B 

32 

bb 

20 

55 


5420 


dB 

C0 

ea 

a9 

cB 

a0 

9e 

20 

Bc 

44c8 


bB 

aB 

49 

20 

5b 

bc 

fB 

41 

09 


47e0 


fl 

9b 

39 

7c 

aB 

49 

aa 

20 

dB 


5428 


a2 

bb 

a9 

b9 

aB 

9e 

20 

67 

98 

44d0 


ea 

a9 

c2 

aB 

-19 

20 

5b 

bc 

dB 


47eB 


d4 

bb 

60 

ea 

a9 

4f 

30 

49 

39 


5430 


bB 

a9 

b9 

aB 

9e 

aa 

20 

d4 

a9 

44d8 


dB 

09 

,iS> 

bd 

a0 

49 

20 

5b 

da 


47f 0 


20 

32 

bb 

a9 

4a 

30 

49 

20 

94 


5438 


bb 

a9 

be 

aB 

9e 

20 

5b 

bc 

5d 

44e0 


bc 

f0 

2b 

ad 

83 

03 

f0 

26 

b6 


47f B 


5b 

bc 

c9 

01 

f0 

Bl 

6B 

ea 

b2 


5440 


fB 

03 

4c 

62 

53 

a9 

ff 

20 

d4 

44b8 


a9 

b3 

a0 

49 

20 

a2 

bb 

39 

15 


4800 


a9 

68 

30 

49 

aa 

20 

d4 

bb 

s5 


5448 


d2 

ff 

20 

cc 

ff 

60 

BB 

BB 


44f 0 


c7 

*0 

49 

aa 

20 

d4 

bb 

a9 

9a 


4B0B 


39 

4a 

30 

49 

2B 

32 

bb 

89 

81 













44f 8 


ae 

*0 

49 

20 

a2 

bb 

a9 

c2 

81 


4810 


4f 

30 

49 

aa 

2B 

d4 

bb 

*9 

42 







4500 


a0 

49 

aa 

20 

d4 

bb 

a9 

00 

c5 


4818 


68 

30 

49 

20 

32 

bb 

89 

43 

6a 




uaimy i«7* \OUllUO; 





tja 

ö«i 

löo 

4C 

a 1 * 

44 

4c 

56 

eb 


4B20 


aB 

49 

aa 

20 

d4 

bb 

a9 

45 

70 












4510 


44 

ea 

a9 

63 

aB 

49 

20 

a2 

ba 


4828 


30 

49 

20 

*2 

bb 

89 

68 

30 

b5 












1 ö 


DD 

a9 

a9 

aB 

49 

aa 

20 

d4 

3a 


4B3B 


49 

aa 

20 

d4 

bb 

a9 

40 

a0 

bc 













4520 


bb 

a9 

bd 

aB 

49 

20 

a2 

bb 

cb 


4838 


49 

20 

a2 

bb 

39 

45 

aB 

49 

Bb 


name 

3 

movie. 

cad.obj 

c400 

c6b4 

4528 


a9 

c7 

a0 

49 

aa 

20 

d4 

bb 

7d 


4840 


aa 

20 

d4 

bb 

a9 

60 

aB 

49 

9b 













4530 


a9 

b8 

a0 

49 

20 

a2 

bb 

a9 

B0 


484B 


20 

a2 

bb 

a9 

40 

80 

49 

aa 

61 


c400 

3 

20 

79 

00 

c9 

2c 

fo 

03 

4c 

05 

4538 


c2 

*0 

49 

aa 

20 

d4 

bb 

60 

4a 


4850 


20 

d4 

bb 

39 

81 

30 

49 

20 

Bl 


c408 

3 

B8 

af 

60 

20 

fd 

ae 

20 

83 

ef 

4540 


ea 

a9 

45 

a0 

49 

20 

a2 

bb 

fc 


485B 


a2 

bb 

a9 

6B 

3 0 

49 

aa 

20 

Be 


c410 

3 

ad 

20 

f 7 

b7 

35 

14 

85 

f* 

c9 

454B 


a9 

40 

a0 

49 

20 

5b 

bc 

Bd 

4b 


4860 


d4 

bb 

39 

7c 

aB 

49 

20 

82 

26 


c41B 

3 

35 

15 

85 

fb 

18 

69 

07 

8d 

2d 

4550 


a0 

9f 

30 

lc 

a9 

dl 

all 

49 

8e 


4868 


bb 

,19 

Bl 

30 

49 

aa 

20 

d4 

80 


c420 

3 

61 

03 

32 

02 

20 

c6 

ff 

20 

64 

455B 


20 

a2 

bb 

a9 

45 

a0 

49 

20 

ac 


4870 


bb 

a9 

68 

aB 

49 

20 

a2 

bb 

c6 


.c428 

3 

cf 

ff 

20 

cf 

ff 

.ja 

00 

20 

3b 

4560 


5b 

bc 

c9 

01 

f0 

09 

a9 

40 

2a 


4878 


a9 

7c 

a0 

49 

aa 

20 

d4 

bb 

27 


C430 

3 

cf 

ff 

78 

32 

34 

86 

01 

91 

10 

4568 


aa 

49 

20 

5b 

bc 

10 

01 

60 

31 


4880 


60 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

eB 


c438 

3 

fa 

32 

37 

86 

01 

58 

cB 

d0 

ba 

4570 


ad 

a0 

9f 

lB 

lb 

«9 

dl 

aB 

df 














c440 

E 

ee 

35 

fb 

1B 

69 

0i 

es 

fb 

3f 

4578 


49 

20 

a2 

bb 

a9 

40 

aB 

49 

a3 




Listing 18. (Schluß) 




c448 

3 

cd 

61 

03 

dB 

B0 

30 

00 

20 

f 4 

4580 


20 

5b 

bc 

c9 

01 

fB 

b8 

a9 

45 














c450 

: 

cf 

ff 

7B 

32 

34 

86 

01 

91 

30 

4588 


45 

aB 

49 

20 

5b 

bc 

30 

df 

90 












c458 

3 

fa 

a2 

37 

86 

01 

58 

c 8 

C0 

b9 

4590 


ea 

a9 

4f 

a0 

49 

20 

a? 

bb 

ce 












c460 

3 

80 

dB 

ec 

20 

cc 

ff 

60 

32 

lb 

4598 


20 

2b 

bc 

10 

la 

a9 

f 1 

aB 

77 














c46B 

: 

Be 

4c 

3a 

34 

20 

00 

c4 

20 

15 

45a0 


9f 

2B 

a2 

bb 

a9 

dB 

aB 

9f 

92 


name 

: 

hiresS 

•cad.obj 

5200 

544e 


c470 

3 

9b 

b7 

B0 

02 

bB 

fl 

8b 

41 

b7 

45aB 


aa 

2B 

d4 

bb 

a9 

d3 

aB 

9f 

Ba 














c47B 

3 

03 

2B 

00 

c4 

20 

9b 

b7 

B0 

33 

45b0 


aa 

2B 

d4 

bb 

4c 

80 

40 

ea 

b6 


5200 

E 

20 

fd 

ae 

20 

83 

ad 

60 

20 

a6 


C480 

3 

02 

bB 

b4 

Be 

51 

03 

20 

00 

93 

45bB 


a9 

d6 

a0 

49 

20 

a2 

bb 

a9 

77 


5208 

: 

03 

90 

20 

9b 

b7 

60 

20 

00 

ce 


c488 

3 

c4 

20 

9b 

b7 

8b 

45 

03 

20 

99 

45c0 


4a 

aB 

49 

20 

5b 

bc 

10 

13 

b3 


5210 

s 

52 

a9 

b4 

a0 

9s 

aa 

20 

d4 

El 


c490 

3 

00 

c4 

20 

9b 

b7 

8b 

47 

03 

81 

45c 8 


a9 

dB 

a0 

9f 

aa 

20 

d4 

bb 

70 


5218 

: 

bb 

20 

30 

52 

39 

2c 

aB 

9f 

eb 













45d0 


a9 

d3 

a0 

9f 

aa 

20 

d4 

bb 

f 5 














Listing 20. Maschinenprogramme 













Listing 19. Hiitsprogramm 

»HiRes 8« 




zur »Movie-Routine« 
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C 64 


GRAFIK-ERWEITERUNG 


c498 

3 

20 

00 

c4 

20 

9b 

b7 

Be 

49 

32 

c4a0 

3 

03 

20 

b9 

c5 

a9 

7e 

Bd 

54 

48 

c4a8 

3 

03 

a9 

18 

Bd 

5f 
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00 

94 

C56B 


dB 

0d 

20 

d2 

ff 

dB 

f 2 

a9 

c7 

c570 


0d 

20 

d2 

ff 

4c 

36 

c5 

20 

10 

C57B 


cc 

ff 

60 

78 

a9 

34 

85 

01 

bf 

c580 


a9 

e0 

B5 

fb 

a9 

00 

85 

fa 

21 

c5BB 


85 

fc 

a9 

20 

85 

fd 

a 0 

00 

c4 

c590 


bl 

fa 

91 

fc 

cB 

dB 

f 9 

e6 

Bb 

C59B 


fb 

e6 

fd 

a5 

fb 

dB 

ef 

a9 

94 

c5a0 


37 

85 

01 

58 

a9 

7f 

a2 

04 

0e 

c5aB 


a 0 

00 

20 

ba 

ff 

20 

C0 

ff 

ac 

c5b0 


a2 

7f 

B6 

67 

20 

c9 

ff 

a9 

44 

c5b8 


ff 

85 

61 

a9 

07 

85 

fd 

a9 

ef 

c5c0 


lc 

B5 

97 

a9 

00 

Bd 

b6 

c6 

8f 

c5c8 


a9 

28 

8d 

bB 

c6 

a 2 

04 

bd 

0d 

c5d0 


5a 

c6 

20 

d2 

ff 

ca 

10 

f 7 

76 

c5dB 


a9 

00 

B5 

63 

BS 

64 

ad 

b6 

ef 

c5e0 


c6 

85 

65 

a9 

00 

85 

fe 

a5 

6b 

cSeB 


63 

a6 

64 

a4 

65 

20 

5f 

c6 

ae 

cSf 0 


a0 

00 

bl 

ac 

a6 

fe 

9d 

ba 

e 0 

c5f 8 


c6 

e6 

65 

e8 

86 

fe 

e4 

fd 

98 

c600 


dB 

e5 

a9 

00 

a 0 

07 

a6 

fd 

06 

c 608 


le 

ba 

c6 

2a 

ca 

10 

f 9 

25 

da 

c 610 


61 

09 

80 

20 

d2 

ff 

88 

10 

89 

C618 


ed 

a5 

63 

1B 

69 

08 

85 

63 

67 

c620 


90 

02 

e6 

64 

ce 

bB 

c6 

dB 

67 

C628 

e 

b5 

a9 

0d 

20 

d2 

ff 

ad 

b6 

4a 

c630 


c6 

1B 

69 

07 

Bd 

b6 

c6 

c6 

75 

c638 


97 

f0 

03 

4c 

c8 

c5 

a9 

04 

fb 

c640 


c5 

fd 

f0 

0 c 

BS 

fd 

a9 

01 

b2 

c648 


85 

97 

a9 

0f 

85 

61 

dB 

eb 

64 

c650 


a9 

0f 

20 

d2 

ff 

a9 

7f 

4c 

c7 

c658 


cc 

ff 

50 

00 

10 

lb 

0B 

85 

3d 

c660 


14 

86 

15 

98 

4a 

4a 

4a 

aa 

BS 

c66B 


bd 

98 

c6 

85 

ad 

8a 

29 

03 

ad 

c670 


aa 

bd 

b2 

c6 

85 

ac 

98 

29 

fl 

C678 


07 

18 

65 

ac 

85 

ac 

a5 

14 

f 7 

c6B0 


29 

fB 

B5 

63 

a9 

20 

05 

ad 

fe 

c6BB 


B5 

ad 

18 

aS 

ac 

65 

63 

85 

2d 

c690 


ac 

a5 

ad 

65 

15 

85 

ad 

60 

lc 

c69B 


00 

01 

02 

03 

05 

06 

07 

08 

a7 

c6a0 


0a 

0b 

0c 

Bd 

0f 

10 

11 

12 

ae 

c6a8 


14 

15 

16 

17 

19 

la 

lb 

lc 

b6 

c6b0 


le 

lf 

00 

40 

80 

C0 

al 

00 

fb 

c6b8 


11 

00 

00 

00 

00 

80 

00 

00 

ce 

C6C0 


00 

00 

00 

ff 

00 

ff 

02 

cS 

5a 

c6cB 


cc 

00 

02 

90 

00 

00 

00 

00 

27 


Listing 22. (Schluß) 


name : mps802.cad.obj c400 cBlb 


c400 

: 

20 

79 

00 

c9 

2 c 

f0 

03 

4c 

05 

c40B 

3 

08 

af 

60 

a2 

0e 

4c 

3a 

a4 

ca 

c410 

S 

20 

00 

c4 

20 

9b 

b7 

Be 

45 

a 2 

c418 

3 

03 

20 

00 

c4 

20 

9b 

b7 

Be 

9f 

c420 

3 

46 

03 

20 

00 

c4 

20 

9b 

b7 

lb 

c428 

3 

Be 

3e 

03 

ad 

45 

03 

c9 

10 

00 

c430 

3 

bB 

d9 

ad 

46 

03 

c9 

10 

b0 

21 

C438 

: 

d2 

ad 

3e 

03 

c9 

03 

b0 

cb 

e 0 

c440 

3 

ad 

45 

03 

0a 

0a 

0a 

0a 

6d 

86 

c44B 

3 

46 

03 

ac 

3e 

03 

C0 

02 

f0 

23 


Listing 23. Maschinenteile zur 
Hardcopy-Routine (MPS 802) 




SONDERHEFT 6/86 


67 

















GRAFIK-ERWEITERUNG 


C 64 


c450 


17 

C0 

00 

f0 

b6 

a2 

Bc 

Be 

b5 

c458 

: 

5e 

c4 

a0 

00 

99 

00 

8c 

cB 

9e 

c460 

: 

da 

fa 

e8 

e0 

90 

dB 

f0 

60 

18 

c46S 

: 

a2 

C0 

Be 

71 

c4 

dB 

00 

99 

cl 

C470 

: 

00 

C0 

cB 

dB 

fa 

e8 

e0 

c4 

20 

c478 

: 

d0 

i 0 

60 

20 

00 

c4 

20 

9b 

ba 

C480 

: 

b7 

e0 

03 

bB 

B6 

00 

02 

fB 

dB 

c4B8 

: 

27 

«0 

01 

f0 

10 

a9 

lb 

Bd 

54 

C490 

: 

11 

d0 

a9 

15 

Bd 

18 

d0 

a9 

47 

c498 

: 

97 

4c 

c5 

c4 

ea 

ad 

ii 

dB 

61 

c4a0 

: 

29 

80 

09 

3b 

Bd 

n 

dB 

a9 

ab 

c4aB 

a 

3d 

8d 

18 

dB 

4c 

c5 

c4 

ea 

aB 

C4b0 

: 

ad 

11 

dB 

29 

B0 

09 

3b 

8d 

97 

c4b8 

: 

ii 

d0 

a9 

0d 

Bd 

18 

d0 

«9 

6e 

c4c0 

: 

3c 

4c 

c5 

c4 

ea 

Bd 

00 

dd 

03 

c4c8 

8 

a9 

cB 

Bd 

16 

dB 

60 

a2 

02 

9a 

c4d0 

3 

20 

c6 

ff 

20 

cf 

ff 

20 

cf 

74 

c4dB 

: 

ff 

a9 

00 

85 

fa 

ad 

5f 

03 

fd 

c4e0 

: 

85 

fb 

a0 

00 

20 

cf 

ff 

91 

2f 

c4e0 

: 

fa 

cB 

dB 

fB 

e6 

fb 

a5 

fb 

76 

c4f0 

: 

cd 

61 

03 

dB 

ed 

4c 

CC 

ff 

bd 

c4fB 

8 

4c 

0b 

c4 

20 

BB 

c4 

20 

9b 

dd 

C500 

8 

b7 

e0 

03 

b0 

f 3 

C0 

00 

fB 

26 

C50B 

8 

ef 

60 

20 

fb 

c4 

e0 

bi 

d0 

aB 

c510 

3 

0d 

a9 

a0 

Bd 

5f 

03 

a9 

C0 

02 

c518 

8 

Bd 

61 

03 

4c 

CP 

c4 

a9 

e0 

lc 

c520 

3 

Bd 

St 

03 

a9 

00 

Bd 

61 

03 

4b 

c528 

8 

4c 

ce 

c4 

a2 

02 

20 

c6 

ff 

9d 

c530 

3 

20 

cf 

ff 

20 

cf 

ff 

20 

cf 

59 

c538 

8 

ff 

a5 

90 

dB 

3a 

20 

cf 

ff 

2 c 

c540 

8 

f0 

35 

a6 

90 

e0 

00 

d0 

2f 

36 

c54B 


20 

cf 

ff 

a6 

90 

e0 

00 

d0 

d6 

c550 

8 

26 

85 

fa 

20 

cf 

ff 

a6 

90 

b4 

C558 

8 

e0 

00 

d0 

lb 

a6 

f a 

20 

cd 

2e 

c560 

3 

bd 

20 

cf 

ff 

a6 

90 

e0 

00 

94 

c568 

: 

d0 

Bd 

20 

d2 

ff 

d0 

f 2 

a9 

c7 

c570 

: 

0d 

20 

d2 

ff 

4c 

36 

c5 

20 

10 

c57B 

3 

cc 

ff 

60 

B5 

5b 

a9 

64 

a2 

e6 

c580 

: 

04 

a0 

00 

20 

83 

c6 

a9 

6a 

c2 

c588 

: 

a2 

04 

a0 

06 

20 

83 

c6 

a2 

94 

c590 

■ 

6a 

20 

c9 

ff 

a9 

14 

20 

d2 

de 


C598 


ff 

a2 

64 

20 

c9 

ff 

a9 

Bd 

64 

c5a0 


20 

d2 

ff 

a9 

69 

a2 

04 

a0 

5b 

c5aB 

8 

05 

20 

83 

c6 

a5 

5b 

0a 

90 

f 5 

c5b0 

3 

03 

4c 

01 

c7 

a5 

5b 

29 

07 

fa 

c5b8 

3 

a2 

02 

20 

Be 

c6 

a9 

14 

B5 

4a 

c5c0 

3 

fb 

a5 

5b 

29 

C0 

f0 

10 

a5 

a9 

c5c8 

3 

5b 

4a 

4a 

4a 

29 

07 

a2 

00 

7a 

c5d0 


20 

8e 

c6 

a9 

BB 

85 

fb 

a9 

8e 

c5d8 


00 

8d 

3d 

03 

20 

a8 

c6 

20 

fl 

c5e0 

: 

el 

c6 

f0 

29 

a2 

69 

20 

c9 

0f 

c5e8 

: 

ff 

a2 

00 

bd 

3e 

03 

20 

d2 

12 

c5f 0 

: 

ff 

e8 

e0 

0B 

dB 

f 5 

a9 

Bd 

la 

c5f 8 

8 

20 

d2 

ff 

a2 

64 

20 

c9 

ff 

44 

c600 

3 

20 

ef 

c6 

a9 

fe 

20 

d2 

ff 

3b 

c608 

8 

a9 

Bd 

20 

d2 

ff 

18 

aS 

5e 

ee 

c610 

8 

69 

08 

85 

5e 

90 

02 

e6 

5f 

le 

c61B 

: 

20 

el 

ff 

f0 

3f 

ee 

3d 

03 

ad 

c620 

8 

ad 

3d 

03 

c9 

2B 

dB 

b5 

a5 

91 

c628 

8 

5b 

29 

C0 

f0 

1B 

aS 

5e 

a6 

db 

c630 

8 

5c 

85 

5c 

B6 

5e 

a5 

Sf 

a6 

15 

c638 

; 

5d 

B9 

5d 

86 

5f 

a5 

fb 

49 

26 

c640 

3 

2B 

85 

fb 

dB 

92 

a2 

64 

20 

54 

c648 

8 

c9 

ff 

a9 

0d 

20 

d2 

ff 

ee 

93 

c650 

8 

3c 

03 

ad 

3c 

03 

c9 

19 

fo 

c5 

c658 

8 

03 

4c 

d7 

c5 

a9 

69 

20 

c3 

le 

c660 

8 

ff 

a2 

6a 

20 

c9 

ff 

o9 

24 

da 

c668 

8 

20 

d2 

ff 

a2 

64 

20 

c9 

ff 

b4 

c670 

8 

a9 

Bd 

20 

d2 

ff 

a9 

6a 

20 

79 

c67B 


c3 

ff 

20 

cc 

ff 

a9 

64 

20 

fc 

c6B0 

3 

c3 

ff 

60 

20 

ba 

ff 

a9 

00 

bl 

c688 

3 

20 

bd 

ff 

4c 

C0 

ff 

a0 

06 

ab 

c690 

8 

d9 

96 

lf 

f0 

03 

BB 

dB 

fB 

44 

c698 

8 

a9 

00 

95 

5c 

Bd 

3c 

03 

1B 

29 

c6a0 

8 

69 

20 

BB 

10 

fb 

95 

5d 

60 

e0 

c6a8 

3 

78 

a9 

34 

B5 

01 

a2 

00 

Ba 

ed 

c6b0 

8 

9d 

3e 

03 

eB 

e0 

BB 

dB 

f 8 

ce 

c6bB 

8 

a9 

80 

85 

60 

a0 

00 

bl 

5e 

9c 

c6c0 


a2 

00 

0a 

90 

0a 

4B 

bd 

3e 

4d 

c6c8 

8 

03 

05 

60 

9d 

3e 

03 

68 

e8 

89 

c6d0 

8 

e0 

08 

dB 

ee 

46 

60 

cB 

C0 

d2 

c6dB 


08 

d0 

e3 

a9 

37 

85 

01 

58 

cb 


c6e0 

8 

60 

a2 

00 

Ba 

dd 

3e 

03 

dB 

60 

c6e8 

8 

05 

eB 

e0 

08 

dB 

f 6 

60 

1B 

11 

c6f 0 

8 

a5 

fb 

6d 

3d 

03 

aa 

f0 

08 

Bf 

c6fB 

8 

a9 

20 

20 

d2 

ff 

ca 

d0 

fa 

a3 

c700 

3 

60 

a5 

5b 

29 

07 

a2 

00 

20 

f 5 

c708 

3 

Be 

c6 

B5 

5f 

a9 

00 

85 

Se 

b4 

c710 

3 

85 

fb 

B5 

59 

B5 

5a 

a9 

c 0 

73 

c71B 

3 

95 

fc 

4a 

4a 

e8 

e0 

04 

dB 

4e 

c720 

8 

f 7 

a9 

00 

Bd 

3d 

03 

20 

aB 

5b 

c728 

3 

c6 

a5 

5a 

f0 

11 

a2 

00 

bd 

17 

c730 

8 

3e 

03 

0a 

0a 

0a 

0a 

9d 

3e 

98 

c73B 

3 

03 

eB 

e0 

08 

dB 

fl 

20 

dd 

cl 

c740 

3 

c7 

4c 

51 

c7 

a2 

00 

bd 

4a 

30 

C74B 

8 

03 

9d 

46 

03 

eB 

e0 

04 

dB 

53 

c7S0 

: 

f 5 

20 

08 

cB 

f0 

2f 

a2 

69 

56 

c758 

s 

20 

c9 

ff 

a2 

00 

bd 

46 

03 

be 

c760 

8 

20 

d2 

ff 

bd 

46 

03 

20 

d2 

43 

c76B 

E 

ff 

eB 

e0 

04 

dB 

mt 

a9 

0d 

el 

c770 

8 

20 

d2 

ff 

a2 

64 

20 

c9 

ff 

bc 

c77B 

3 

20 

ef 

c6 

a9 

fe 

20 

d2 

ff 

b3 

c7B0 

E 

a9 

Bd 

20 

d2 

ff 

20 

el 

ff 

db 

C7B8 

8 

dB 

03 

4c 

5c 

c6 

PP 

3d 

03 

57 

c790 

E 

a5 

59 

49 

0B 

B5 

59 

dB 

ac 

f 5 

c798 

E 

18 

a5 

5e 

69 

08 

85 

5e 

90 

8f 

c7a0 

8 

02 

e6 

5f 

ad 

3d 

03 

c9 

50 

57 

c7a8 

8 

f0 

03 

4c 

26 

c7 

a2 

64 

20 

55 

c7b0 

s 

c9 

ff 

a9 

0d 

20 

d2 

ff 

aS 

69 

c7b8 

8 

5a 

49 

19 

85 

5a 

a5 

5e 

a6 

47 

c7c0 

8 

5c 

B5 

5c 

B6 

5e 

a5 

5f 

a6 

a5 

C7c8 

8 

5d 

85 

5d 

B6 

5f 

ee 

3c 

03 

74 

c7d0 

8 

ad 

3c 

03 

c9 

32 

fB 

03 

4c 

e5 

c7d8 

8 

21 

c7 

4c 

5c 

c6 

a9 

BB 

aa 

Ba 

c7e0 

8 

aB 

9d 

46 

03 

e8 

e0 

0B 

d0 

aB 

c7eB 

8 

fB 

aa 

b9 

3e 

03 

0a 

90 

0b 

44 

c7f 0 

8 

4B 

1B 

b9 

46 

03 

75 

fc 

99 

7 e 

c7f 8 

8 

46 

03 

6B 

eB 

e0 

04 

d0 

ed 

44 

CB00 

8 

a2 

00 

cB 

C0 

0B 

d0 

e3 

60 

44 

c808 

8 

a2 

00 

8a 

dd 

46 

03 

d0 

05 

d2 

c810 

8 

e8 

■0 

04 

dB 

f 6 

60 

00 

ft 

f 6 

c81B 

3 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

17 



Listing 23. (Schluß) 
























• 

• 




* 



* 

Source L 

isting 

Ha. 

rdcopy - Routine 

• 

* 



Listing : 

Directory - Routine * 

* 
















lw 

.EQ LI Nr LG 

- $033D 











20 

-.EQ XL 

- $14 











30 

-.EQ XH 

- $15 




10 

--EQ CHROUT - SFFD2 




40 

-.EQ SPALTE 

- $0341 




20 

-.EQ CHKIN 

- SFFC6 




50 

-.EQ LIN1 

- $0345 




30 

-.EQ CHRIN 

- SFFCF 




60 

-.EQ LIN2 

- $0347 




40 

-.EQ CLRCHN - $FFCC 




70 

-.EQ OFFSET 

- $0349 




50 

-.EQ NUMOUT - IBDCD 




80 

-.EQ MASKE 

- $0351 




60 

-.BA SC654 





90 

-.EQ BITNUM 

- $0354 




70 

-DIR 


LDX *2 

; Eingabekanal 



100 

-.EQ BYTE1 

- $035E 




80 

- 


JSR CHKIN 

: definieren 



110 

-.EQ BYTE2 

- $035F 




90 

— 


JSR CHRIN 

; Startadrosse LO-Byte und 



120 

-.EQ ROW1 

- $0360 




100 

— 


JSR CHRIN 

; HI-Byte ueberlesen 



130 

-.EQ ROW2 

- $0361 




110 

-NXTFILE 


JSR CHRIN 

; Linkadresse LO-Byto lesen 



140 

-.EQ ROW 

- $0365 




120 

- 


LDA $90 

: Fehler-Check 



150 

-.EQ B1TL1N 

- $0368 




130 

— 


BNE END 

; boi Fohlor -> Ende 



160 

-.EQ START 

- $036F 




140 

— 


JSR CHRIN 

; Linkadresae HI-Byte lesen 



170 

-.EQ GROESSE 

- $0370 




150 

— 


BEQ END 

l Linkedresse Null -> Ende 



180 

-.EQ MODUS 

- $0371 




160 

— 


LDX $90 




190 

-.EQ GETBYT 

- $B79B 




170 

— 


CPX #J00 




200 

-.EQ FACTOADR 

- $B7F7 




180 

— 


BNE END 




210 

-.EQ FRMNUM 

- $AD8A 




190 

- 


JSR CHRIN 

I Blocks LO-Byte holen 



220 

-.EQ CHKOUT 

- $FFC9 




200 

— 


LDX $90 




230 

-.EQ CHROUT 

- $FFD2 




210 

— 


CPX *S00 




240 

-.EQ CHKIN 

- $FFC6 




220 

— 


BNE END 




250 

-.EQ CHRIN 

- IFFCF 




230 

- 


STA IFA 

1 Zwischenspeichern 



260 

-.EQ CLRCHN 

- SFFCC 




240 

— 


JSR CHRIN 

J Block3 HI-Byte holen 



270 

-.BA $C51B 





250 

760 



LDX $90 
rpy *«aa 










270 

- 


BNE END 






Komma 

Ch 



280 

- 


LDX $FA 

1 Blocks nach A/X 



280 

-CHKCOM JSR 

$0079 


letztes Zeichen holen 


290 

— 


JSR NUMOUT 

j und ausgeben 



290 

CMP 

♦I2C 


Komma ? 


300 

-GIVOUT 


JSR CHRIN 

; Programmnamen und Filetyp 



300 

BEQ KOM 


ja 


310 

— 


LDX $90 

j Zeichen 



310 

JMP 

$AF08 


' ? SYNTAX ERROR 


320 

— 


CPX *$00 

; f uer 



320 

-KOM RTS 



Rueckspruns 


330 

“ 


BNE END 

: Zeichen 








350 

- 


BNE GIVOUT 

: letztes Zeichen ? 





Qua 



360 



LDA 4S0D 

j ja -> CR ausgoben 



330 

-ILLQUAN LDX 

• 14 


Fehlernuuroer 


370 



JSR CHROUT 




340 

JMP 

$A43A 


Ausgabe des Fehlers 


380 

390 

-RNT) 


JMP NXTFILE 

.1RP rT.RPHN 

; und naechstes File holen 








400 



RTS 

; und zurueck zu BASIC 















350 

-HARDCOPY LDA 

*0 


Variablen ruecksetzen 









360 

STA 

ROW1 


Drucker-Hilfsbyte 1 









370 

STA 

ROW 2 


Drucker-Hilfsbyte 2 









380 

STA 

ROW 


Druckerbyte 









390 

STA 

LINFLG 


Flag fuer letzte Zeile 









400 

STA 

SPALTE 


Spalte 0-39 


Listing 24. 

Quelitext zur Ausgabe des Directories 



410 

420 

LDX 

JSR 

#S04 

CHKOUT 


Kanal fuer Ausgabe 
vorbereiten 
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C 64 


GRAFIK-ERWEITERUNG 


430 

- 

JSR 

SAEFD 

Zeilenoffset (320-Zeile) 

440 

— 

JSR 

FRMNUM 

aus BASIC-Text holen 

450 

— 

JSR 

FACTOADR 

in Adressformat wandeln 

460 

— 

LDA 

XL 

LO-Byte 

470 

— 

STA 

OFFSET 

speichern 

480 

— 

LDA 

XH 

HI-Byte 

490 

— 

STA 

OFFSET*1 

speichern 

500 

— 

JSR 

CHKCOM 

Modus (Druckdichte) 

510 

— 

JSR 

GETBYT 

aus BASIC-Text lesen 

520 

— 

STX 

MODUS 

und speichern 

530 

— 

JSR 

CHKCOM 

Druckbeginn (1./2.Zeile) 

540 

— 

JSR 

GETBYT 

lesen 

550 

— 

STX 

START 

und abspeichern 

560 

— 

JSR 

CHKCOM 

Groesse (1 oder 2 Bilder 

570 

— 

JSR 

GETBYT 

nebeneinander ) lesen 

580 

— 

STX 

GROESSE 

und speichern 

590 

— 

LDA 

OFFSET 

Absolute Adresse in der 

600 

— 

STA 

LIN1 

Bit-Map berechnen und 

610 

— 

LDA 

OFFSET*1 

speichern! 

620 

— 

CLC 


1. Zeile 

630 

— 

ADC 

*SA0 


640 

- 

STA 

LIN1+1 


650 

— 

LDA 

LIN1 

2. Zeile (fuer doppelte 

660 

— 

CLC 


Dichte) 

670 

- 

ADC 

•S40 


680 

— 

STA 

LIN2 


690 

— 

LDA 

LIN1+1 


700 

— 

ADC 

•S01 


710 

— 

STA 

LIN2*1 


720 

— 

LDA 

OFFSET 

letzte Zeile 7 

730 

- 

CMP 

•<(7680) 

Ueberpruefung notwendig. 

740 

— 

BNE 

NXTSP 

da sonst bei doppelter 

750 

- 

LDA 

OFFSET+1 

Dichte eine nicht vor¬ 

760 

— 

CMP 

•>(7680) 

handene Zeile 26 mitge¬ 

770 

- 

BNE 

NXTSP 

druckt wuerde ! 

780 

— 

LDA 

•S01 

letzte Zeile -> Flag 

790 

— 

STA 

LI NF LG 

setzen 

800 

-NXTSP 

LDA 

•7 

Bitposition im 

810 

- 

STA 

BITNUM 

jeweiligen Byte 

820 

-BITLOOP 

LDA 

START 

•Bit-Zeile* in der je¬ 

830 

— 

STA 

BITLIN 

weiligen 8x8-Gruppe 

840 

-LINLOOP 

SEI 


Interrupt verhindern. 

850 

— 

LDA 

•S35 

RAM selektieren 

860 

— 

STA 

01 


870 

— 

LDA 

LIN1 

Jeweilige Startadressen 

880 

— 

STA 

$FA 

der momentanen 

890 

— 

LDA 

LIN1*1 

8x8-Gruppen setzen 

900 

— 

STA 

SFB 


910 

— 

LDA 

LIN2 


920 

— 

STA 

SFC 


930 

- 

LDA 

LIN2+1 


940 

— 

STA 

SFD 


950 

— 

LDY 

BITLIN 

•Bit-Zeile 1 

960 

— 

LDA 

(SFA).Y 

Byte aus der 8x8-Gruppe 

970 

— 

STA 

BYTE1 

holen und speichern 

980 

— 

LDA 

(SFC).Y 

Entsprechendes Byte aus 

990 

— 

STA 

BYTE2 

der 2.Zeile (d. Dichte) 

1000 

- 

LDA 

•S37 

ROM selektieren. 

1010 

— 

STA 

01 


1020 

— 

CLI 


Interrupt wieder ein 

1030 

— 

LDY 

BITNUM 

Maske zum ‘filtern 1 des 

1040 

— 

LDA 

BASE.Y 

Bytes holen 

1050 

— 

STA 

MASKE 


1060 

— 

LDA 

BYTE1 


1070 

— 

AND 

MASKE 

und Bit herausfiltern 

1080 

— 

BEQ 

NULL 

falls Bit gesetzt, ins 

1090 

— 

LDA 

ROW1 

senkrechte Drucker- 

1100 

— 

SEC 


Hilfsbyte einbauen 

1110 

— 

JMP 

WEITER 


1120 

-NULL 

LDA 

ROW1 


1130 

— 

CLC 



1140 

-WEITER 

ROL 



1150 

— 

STA 

ROW1 


1160 

— 

LDA 

BYTE 2 

die selbe ‘Filterung 1 

1170 

— 

AND 

MASKE 

mit dem Byte aus der 

1180 

— 

BEQ 

NULL 2 

2 .Zeile wiederholen 

1190 

— 

LDA 

ROW2 


1200 

— 

SEC 



1210 

- 

JMP 

WEITER2 


1220 

-NULL2 

LDA 

ROW2 


1230 

— 

CLC 



1240 

-WEITER2 

ROL 



1250 

— 

STA 

ROW2 


1260 

— 

LDA 

MODUS 

bei doppelter Dichte 

1270 

— 

BEQ 

EINFACH 

muss 'Bit-Zeile 1 mit 

1280 

— 

INC 

BITLIN 

Step 2 erhoeht werden 

1290 

-EINFACH 

INC 

BITLIN 

naechste ‘Bit-Zeile 1 . 

1300 

— 

LDA 

BITLIN 

bis das entsprechende 

1310 

— 

CMP 

•508 

senkrechte Byte der 

1320 

- 

BCC 

LINLOOP 

8x8-Gruppe komplett ab¬ 

1330 

— 

LDA 

ROW1 

getastet ist 

1340 

— 

STA 

ROW 

senkrechtes Drucker-Byte 

1350 

— 

LDA 

MODUS 

einfache Dichte ? 

1360 

— 

BEQ 

OUTPUT 

ja -> Byte ausgeben 

1370 

— 

LDA 

LINFLG 

letzte Zeile ? 

1380 

- 

BEQ 

OKAY 

nein -> Bytes verbinden 

1390 

- 

LDA 

•0 

Byte aus der imaginaeren 

1400 

- 

STA 

ROW2 

Zeile 26 auf 0 setzen 

1410 

-OKAY 

LDA 

ROW1 

die beiden senkrechten 

1420 

— 

CLC 


Drucker-Bytes zu einem 

1430 

— 

ASL 


verschmelzen, um den 

1440 

— 

ASL 


Ausdruck in doppelter 

1450 

— 

ASL 


Dichte bei einem Zeilen¬ 

1460 

- 

ASL 


vorschub von einem 

1470 

- 

CLC 


halben Punkt zu 

1480 

- 

ADC 

ROW2 

ermoegliehen 

1490 

— 

STA 

ROW 


1500 

-OUTPUT 

LDA 

ROW 

Drucker-Byte holen 

1510 

— 

JSR 

CHROUT 

und ausgeben 

1520 

- 

LDA 

•0 

Drucker-Bytes fuer den 

1530 

— 

STA 

ROW 

naechsten Durchlauf 

1540 

— 

STA 

ROW1 

loeschen 

1550 

— 

STA 

ROW2 


1560 

- 

DEC 

BITNUM 

naechste 'Bit-Spalte' im 


1570 

— 

LDA BITNUM 

: 8x8-Feld berechnen 

1580 

— 

BMI CHKSP 

; 8x8-Gruppo ausgegeben ? 

1590 

— 

JMP BITLOOP 

j nein -> weitermachen 

1600 

—CHKSP 

LDA L1N1 

; Startadressen der neuen 

1610 

— 

CLC 

; 8x8-Gruppe berechnen 

1620 

— 

ADC #$08 

j und speichern 

1630 

— 

STA LIN1 


1640 

— 

LDA LIN1+1 


1650 

— 

ADC #$00 


1660 

- 

STA L1N1+1 


1670 

— 

LDA LIN2 


1680 

— 

CLC 


1690 

— 

ADC #108 


1700 

— 

STA LIN2 


1710 

— 

LDA LIN2+1 


1720 

— 

ADC #$00 


1730 

— 

STA L1N2+1 


1740 

— 

INC SPALTE 

; ist die Zeile komplett 

1750 

- 

LDA SPALTE 

: ausgegeben 7 

1760 

— 

CMP #40 


1770 

— 

BCS CHKGR 


1780 

— 

JMP NXTSP 

: nein -> weitermachen 

1790 

-CHKGR 

LDA GROESSE 

; einfache Groesse 7 

1800 

— 

BEQ ENDE 

i ja -> fertig 

1810 

— 

LDA #0 

» nein -> entsprechende 

1820 

— 

STA GROESSE 

: Zeile des 2.Bildschirms 

1830 

— 

STA SPALTE 

: ausgeben 

1840 

— 

STA R0W1 


1850 

— 

STA R0W2 


1860 

— 

STA ROW 


1870 

— 

LDA OFFSET 


1880 

— 

STA UNI 


1890 

— 

LDA OFFSET+1 


1900 

— 

CLC 


1910 

— 

ADC #SE0 


1920 

— 

STA LIN1+1 


1930 

- 

LDA LI NI 


1940 

— 

CLC 


1950 

— 

ADC «$40 


1960 

- 

STA LIN2 


1970 

- 

LDA LIN1+1 


1980 

— 

ADC #$01 


1990 

— 

STA LIN2+1 


2000 

— 

JMP NXTSP 


2010 

-ENDE 

JSR CLRCHN 

: Ausgabekanal ruecksetzen 

2020 

— 

RTS 

; Ruecksprung zu BASIC 

2030 

-BASE 

-BY1.2.4.8.16. 

.32.64.128 

; Daten fuer die 'Filter'- 
; Masken 
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10 

-.EQ GETBYT 

-SB79B 


20 

-.EQ ZYKLUS 

-S0341 


30 

-.EQ COLOR1 

-S0345 


40 

-.EQ COLOR2 

-S0347 


50 

-.EQ COLOR3 

-S0349 


60 

-.EQ MODUS 

-S0351 


70 

-.EQ GESCHW 

■$0354 


80 

-.EQ ADRESSE -S035F 


90 

-.BA SC45C 



100 

-CHKCOM 

JSR S0079 

; letztes Zeichen holen 

110 

— 

CMP *S2C 

j Komma 7 

120 

— 

BEQ KOM 

; ja -> OK 

130 

— 

JMP SAF08 

; nein -> * 7SYNTAX ERROR 

140 

-KOM 

RTS 

j Ruecksprung 

150 

-ILLQUAN 

LDX *14 

i Fehlernummer 

160 

- 

JMP SA43A 

; und Fehler ausgeben 


...................... paramator holen ***•••••****••*•** 


170 

-MOVIE 

JSR 

CHKCOM i 

auf Komma pruefon 

180 

— 

JSR 

GETBYT ! 

Wort holen 

190 

— 

CPX 

#$02 l 

Bereich pruefen 

200 

— 

BCS 

ILLQUAN i 

zu gross -> ERROR 

210 

— 

STX 

ZYKLUS j 

Wert fuer spaeter mer 

220 

— 

JSR 

CHKCOM : 

das gleiche nochoinmol 

230 

— 

JSR 

GETBYT 


240 

— 

CPX 

#$02 


250 

— 

BCS 

ILLQUAN 


260 

— 

STX 

MODUS ; 

und Parameter speichern 

270 

— 

JSR 

CHKCOM j 

nun werden die drei 

280 

— 

JSR 

GETBYT ; 

Multicolor-Farben aus 

290 

— 

STX 

COLOR1 i 

dem Basic-Text gelesen 

300 

— 

JSR 

CHKCOM ; 

und gespeichert 

310 

— 

JSR 

GETBYT 


320 

— 

STX 

COLOR2 ; 

Farbe 2 

330 

- 

JSR 

CHKCOM 


340 

— 

JSR 

GETBYT 


350 

— 

STX 

COLOR3 ; 

Farbe 3 

360 

— 

JSR 

SET 

und Farben setzen 

370 

— 

LDA 

• 126 j 

Geschwindigkeit auf An- 

380 

— 

STA 

GESCHW ; 

fangswert (mittel) setzen 

390 

-MOV 

LDA 

#S18 : 

Hl-Byte .der Adresse des 

400 

— 

STA 

ADRESSE i 

ersten Bildes 

410 


SEI 

- Schleife 

Interrupt verhindern 

vorwaerts •*••••***••»•** 
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GRAFIK-ERWEITERUNG 


064 


420 

-MLOOP 

LDA #J34 

RAM selektieren 

1320 


BCC UNDERFLW 


430 

— 

STA $01 


1330 

_ 

STA GESCHW 


440 

— 

JSR SHOW 

Bild darste1 len 

1340 

_ 

JMP WAIT2 


450 

— 

LDA ADRESSE 

; Adresse auf naechates 

1350 

-UNDERFLW 

LDA #$01 


460 

-JUMP 

CLC 

Bild setzen 

1360 


STA GESCHW 


470 

- 

ADC *$08 


1370 

_ 

JMP WAIT2 


480 

- 

STA ADRESSE 


1380 

-MINUS2 

LDA GESCHW 


490 

— 

CMP *$C0 

Adresse - SC000 ? 

1390 

- 

CLC 


500 

- 

BEO JUMP 

: ja -> ueberspringen, da 

1400 

_ 

ADC *$05 





: in Bereich SC000 - $C7FF 

1410 

_ 

BCS OVERFLW 





Farbepeicher und Movie- 

1420 

- 

STA GESCHW 





Routine Hegen ! 

1430 

— 

JMP WAIT2 


510 

— 

CMP #SE0 

letztes Bild 7 

1440 

-OVERFLW 

LDA *251 


520 

— 

BEQ END 

ja -> Durchlauf beendet 

1450 

— 

STA GESCHW 


530 

— 

LDA #$37 

ROM selektieren 

1460 

— 

JMP WAIT2 


540 

— 

STA $01 




Ruecksprung zu 





Abfrage 1 ****••***•»*•••* 









1470 

-RUECK 

LDA #$37 


550 

— 

LDA #$10 

Feuerknopf gedruockt 7 

1480 

— 

STA $01 


560 

— 

BIT 56320 


1490 

— 

CLI 


570 

— 

BEQ STOP 

ja -> zurueck zu BASIC 

1500 

— 

LDA #27 


580 

— 

LDA #$08 

Joystick rechts ? 

1510 

— 

STA 53265 


590 

— 

BIT 56320 

ja -> Geschwindigkeit 

1520 

— 

LDA #21 


600 

— 

BEO PLUS 

des Fi 1ms erhoehen 

1530 

— 

STA 53272 


610 

— 

LDA #$04 

Joystick links 7 

1540 

— 

LDA #151 


620 

— 

BIT 56320 

ja -> Geschwindigkeit dos 

1550 

— 

STA 56576 


630 

- 

BEQ MINUS 

Films verringern 

1560 

- 

LDA #200 






1570 

— 

STA 53270 



*•••• warte - Schleife 1 ••**••***•***•*•* 

1580 

* 

RTS 


640 

-WA IT 

LDY GESCHW 

Warteschleife, der 

••***•••* Bitmap 

und Farbspeicher initialisieren ******** 

650 

-WAl 

LDX *0 

Geschwindigkeit ent- 





660 

-WA 2 

DEX 

sprechend lang 

1590 

-SET 

LDA #$E0 j 

Adresse der Bitmap 

670 

— 

BNE WA2 


1600 

— 

STA $FB 

680 

— 

DEY 


1610 

— 

LDA #$00 


690 

~ 

BNE WAl 


1620 

— 

STA $FA 


700 

— 

JMP MLOOP 

naechstes Bild darstellen 

1630 

-LOPl 

LDA t$0 ; 

Bitmap loeschen 

710 

-STOP 

JMP RUECK 

Ruecksprung zu BASIC 

1640 

— 

LDY #$0 

720 

-END 

LDA ZYKLUS 

Durchlauf zyklisch 7 

1650 

-LOP 2 

STA (tFA).Y 


730 

— 

BNE REVMOV 

nein -> Film rueckwaerts 

1660 

— 

I NY 


740 

— 

LDA *$18 

ja -> Adresse auf 

1670 

— 

BNE LOP2 


750 

— 

STA ADRESSE 

erstes Bild setzen 

1680 

— 

INC SFB 


760 

— 

SEI 

Interrupt verhindern 

1690 

— 

LDA SFB 


770 

— 

JMP WAIT 

und weiter wie oben 

1700 

- 

BNE LOPl 






1710 

— 

LDA C0L0R1 

Farb-Byte aus den beiden 


Geschwmdigkeitsaenderungen 1 **••****••* 

1720 

- 

ASL ; 

COLOR1/COLOR2 - Nibbles 

780 




1730 

— 

ASL ; 

zus anme na e t ze n 

-PLUS 

LDA GESCHW 

Warteschleife ver- 

1740 

— 

ASL 


790 

— 

SEC 

kuerzen - Erhoehung der 

1750 

— 

ASL 


800 

— 

SBC #$05 

Geschwindigkeit 

1760 

— 

ADC C0L0R2 


810 

— 

BCC UNDERFLOW 


1770 

— 

LDY #S00 


820 

— 

STA GESCHW 


1780 

-LOOP 

STA SC000.Y s 

und Farbspeicher fuer 

830 

— 

JMP WAIT 

und weiter wie oben 

1790 

— 

STA SC100.Y : 

Farben 1 und 2 initiali- 

840 

—UNDERFIOW r.r)Ä *SC!1 


* °00 



850 

- 

STA GESCHW 

s-»en Qf 

: iS 

_ 

STA SC300.Y 


860 

— 

JMP WAIT 


1820 

— 

INY 


870 

-MINUS 

LDA GESCHW 

Warteschleife ver- 

1830 

— 

BNE LOOP 


880 

— 

CLC 

laengern - Verringerung 

1840 

- 

LDA MODUS i 

HiRes-Modus ? 

890 

— 

ADC #$05 

der Geschwindigkeit 

1850 

— 

BEQ RET 

ja -> fertig 

900 

— 

BCS OVERFLOW 


1860 

— 

LDA COLOR3 ; 

nein -> C0L0R3 setzen 

910 

- 

STA GESCHW 


1870 

— 

LDY #300 


920 

- 

JMP WAIT 

und weiter wie oben 

1880 

—LOOP 2 

STA SD800.Y ; 

C0L0R3-Farbspeieher 

930 

-OVERFLOW 

LDA *251 


1890 

*- 

STA SD908.Y : 

initialisieren 

940 

“ 

STA GESCHW 


1900 

— 

STA SDA00.Y 


950 

— 

JMP WAIT 


1910 

— 

STA $DB00.Y 


960 

-REVMOV 

LDA #$D8 

HI-Byte der Adresse des 

1920 

— 

INY 


970 

- 

STA ADRESSE 

letzten Bildes 

1930 

— 

BNE L00P2 


980 

- 

SEI 

Interrupt verhindern 

1940 

- 

LDA #216 ; 

Multicolor-Bit setzen 





1950 

— 

STA 53270 




p ilm - Schleife 

rueckwaerts •*******••»«»* 

1960 

-RET 

LDA #59 

auf Graphik-Schirm 

990 




1970 

— 

STA 53265 ; 

umschalten 

-RLOOP 

LDA #$34 

RAM selektieron 

1980 

— 

LDA *13 

1000 

— 

STA $01 


1990 

_ 

STA 53272 


1010 

— 

JSR SHOW 

Bild darstellen 

2000 

— 

LDA #60 


1020 

- 

LDA ADRESSE 

Der gesamte Ablauf der 

2010 

- 

STA 56576 


1030 

-JUMP2 

SEC 

Rueckwaerts-Schleife 

2020 

— 

RTS 


1040 

“ 

SBC #$08 

ist vosllig analog zu dem 





1060 

— 

DIA ADRESSE 

CMP #$C0 

der Vorwaerta-Schleife. 




1070 

— 

BEO JUMP2 


2030 

-SHOW 

LDA »SE7 j 

Anfangsadresse des Movie- 

1080 

— 

CMP #$10 


2040 

— 

STA SFB ! 

Windows ('Leinwand') in 

1090 

— 

BEQ END2 


2050 

— 

LDA #$D0 i 

der Bitmap 

1100 

— 

LDA #$37 


2060 

— 

STA SFA 

1110 

- 

STA $01 


2070 

- 

LDA ADRESSE j 

Anfangaadrosse des Bildes 





2080 


STA SPD i 

im Speicher 





2090 

2100 

_ 

LDA #$00 

STA $FC 


1120 

— 

LDA #$10 


2110 

-SLOPl 

LDY #S0 i 

eine 8-Pixe 1-Zei le ln die 

1130 

— 

BIT 56320 


2120 

-SL0P2 

LDA (SFCI.Y ; 

Bitmap kopieren 

1140 

— 

BEO RUECK 


2130 

— 

STA (SFA).Y 

1150 

- 

LDA #$08 


2140 

- 

INY 


1160 

— 

BIT 56320 


2150 

— 

CPY #$A0 


1170 

- 

BEQ PLUS2 


2160 

- 

BNE SL0P2 


1180 

— 

LDA #S04 


2170 

— 

LDA SFC i 

Adresse auf naechste 

1190 

— 

BIT 56320 


2180 

— 

CLC ; 

Zeile des Bildes im 

1200 

— 

BEQ MINUS2 


2190 

— 

ADC #$A0 : 

Speicher setzen 





2200 

— 

STA SFC 


warte - Schleifo 2 *•***•******•*•■• 

2210 

- 

LDA SFD 






2220 

- 

ADC #0 


1210 

-WAIT2 

LDY GESCHW 


2230 

- 

STA SFD 


1220 

-WA 3 

LDX #0 


2240 

— 

LDA SFA i 

Adresse der naechsten 

1230 

-WA4 

DEX 


2250 

— 

CLC i 

Zeile in der Bitmap be- 

1240 

— 

BNE WA4 


2260 

— 

ADC #340 ; 

rechnen 

1250 

- 

DEY 


2270 

- 

STA SFA 


1260 

— 

BNE WA3 


2280 

— 

LDA SFB 


1270 

— 

JMP RLOOP 


2290 

— 

ADC #$01 


1280 

-END 2 

JMP MOV 


2300 

- 

STA $FB 






2310 


CMP #$F6 

letzte Zeile kopiert 7 



Geschwindigkeit 


2320 

“ 

BNE SLOPl ; 

nein -> weitermachen 

1290 




2330 

— 

RTS ; 

ja -> Ruecksprung 

-PLUS2 

LDA GESCHW 


2340 

-.EN 


1300 

— 

SEC 






13J.0 


SBC *$05 


Llsting 26. Quelltext zur »Movie-Routine« (Schluß) 
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GRAFIK-ERWEITERUNG 




Hi-Spiegel - 
eine tolle Erweiterung 

zu Hi-Eddi 


Dieses Programm ermöglicht erstmals die 
problemlose Spiegelung ganzer Grafiksei¬ 
ten und eignet sich ganz hervorragend zur 
Gestaltung eigener Vordrucke wie Brief¬ 
köpfe oder Glückwunschkarten. 


H 


| i-Eddi aus der 64’er Ausgabe 1/85 ist zwar eines 
| der besten Malprogramme, aber eine Spiege- 
I lung von Grafikseiten war bisher nicht möglich. 
Mit diesem kleinen Zusatzprogramm wird das anders. 

Das Maschinenprogramm (Listing 1) belegt den 
Bereich von COOO bis C256 und liegt damit im Grafik¬ 
speicher 5 von »Hi-Eddi«. Es ist aus diesem Grund 
nichtständig im Speicher, sondern wird bei Bedarf ähn¬ 
lich wie »Hi-Print« von Diskette nachgeladen. Dies ist 
kein Nachteil, da man es ja nicht ständig benötigt und 
das Laden nur 5 Sekunden dauert. Außerdem wird »Hi- 
Exe« nicht überschrieben und braucht daher nach der 
Spiegelung nicht nachgeladen zu werden. Allerdings 
werden die oberen Zeilen eines im Grafikspeicher 5 
stehenden Bildes durch das Maschinenprogramm 
überschrieben. Daher sollte dort während der Spiege¬ 
lung kein Bild gespeichert sein. 

Die Spiegelroutine spiegelt stets das Bild im Grafik¬ 
speicher 1. Das zu spiegelnde Bild muß also beim Auf¬ 
ruf der Routine in diesem Bildspeicher stehen. 

Der Aufruf ist ganz einfach: Immer wenn man die 
Tastenkombination cCommodore L> zum Laden von 
Bildern drückt, fragt das Steuerprogramm: 

Spiegeln (J/N) 

Gibt man < N > ein, folgt das gewohnte Lademenü. 
Gibt man <J> ein, erscheint die Meldung: 

1=RUNTER 2=H0CH 3=RECHTS 4=LINKS 


Nach Eingabe der entsprechenden Ziffer wird »Hi- 
Spiegel« geladen und die Spiegelung durchgeführt. 
Bei anderen Eingaben wird zwar Hi-Spiegel ebenfalls 
geladen, aber keine Spiegelung ausgeführt. Nach der 
Spiegelung wird sofort wieder das aktuelle Bild 
gezeigt. 

Die Spiegelung wird mit dem Befehl < OR > ausge¬ 
führt, das heißt, der Inhalt der Bildhälfte, in die gespie¬ 
gelt wird, wird dabei nicht gelöscht. Man kann dadurch 
sehr interessante Effekte erzielen. Natürlich kann man 
die bnu.iälfte, in die gespiegelt werden soll, auch vor¬ 
her mit Hi-Eddi löschen. Man kann auch ein Bild kom¬ 
plett spiegeln. Dazu sind allerdings mehrere Arbeits¬ 
gänge nötig: 

- Bild kopieren (Hi-Eddi-Befehl) <0N> 

- In einem Bild die linke, im anderen die rechte Hälfte 
löschen 

- Das erste Bild nach Bildspeicher 1 übertragen und 
nach links spiegeln. 

- Das zweite Bild ebenfalls nach Bildspeicher 1 über¬ 
tragen und es dort nach rechts spiegeln. 

- In jedem gespiegelten Bild die beiden »ursprüng¬ 
lichen« Hälften löschen und die beiden Bilder mit 
<0N> zusammenfügen. 

Das Steuerprogramm Hi-Eddi (Listing 2) mußte 
natürlich ebenfalls um die entsprechenden Funktionen 
erweitert werden. Da der zur Verfügung stehende 
Speicherplatz durch das Original-Steuerprogramm 
schon fast belegt ist, waren einige Maßnahmen zur Ver¬ 
minderung des Platzbedarfs erforderlich. Sie bestehen 
im wesentlichen aus der Kürzung der Bildschirmmel¬ 
dungen. So meldet sich zum Beispiel Hi-Eddi nun statt 
mit »BETRIEBSART« mit der Frage »MODUS«, das spart 
6 Byte. (Jürgen Mohr/ah) 
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C 64 



nama c hi-apiagal 


C000 c236 


cBBB 

1 

ad 

2f 

C0 

c9 

Bl 

dB 

04 

2B 

95 

C008 

2 

SB 

cB 

60 

c9 

B2 

dB 

B4 

20 

>1 

C01B 

: 

SB 

cB 

60 

c9 

03 

dB 

04 

20 

21 

C018 

i 

SB 

cl 

60 

c9 

04 

dB 

B3 

20 

ad 

C02B 

i 

70 

cl 

60 

00 

00 

00 

BB 

BB 

B9 

C028 

i 

OB 

BB 

00 

ßß 

00 

BB 

00 

00 

29 

C030 

s 

a9 

00 

83 

8b 

a9 

2B 

83 

8c 

77 

C038 

s 

a9 

07 

B3 

Bd 

a9 

3a 

BS 

Ba 

38 

C040 

8 

2B 

BB 

cB 

a9 

00 

85 

Bb 

a9 

b3 

C048 

X 

2f 

83 

8c 

a9 

07 

B3 

Bd 

a9 

bB 

C050 

8 

2f 

83 

Se 

20 

0c 

cl 

60 

aa 

10 

C058 

8 

a9 

40 

BS 

Bb 

a9 

38 

BS 

8c 

3f 

C06B 

: 

a9 

c7 

85 

Bd 

a9 

2d 

83 

8a 

37 

CB68 

i 

20 

B0 

cB 

a9 

04 

85 

8b 

a9 

lc 

C07B 

i 

2f 

B5 

8c 

a9 

03 

83 

Bd 

a9 

aß 

C078 

i 

2f 

85 

8a 

20 

0C 

cl 

60 

aa 

38 

C080 

8 

a9 

71 

Bd 

2c 

cB 

a9 

02 

Bd 

47 

cBB8 

8 

2d 

cB 

a9 

0c 

Bd 

2a 

cB 

#9 

82 

C090 

8 

28 

Bd 

2b 

C0 

aB 

08 

20 

fc 

26 

C09B 

8 

cB 

1B 

88 

fB 

06 

2B 

b9 

cB 

6 a 

cBaB 

8 

4c 

96 

C0 

ca 

2b 

cB 

(0 

06 

ca 

C0a8 

: 

20 

ca 

cB 

4c 

94 

cB 

ca 

2a 

c6 

cBbB 

3 

cß 

f0 

38 

20 

db 

cB 

4c 

Bf 

16 

C0b8 

8 

cB 

20 

M 

cB 

38 

a3 

Bd 

a9 

17 

cBcB 

3 

01 

85 

Bd 

aS 

Ba 

a9 

00 

B3 

df 

cBcB 

8 

Be 

60 

20 

aa 

cB 

18 

a5 

Bd 

ab 

cBdB 

8 

69 

0f 

85 

Bd 

a3 

8a 

69 

00 

48 

cBd8 

8 

85 

Be 

60 

20 

aa 

C0 

38 

aS 

a2 

cBaB 

3 

8d 

ad 

2 c 

CB 

B5 

Bd 

a5 

Ba 

ff 


cBaS 

C0f0 

c0f 8 
clBB 
clBS 
cllB 
c 118 
cl2B 

Cl28 
c 130 
cl38 
C14B 
c 148 
c 150 
c 1 58 
cl60 

Cl68 

cl7B 
cl 78 
clBB 
ciea 
cl90 
c 198 
claB 
claB 
clbB 
clbB 

clcB 

clc8 

cldB 

cldQ 


1 

ad 

2d 

C0 

BS 

8a 

60 

18 

aS 

—4 

claB 

8 

ca 

2e 

C0 

f0 

09 

20 

aa 

cB 

a2 

1 

Bb 

69 

01 

B5 

Bb 

aS 

Bc 

69 

0c 

claB 

| 

20 

fd 

cl 

4c 

ca 

cl 

ca 

2d 

31 

8 

00 

85 

8c 

60 

8c 

2a 

cO 

aB 

68 

ClfB 

8 

C0 

f0 

09 

20 

Bb 

c2 

20 

19 

aB 

8 

00 

bl 

Bb 

11 

Bd 

91 

Bd 

ac 

d3 

cif 8 

I 

c2 

4c 

c5 

cl 

60 

38 

aS 

Bd 

03 

1 

2a 

C0 

6ß 

6B 

a9 

28 

Bd 

2b 

23 

c20B 

| 

a9 

0f 

BS 

Bd 

aS 

Ba 

e9 

00 

fa 

3 

C0 

a0 

04 

28 

fc 

cB 

18 

88 

6d 

c20B 

| 

85 

Sa 

60 

18 

aS 

Bb 

69 

al 

Bf 

1 

f0 

06 

20 

b9 

C0 

4c 

13 

cl 

89 

c210 

1 

85 

8b 

aS 

8c 

69 

00 

B5 

Bc 

lb 

1 

ca 

2b 

C0 

f0 

06 

20 

2c 

cl 

68 

C218 

8 

60 

18 

aS 

Bd 

69 

dl 

85 

Bd 

f 6 

8 

4c 

11 

cl 

60 

18 

a5 

Bb 

69 

29 

C220 

8 

a5 

8a 

69 

01 

85 

Ba 

60 

18 

05 

8 

03 

S5 

Bb 

aS 

8c 

69 

00 

83 

aa 

c228 

8 

a5 

Bd 

69 

01 

05 

8d 

a5 

8a 

87 

1 

Bc 

18 

a3 

8d 

69 

0b 

B3 

Bd 

0b 

c23ß 

8 

69 

00 

83 

8a 

60 

aB 

00 

a2 

ld 

8 

aS 

8a 

69 

00 

83 

8a 

60 

ff 

dS 

c23B 

I 

00 

bl 

8b 

aB 

08 

0a 

90 

0b 

31 

1 

00 

00 

ff 

ff 

00 

M 

ff 

ff 

48 

C240 

8 

Bd 

24 

C0 

8a 

18 

71 

fb 

aa 

b3 

8 

a9 

00 

83 

Bb 

•9 

20 

83 

8c 

97 

c248 

8 

ad 

24 

C0 

88 

dB 

af 

Ba 

aB 

40 

■ 

a9 

3B 

BS 

Bd 

a9 

21 

83 

8a 

07 

c2S0 

8 

00 

11 

Bd 

91 

Bd 

60 

10 

10 

ab 

X 

20 

90 

cl 

60 

aa 

aa 

aa 

aa 

cc 












3 

aa 

•a 

aa 

aa 

aa 

aa 

aa 

aa 

67 












S 

a9 

iß 

83 

Bb 

a9 

20 

BS 

Bc 

07 












8 

a9 

98 

83 

Bd 

a9 

20 

83 

8a 

4f 












8 

20 

90 

cl 

60 

aa 

aa 

aa 

aa 

ac 













aa 

a9 

26 

18 

cB 

Bd 

a9 

•9 

2a 

33 


EB Bd 23 
cB a9 20 
Bd 28 cB 
a9 04 Bd 
2b cB a9 
24 83 fb 
19 Bd 2d 
cB a9 08 
c2 ca 2f 
cB 28 27 


cB a9 

Bd 27 
a9 08 
2a cB 
Bl Bd 
a9 cB 
cB a9 
Bd 2f 
cB f 0 
c2 4c 


40 Bd 
cB a9 

8d 29 
a9 02 

2c cB 
83 fc 
14 8d 
cB 20 
B9 20 
cf cl 


87 
f 7 
f 3 
fc 

43 

a7 

03 

c4 

37 
f 8 
65 


Listlng 1. »Hi-Spiegel« wird nach 
Bedarf nachgeladen. Ähnlich wie 
mit dem Programm »Prlnt-Shop« 
können Sie nun auch mit »Hi-Eddl« 
Briefbögen und Grußkarten leicht 
und schnell gestalten. Ein Beispiel 
Ist der Rahmen um diese beiden 
Listings. 


1 IF A<2 THEN A-A+2:LOAD"HI-EXE“ ,B, 1 <B5S> 

2 IF A-3 THEN 7 <079> 

3 IF A-4 THEN 31 <139> 

4 IF A=& THEN 39 <232> 

5 INPUT"MODUS";C:POKE 7B0,OPOKE 56,13iCLR 

s WS“"123456"8 SYS 3328 <171> 

6 IF PEEK(8037)AND 64 THEN A-3:LOAD'MENUE“ 

,B,1 <241> 

7 SYS 3337:A-PEEK(8064) <232> 

8 ON A+l GOSUB 9,12,37,13,20,26,13,13,21,2 

2,14:GOTO 7 <160> 

9 OPEN 3,8,0,"*0*iGET«3,C*,CS <219> 

10 GET«3,CS,CS,LS,HS>IF CS-"“THEN CLOSE 3« 

WAIT 198,1X RETURN <130> 

11 PRINT 256*ASC (HS+CHRS (0) ) +ASC (LS+CHRS (0 

>))iSYS 3334:GOTO 10 <201> 

12 PRINT"CCLR,DOWNISEQUENZ:"lPRINT"(2SPACE 
>"WS: INPUT" <HOME,2DOWN>"|WS: IF LEN(WS>< 

2 THEN 12 < 119> 

13 RETURN <071 > 

14 POKE 8113,8:PRINT"CCLR,DOWN)G—GRAFIK"!I 

F PEEK (8073) >127 THEN PRINT"F—FARBBILD“ <236> 

15 PRINT-S-SPRITE" « PRINT"Z-ZEICHENSATZ" I PR 

INT"CDOWN>“{ <03S> 

16 GET CSiIF CS<>“B"AND CSO"F"AND CSO"S" 

AND CS< >"Z"THEN 16 <097> 

17 PRINT CS.POKE 7B0.ASC(CS).HS-WS.INPUT"C 

DOWNINAME"|NS:SYS 3331!WS-HS:HS-"“ <B96> 

18 OPEN 1,8,15,HS:INPUTB1,A,HS:PRINT A|HS: 

IF A>0 THEN MAIT 198,1 <005> 

19 CLOSE 1:RETURN <146> 


20 POKE 631,34:POKE 198,1:HS-"":INPUT"<CLR 

,DOUN>"|HSlBOTO 18 <220> 

21 A—8075:GOTO 23 <077> 

22 A—8079 <162> 

23 D—PEEK(8074):C—PEEKCA+D).PRINT"CCLR,DOW 

NJF"2*D+1.PRINT“SCHRITTWEITE:",C <113> 

24 INPUT C:IF C<1 OR 0160 THEN 24 <131> 

25 POKE A+D.C:RETURN <1B2> 

26 INPUT"CCLR,DOWN)1.BILD"|DiC—(D AND 7) <113> 

27 INPUT"CD0WN>2.BILD (ODER 0)"jD:C-C+8»(D 

AND 7):IF D>0 THEN C-C+64 <224> 

28 IF D—0 THEN PRINT"CDOWNJGROSS"|:GOSUB 3 

4:IF CS—"J"THEN C-C+128 <037> 

29 PRINT“CDOWN)DRUCKEN"|.GOSUB 34:IF CS-"N 

"THEN 32 <232>. 

30 IF A—5 THEN A-4:LOAD"HI-PRINT",8,1 <042> 

31 POKE 780,0 SYS 3328.PRINT"(DOWN)NOCHMAL 

"|.GOSUB 34:IF CS-"J"THEN 26 <06S> 

32 IF A—5 THEN RETURN <135> 

33 A—1:GOTO 1 <013> 

34 PRINT“ (J/N)“J <173> 

35 GET CS. IF CSO"J"AND CSO"N"THEN 35 <230> 

36 PRINT CS:RETURN <208> 

37 PRINT"SPIEGELN"|.GOSUB 34:IF CS-"N"OOTO 

14 <248> 

38 A—6:LOAD’HI—SPIEGEL",8,1 <195> 

39 PRINT" CCLR) 1-RUNTER 2-HOCH 3-RECHTS 4-L 

INKS":INPUT CS <035> 

40 POKE 49199,VAL(CS).SYS 49152:A-3:GOTO 1 <251> 

Listlng 2. Neues »Hi-Eddi« Steuerprogramm 
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GRAFIK-ERWEITERUNG 


Der Plotter 1520 
wird zum Zeichenbrett 


Eine Befehlserweiterung zum Abtippen, die 
Ihnen den Umgang mit Ihrem Printer/Plotter VC 
1520 erleichtert. Erstellen Sie Superärafiken auf 
Ihrem Plotter. 


P lot-Basic ist eine Befehlserweiterung, die den 
Commodore-Plotter VC 1520 unterstützt und zusätz¬ 
lich weitere Basic-Befehle besitzt. Hier die wesent¬ 
lichsten Merkmale von »Plot-Basic«. 

- Das Zeichnen von Linien, Rechtecken, Kreisen, Kreisbö¬ 
gen, Kreissegmenten, Koordinatensystemen sowie deren 
Schraffur und vieles mehr wird zum Kinderspiel (siehe Bilder 
5 bis 7). 

- Fast alle Befehle verfügen über drei Adressierungsarten 
(absolut, absolut-relativ und relativ-relativ). 

- Über 50 neue Befehle mit hunderten von Befehlskombina¬ 
tionen. 

- Eingebaute Utilities, die Ihnen das Programmieren erheb¬ 
lich erleichtern (zum Beispiel: TRACE, PRINT AT, TAKE, KEY, 
STATUS, DIR, OLD, AUTO, DEL, RENUM, FIND oder 
MERGE). 

- Erleichtertes Programmieren durch »tolerante« Fehlerbe¬ 
seitigung (ILLEGAL QUANTITY etc.). 

Damit Sie Plot-Basic optimal ausnützen können, müssen 
wir erst einmal mit etwas Theorie anfangen. 

Der Plotbereich beträgt auf der X-Achse (von links nach 
rechts) 480 Schritte (Stufen). Sie sind von 0 bis 479 durch¬ 
numeriert. 

Auf der Y-Achse beträgt dieser 999 (0 bis 998) nach oben 
und 998 nach unten (0 bis -998). 

Ein Schritt hat die Länge von 0.2 Millimetern. 5 Schritte ent¬ 
sprechen also 1 Millimeter. 

Jeden Punkt kann man nun mit einer X- und einer Y- 
Koordinate genau bestimmen. Zum Beispiel: 

X=100, Y=200 (100/200), 100 Schritte nach rechts und 
200 nach oben. Oder X=300, Y=-900 (300/-900), 300 
Schritte nach rechts und 900 nach unten. 

Insgesamt sind das also (998+999)*480 = 958 560 
verschiedene Punkte. Wenn man bedenkt, daß der Commo¬ 
dore 64 normalerweise eine Auflösung von 320*200 = 
64 000 und im Multicolor-Mode nur noch 160*200 = 
32 000 hat, dann schneidet der Plotter mit einer zirka 15- 
beziehungsweise zirka 30fach höheren Auflösung.sehr gut 
ab. 

Jetzt geht’s aber richtig los. 

Vorweg einige Bemerkungen: 

Sie sollten während des Studiums dieser Anleitung am 
Computer sitzen und alles sofort ausprobieren. Dafür sind 
umfangreiche Beispielprogramme gegeben, die Sie auspro¬ 
bieren und verändern sollten. So wird es Ihnen ein Leichtes 
sein, die Befehle (fast) in Null Komma nichts zu verstehen und 
zu erlernen. 

Im folgenden sei bei Verwendung von X und Y (eventuell mit 
Indices) nachstehendes vereinbart (soweit nichts anderes 
gesagt): 

X = 0 bis 479 

Y = -998 bis 998 


Wobei bei allen X- und Y-Werten ein ERROR erst ab 
1.70141183 E+38 auftritt (OVERFLOW ERROR auf einen 
ILLEGAL QUANTITY ERROR wurde bewußt verzichtet, dies 
ist besonders bei berechneten Parametern ein großer Vor¬ 
teil). 

Der Nullpunkt (X,Y = 0,0) ändert sich bei jedem Carriage 
Return (CHR$(13)). Dies ist zum Beispiel nach einem PPRINT- 
Befehl der Fall. 

Parameter in Klammern sind optional, das heißt, können 
nach Belieben weggelassen werden. »STR« bedeutet 
»String«; also A$ oder »ABC«; »var« ist eine numerische 
Variable; also zum Beispiel A,CS,a(3) oder auch 12.4,2 *A. 

Bei allen Befehlen, auch bei allen späteren Kommandos 
von Plot-Basic, ist ein allgemeiner Punkt zu beachten: 

Folgt einer IF...THEN-Konstruktion ein Befehl des Plot- 
Basic-Befehlsvorrates, so ist nach dem THEN unbedingt ein 
<:> (Doppelpunkt) zu setzen, also zum Beispiel: 
10 IF B=100 THEN:AT 10,10,"DER DOPPELPUNKT IST 
WICHTIG" 


Plotter-Befehle 


PPRIn . 

Format....: PPRINT STR / PPRINT VAR 

Parameter.: Wie beim Basic-Befehl PRINT 

Funktion..: Ausgabe von Zeichen auf dem Plotter 

Beispiel..: PPRINT "PLOT-BASIC" 

Dieser Befehl ersetzt die folgende Befehlssequenz: 

OPEN 1,6 

PRINT #1, "Plot-Basic" 

CLOSEI 


CHARACTER 

Rcrmat.: 

Parameter..: 


Beispiel...: 
Funktion...: 
10 FOR I = 1 TO 


CHARACTER VAR 
-VAR (1,2,4,8) 
wobei: 

var = 1 = 10 Zeichen pro Zeile 
var = 2 = 20 Zeichen pro Zeile 
var = 4 = 40 Zeichen pro Zeile 
var = 8 = 80 Zeichen pro Zeile 
CHARACTER 8 

Verändern der Zeichengröße 


20 

30 

40 

50 

60 


READ GR 
CHARACTER GR 
PPRINT GR # 10, 
NEXT 

DATA 1,2,4,8 

COLOUR 

Format.: 

Parameter..: 


"ZEICHEN PRO ZEILE“ 


Funktion..: 

Beispiel..: 


COLOUR VAR 

- VAR: Farbnummer (0-3) 

wobei: 

0 = schwarz 

1 = blau 

2 = grün 

3 = rot 

Bestimmung der Plotfarbe 
COLOUR 2 (Plotfarbe = grün) 


Mit diesem Befehl können Sie die Farbe auswählen, mit der 
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C 64 


geplottet werden soll. Eine Fehlermeldung wird erst ab var 
größer 255 ausgegeben. Die Farben wiederholen sich perio¬ 
disch, das heißt: 

4 = schwarz 

5 = blau 

6 = grün und so weiter 

COLOUR 6 würde also einem COLOUR 2 entsprechen 

10 FOR I = 0 TO 3 

20 : COLOUR I 
30 : READ FA$ 

40 : PPRINT I; "= ";FA$"ER STIFT" 

50 NEXT 

60 DATA SCHWARZ, BLAU, GRÜN, ROT 

ROTATE 0/1 


Format....: 

ROTATE VAR 

Parameter.: 

-VAR: (0/1) 


wobei: 


0 = Normaler Horizontalbetrieb 


1 = 90-Grad-Drehung nach rechts 

Beispiel.: 

ROTATE 1 

Funktion.: 

Drehen von Zeichen 


Mit diesem Befehl können Sie einstellen, ob die Zeichen 
normal oder gedreht ausgedruckt werden sollen. 

10 ROTATE 0 

20 PPRINT "0 = NORMALSCHRIFT" 

30 ROTATE 1 

40 TE$="1 — ZEICHEN UM 90 GRAD GEDREHT" 

50 F0R I = 1 TO LEN(TE$) 

60 : PPRINT MID$(TE$,I,1) 

70 NEXT 

ROTATE 2/3 

Format.: ROTATE VAR 

Parameter..: - VAR: (2/3) 
wobei: 



Bild 5. Für diesen Ausdruck der Erde benötigte der Plotter nur 
15 Minuten 


5000 

4000 

onuns^' 


2 = Großschrift und über <SHIFT> 
Kleinschrift (Standardwert) 

3 = Kleinschrift und über <SHIFT> 
Großschrift 

Beispiel..: ROTATE 2 

Funktion..: Wahl der Schriftart 

Bitte schalten Sie jetzt den Groß/Klein-Modus des Commo- 
dore 64 ein und tippen Sie das folgende Programm ein: 

10 rotate 2 

20 pprint "2 - großschrift / SHIFT KLEINSCHRIFT" 

30 rotate 3 

40 pprint "3 - kleinschrift / SHIFT GROSSCHRIFT" 

LINE 

Format.: LINE XI, Y1, X2, Y2 

Parameter..: - XI: X - Startkoordinate 

(0 bis 479) 

- Y1: Y - Startkoordinate 

(-998 bis 998) 

- X2: X - Zielkoordinate 

(0 bis 479) 

- Y2: Y - Zielkoordinate 


(-998 bis 998) 
Beispiel..: LINE 10,-30,470,200 

Funktion..: Zeichen einer Linie 


Mit diesem Befehl sind Sie in der Lage, eine Linie von X1.Y1 
nach X2,Y2 zu zeichnen. 

Übrigens, es ist egal, ob Sie LINE 10,-30,470,200 oder 
LINE 470,200,10,-30 benutzen, dies wird erst interessant, 
falls Sie mit dem Endpunkt der Linie Weiterarbeiten. 


10 F0R I = 0 T0 3 
20 COLOUR I 


30 : LINE 0,1 * -10,479,1 * -10 
40 NEXT 

LINESELECT 

Format....: LINESELECT VAR 


3000 

2000 

1000 



Bild 6. Auch Wirtschaftsbilanzen lassen sich leicht 
programmieren 



Bild 7. Plot-Basic beherrscht auch das Plotten von Funktionen 
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Parameter.: - VAR: (0-15) 

wobei: 

0 = Normale Linie 

1 = leicht gestrichelt 
Increment = 1 Stufe = 0.2 mm 

2 = Increment = 2 Stufen = 0.4 mm 

15 = Start gestrichelt 
Increment = 15 Stufen = 3 mm 
Beispiel.: LINESELECT12 

Funktion.: Wahl der Linienart 

Die gewählte Linienart bleibt solange erhalten, bis sie ent¬ 
weder durch einen Reset oder durch ein LINESELECT 0 
gelöscht wird. (Wie beim COLOUR-Befehl sind Werte bis 
255 erlaubt, die Werte wiederholen sich periodisch). Also 
auch beim PPRINT-Befehl. 

10 LINESELECT 15 
20 CHARACTER 1 
30 PPRINT "LINESELECT" 

10 CHARACTER 4 

20 F0R I = 0 T0 15 

30 : LINESELECT I 

40 : PPRINT RIGHT$(" "+STR$(I),2) 

50 : LINE 30,10,479,10 
60 NEXT 

70 LINESELECT 0 

REC 

Format.: REC X,Y,B,H (,S,A) 

Parameter..: - X: X-Koordinate der unteren linken 
Ecke des Rechtecks (0 bis 479) 

- Y: Y-Koordinate der unteren linken 
Ecke des Rechtecks (-998 bis 998) 

- B: Breite des Rechtecks 

- H: Höhe des Rechtecks 

- S: Schraffierungsart (0 bis 6) siehe 
Bild 1 

- A: Abstand zwischen den einzelnen 
Schraffierungslinien 

REC 20,40,100,200 
REC 20,40,100,200,5,10 
REC 100,100,-100,-100,6,20 
REC 100,200,-10,20,0,10 
entspricht 


zeichnet werden soll (-998 bis 
998) 

- RX: Radius der Ellipse (Kreis) in X- 

Richtung, deren Bogen gezeich¬ 
net werden soll 

- RY: Radius der Ellipse (Kreis) in Y- 

Richtung, deren Bogen gezeich¬ 
net werden soll 

- SW: Startwinkel des Bogens (0-360) 

- EW: Endwinkel des Bogens (0-360) 

- A: Winkelabstand zwischen zwei zu 

berechnenden Punkten 

(0-360) 

Beispiel..: ARC 200,0,100,200,90,289,10 

Funktion..: Zeichnen des Bogens einer Ellipse in 

jeweils definierten Schritten. 

Auch dieser Befehl ist wieder etwas kompliziert: 

Kreis: 

Falls Sie einen Kreis zeichnen möchten, dann gilt: 
RX=RY=Radius, sw=0, ew=360. 

Beispiel: Sie möchten einen Kreis mit dem Mittelpunkt 
100/200 und dem Radius 50 zeichnen: 

ARC 100,200,50,50,0,360,10 
Um den Winkelabstand (hier 10) brauchen Sie sich jetzt 
noch nicht zu kümmern, dieser wird weiter unten genau 
erklärt. 

Ellipse: 

Falls Sie eine Ellipse zeichnen möchten, dann gilt: 

SW=0, EW=360 

XR ist dann der X-Radius der Ellipse und YR der Y-Radius. 

ARC 100,200,50,100,0,360,10 

Kreisbogen: 

Hier gilt alles unter Kreis gesagte, nur daß SW der Startwinkel 
des L- gens ist und EW der Endwinkel. Sie möchten einen 
Kreisbogen mit dem Mittelpunkt 100/200, dem Radius 50, 
dem Startwinkel=90 Grad und dem Endwinkel=270 Grad 
zeichnen: 

ARC 100,200,50,50,90,270,10 

Die Angabe der Winkel erfolgt in Altgrad: 

90 


REC 100,200,-10,20 

Funktion.: Zeichnen eines Rechtecks (und des¬ 

sen Schraffur) 

Da dieser Befehl sehr vielseitig ist, schaut er anfangs etwas 
kompliziert aus. 

Hier noch ein paar Erläuterungen: 
zu B/H 

Sowohl bei der Breite als auch bei der Höhe können negative 
Werte angegeben werden. Dies vereinfacht die Programmie¬ 
rung erheblich. 
zuS/H 

Falls Sie keine Schraffur des Rechtecks wünschen, können 
diese Parameter weggelassen werden. Die Schraffierungsar¬ 
ten entnehmen Sie bitte Bild 1. Falls S=0, wird das Rechteck 
nicht schraffiert. Falls für A=0 gewählt wird, schraffiert Ihr 
Plotter ewig. Aus diesem Grund sollte A immer größer als 0 
sein. Ein Abstand zwischen 10 und 30, je nach Größe des 
Rechtecks, hat sich gut bewährt. 

ARC 

* Format.: ARC MX,MY,XR,YR,SW,EW,A 

Parameter..: - MX: X-Koordinate des Mittelpunktes 
der Ellipse, deren Bogen ge¬ 
zeichnet werden soll (0-479) 

- MY: Y-Koordinate des Mittelpunktes 
der Ellipse, deren Bogen ge- 


180 


0 (360) 


270 

Ellipsenbogen: 

Hier gilt alles unter Ellipse Gesagte, nur daß SW der Startwin¬ 
kel des Bogens ist und EW der Endwinkel. Sie möchten einen 
Ellipsenbogen mit dem Mittelpunkt 100/200, dem Radius 50 
beziehungsweise 100, dem Startwinkel = 90 Grad und dem 
Endwinkel = 270 Grad zeichnen: 

ARC 100,200,50,100,90,270,10 
Der Parameter A: 

Mit der A-Ergänzung des ARC-Befehls können Sie das Zeich¬ 
nen von Kreis(bög)en, Ellipsen(bögen) ausweiten auf Drei-, 
Vier-, Fünf-, Sechsecke. 

Dabei gibt A die jeweilige Kantenlänge in Grad des über¬ 
spannenden Bogens an. 

Was kann man sich darunter vorstellen? 

Genau genommen können Sie mit A angeben, in welchem 
Gradabstand die einzelnen Punkte eines jeweiligen Bogens 
gezeichnet und die entstehenden Punkte mit einer Linie ver¬ 
bunden werden sollen. Vergrößert man nun diesen Abstand, 
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so nimmt die Genauigkeit der Zeichnung stetig ab, bis direkt 
ein Vieleck zu beobachten ist. Interessant sind besonders 
dabei die folgenden Werte: 

120 - Dreieck 
90 - Viereck 
72 - Fünfeck 
60 - Sechseck 
45 - Achteck 
40 - Neuneck 
36 - Zehneck 

Für normale Bögen, Kreise, Ellipsen kann gesagt werden: 
Um so kleiner A ist, um so genauer ist die Zeichnung. Dabei 
nimmt jedoch die Geschwindigkeit ab. Auch die Größe des 
Radius ist von Bedeutung. 

Je größer die Radien sind, desto kleiner muß A sein, um die 
gleiche Genauigkeit zu erzielen. 

Die ganze Beschreibung zu dem komplexen ARC-Befehl 
hört sich nun sehr kompliziert an. Aber probieren, probieren, 
probieren... 

SECTOR 
Rjrmat.: 


Sehr aff!erungsart e 


n 



0 12 3 4 

Bild 1. Schraffierung für den REC-Befehl 

Sehr a f -f 


erungsarten 


Parameter..: 


Beispiel..: 

Funktion..: 


-SA: 

-AB 


SECTOR MX, MY, RA, SW, EW, A 
(,SA, AB) 

- MX : X-Koordinate des Mittelpunk¬ 
tes des Kreises, dessen Sektor 
gezeichnet werden soll 
(0-479) 

- MY : Y-Koordinate des Mittelpunktes 
des Kreises, dessen Sektor 
gezeichnet werden soll (-998 
bis 998) 

- RA : Radius des Kreises, dessen 
Sektor gezeichnet werden soll 

- SW : Startwinkel des Bogens 
(0-360) 

- EW : Endwinkel des Bogens (0-360) 

- A : Winkelabstand zwischen zwei 
zu berechnenden Punkten 
(0-360) 

Schraffierungsart (0-10) 
Schraffierungsabstand 
SECTOR 200,0,100,90,289,10,1,10 
Zeichnen eines Kreissektors und des¬ 
sen Schraffur 

Dieser Befehl ähnelt dem ARC-Befehl, denn dieser Befehl 
zeichnet einen Kreisbogen und verbindet sowohl den ersten 
Punkt als auch den letzten Punkt dieses Bogens mit dem Mit¬ 
telpunkt (MX/MY). Weiter stehen verschiedene Schraffie¬ 
rungsarten zur Verfügung. Dieser Befehl eignet sich also 
besonders zum Erstellen von »Kuchengrafiken«. 
MX/MY/RA/SW/EW/A: 

Wie unter ARC beschrieben. 

SA: 

Schraffierungsarten (0-10). Siehe hierzu Bild 2. Bei SA = 0 
keine Schraffierung. 

AB: 

Abstand zwischen den einzelnen Schraffierungslinien 
Plotpunkten minus eins! 

Werte zwischen 10 und 20 sind zu empfehlen. 

10 AB = 12 

20 F0R I = 1 T0 4 

30 : EW = SW + I * 36 

40 : SECTOR 240,0,150,SW,EW,AB 

50 : SW = EW 

60 NEXT 

70 REM SETZEN SIE FÜR AB EINMAL 
80 REM 1,2 ODER 36 EIN!!! 

TEXT 

Format....: TEXT X.Y.GR.AR.STR 

Parameter.: - X : X-Koordinate der linken unteren 




Bild 2. Auch der Befehl SEKTOR kann mit den Schraffierungen 
umgehen 


onu 


Arien 


f\j 

£ 

fD 


CO — fD -s □ 




in 


Null 0 

E 
i 

n 
s 

1 

Bild 3. Verschiedene Schriftarten zum Befehl TEXT 


Ecke des ersten Zeichens des 
Strings (0-479) 

- Y: Y-Koordinate der linken 

unteren Ecke des ersten Zei¬ 
chens des Strings (-998 bis 
998) 

- GR : Zeichengröße (1,2,4,8) (Wie 

beim Befehl CHARACTER) 

- AR : Art (0-4) (siehe Bild 3). Wird 

für diesen Parameter 4 
gewählt, so wird in Proportio¬ 
nalschrift gedruckt (nicht im 
Bild enthalten).Vorher muß mit 
ROTATE 3 auf Klein/Groß¬ 
schreibung umgestellt wer¬ 
den. 

- STR: Text, der geplottet werden soll 
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AN DIESER STELLE MUSS SICH VOR DEM 
AXIS-BEFEHL DER PLOTTKOPF BEFINDEN 



MOVE 


Format....: 

Parameter.: 


Beispiel..: 

Funktion..: 


zigen Position zur Position (X/Y), 
wobei der Stift oben ist. 

MOVE X,Y 

- X : X-Koordinate des Zielpunktes 

(0-479) 

- Y : Y-Koordinate des Zielpunktes 

(-998 bis 998) 

MOVE 200,-193 

Bewegung des Plotstiftes von der jet¬ 
zigen Position zur Position (X/Y), 
wobei der Stift unten ist. 


AXIS 


Format...: 

Parameter: 


- X2 


- Y1 


Beispiel..: 

Funktion..: 


Bild 4. Um Achsen zu zeichnen, ist es nötig, auf den 
relativen Nullpunkt zu positionieren 


Beispiel..: ROTATE 3 

TEXT 0,0,2,4, 

"PROPORTIONALSCHRIFT * 

Funktion..: Schreiben eines Textes 

Mit diesem Befehl können Sie Ihre Zeichnungen beliebig 
beschriften. Dieser hat den Vorteil, daß kein Carriage Return 
durchgeführt wird und somit der absolute Nullpunkt erhalten 
bleibt. Falls Zahlen ausgedruckt werden sollen, müssen 
diese mit der STR$()-Funktion erst in einen String umgewan¬ 
delt werden. STR sollte nicht länger sein, als in der Zeile noch 
Platz ist. 

SET 


Format...: 

SET X,Y 

Parameter: 

- X : X-Koordinate des Zielpunktes 


(0-479) 


- Y : Y-Koordinate des Zielpunktes 


(-998 bis 998) 

Beispiel.: 

SET 200,-193 

Funktion.: 

Bewegung des Plotstiftes von der jet- 


AXIS XI, X2, Y1, Y2, AB, GR 

- XI : Kleinste X-Koordinate des 
Koordinatensystems, das gezeich¬ 
net werden soll 

Größte X-Koordinate des Koordi¬ 
natensystems, das gezeichnet 
werden soll 

Kleinste Y-Koordinate des Koor¬ 
dinatensystems, das gezeichnet 
werden soll 

- Y2 : Größte Y-Koordinate des Koordi¬ 
natensystems, das gezeichnet 
werden soll 

- AB : Abstand zwischen den Skalie¬ 
rungen 

- GR : Länge des Skalierungsstriches 
in eine Richtung 

AXIS -100,100,-200,200,20,10 
Mit diesem Befehl können Sie ein 
Koordinatensystem oder Teile davon 
zeichnen. 

Um den Befehl AXIS anwenden zu können, müssen noch 
einige Dinge beachtet werden: 

Der Plotter beginnt das Zeichnen genau an der Stelle, an 
der der Stift (Plotkopf) gerade steht, das heißt, der Plotkopf 
muß vor dem AXIS-Befehl auf den Nullpunkt des zu zeichnen¬ 
den Koordinatensystems gebracht werden. Dies ist zum Bei¬ 
spiel mit dem SET-Befehl möglich. Weiter gilt: 

XI muß kleiner gleich X2 sein 
Y1 muß kleiner gleich Y2 sein 

Falls Sie etwa nur die Zeichnung der X-Achse wünschen, 
dann setzen Sie für Y1 und Y2 einfach 0 ein. Um ein Koordi¬ 
natensystem zu zeichnen, bei dem der Nullpunkt bei 240, 
-30 liegt, dessen X-Achse von -100 bis 100 reicht (relativ 
zum Nullpunkt des Koordinatensystems!) und dessen Y- 
Achse eine Ausdehnung von -200 bis 200 hat (wieder relativ 
zum Nullpunkt des Koordinatensystems!), einen Skalierungs¬ 
abstand von 20 und die Skalierungsgröße 10 beträgt, muß 
man folgende Befehle eingeben: 

SET 240,-30:AXIS -100,100,-200,200,20,10 
Noch unklar? Dann schauen Sie sich Bild 4 an. 

RELATIVE 

RELATIVE X,Y 

- X : X-Koordinate des relativen Null¬ 
punktes 

- Y : Y-Koordinate des relativen Null¬ 
punktes 

RELATIVE 100,200 
Setzen des relativen Nullpunktes 

Dieser Befehl erleichtert Ihnen die Grafikprogrammierung 
Ihres Plotters erheblich, denn Sie können nun Ihren eigenen 
Nullpunkt bestimmen. 

Bevor jetzt Plot-Basic einen Befehl ausführt, wird zur 
X-Koordinate des Befehls einfach der X-Wert, der beim 
RELATIVE-Befehl vorher angegeben worden ist, addiert. 
Genauso geschieht es bei der Y-Koordinate. 


Format.: 

Parameter..: 


Beispiel...: 

Funktion...: 
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Um nun die absoluten Befehle von den relativen zu unter¬ 
scheiden, wird vor dem Befehl einfach ein R gesetzt. Fol¬ 
gende relative Befehle stehen zur Verfügung: 

RLINE 

RREC 

RTEXT 

RARC 

RSECTOR 

RMOVE 

RSET 

Der Befehl SET 100,200 entspricht also den Befehlen rela¬ 
tive 100,200: RSET 0,0 

SET 110,210 entspricht RELATIVE 100,200: RSET 10,10 
Jetzt können auch negative X-Werte auftreten! 

P-MODUS 

Diese Erweiterung der Befehle ähnelt dem RELATIVE-Mo- 
dus, nur daß der Nullpunkt jetzt jedesmal woanders liegt, das 
heißt, als Nullpunkt wird die jeweilige Plotkopfposition ange¬ 
sehen. 

Um nun den P-Modus von den anderen Befehlen zu unter¬ 
scheiden, wird vor dem Befehl einfach ein P gesetzt. Fol¬ 
gende P-Befehle stehen zur Verfügung: 

PLINE 

PREC 

PTEXT 

PARC 

PSECT0R 

PM0VE 

PSET 

Der Befehl PSET 100,150 bewirkt also, egal wo der Druck¬ 
kopfist, daß der Druckkopf sich 100 Schritte nach rechts und 
150 Schritte nach oben bewegt. 

Ein PLINE 0,0,100,100 entspricht also einem PM0VE 
100,100. LINE 100,300,200,200 entspricht einem SET 
100,300:PM0VE 100,-100 
RESET 

Format....: RESET 

Parameter.: keine 

Beispiel..: RESET 

Funktion..: Ausführen eines RESET (hat die glei¬ 

che Wirkung wie das Ein- und Aus¬ 
schalten des Plotters). Dabei werden 
alle Parameter zurückgesetzt. 

UTILITIES 


Plot-Basic besitzt nicht nur Grafikbefehle für Ihren Plotter, 
sondern unterstützt gleichfalls mit einigen wesentlichen 
Kommandos Ihre Programmierarbeit. Sie werden sehen, daß 
hier eine Auswahl getroffen wurde, die sich nicht zu ver¬ 
stecken braucht. 

AT 

Format.: AT SP, ZE.STR oder AT SP,ZE,VAR 

Parameter..: - SP : Spalte (0-39) 

- ZE : Zeile (0-24) 

- STR: und VAR wie beim PRINT-Befehl 

Beispiel..: AT 10,12, "CBM 64 " 

Funktion..: positionierte Ausgabe eines STRings 

oder einer VARiablen. 

AT 10,12,"CBM 64' 

schreibt den Text, hier »CBM 64«, auf den Bildschirm, wobei 
das erste Zeichen (hier: »C«) an der Position 10/12 ausge¬ 
geben wird. 

10 PRINT CHR$(l47) 

20 F0R X = 0 T0 39 

30 : Y = 12 # SIN(X/6) + 12 

40 : AT X,Y,"#*" 

50 NEXT 


AUTO 

Format....: AUTO (A,B) 

Parameter.: - A : Anfangszeilennummer 
(0-63999) 

- B : Abstand der Zeilennummern 
(1-255). Ohne A und B wird für 
A = 0 und für B = 10 angenom¬ 
men 

Beispiel..: AUTO 10,5 

Funktion..: Automatische Zeilennumerierung mit 

variabler Startnummer und Schritt¬ 
weite 

Nach Eingabe dieses Befehls wird nach jedem Drücken 
der RETURN-Taste eine neue Zeilennummer ausgegeben. 
Die Zeilennummer erhöht sich automatisch um den Wert B. 
Dieser Befehl ist als Erleichterung beim Schreiben eines Pro¬ 
grammes gedacht. Durch Drücken von nur RETURN nach der 
Vorgabe einer neuen Zeilennummer wird AUTO abqeschal- 
tet. 

BASIC 

Format....: BASIC 

Parameter.: keine 
Beispiel..: BASIC 

Funktion..: Abschalten von Plot-Basic 

Mit diesem Befehl werden alle Vektoren wieder normal 
gesetzt, dabei bleibt ein Programm, das sich im Speicher 
befindet, und dessen Variablen erhalten. Da der Basic- 
Interpreter durch Plot-Basic langsamer wird, kann in zeitkriti¬ 
schen Programmteilen, in denen keine Plot-Basic-Befehle 
Vorkommen, Plot-Basic abgeschaltet werden. Durch ein 
PRINT USR(1) kann man es wieder einschalten. 

Wenn Sie einen RESET durchführen (entweder durch 
einen Resetschalter oder durch SYS 64738), während Plot- 
Basic i Betrieb ist, wird Plot-Basic neu initialisiert. Falls Sie 
jedoch Plot-Basic völlig abschalten möchten, dann geben Sie 
ein: 

BASIC:SYS 64738 

BASIC und PRINT USR(1) können sowohl im Direktmodus als 
auch im Programmodus eingesetzt werden 

DEL 

Format....: DEL -EZ / DEL AZ- / DEL AZ-EZ 

Parameter.: AZ : Anfangszeilennummer 
EZ : Endzeilennummer 

Beispiele.: DEL 100 löscht bis (einschließlich) 

Zeile 100 alles 

DEL 100- löscht ab (einschließlich) 

Zeile 100 alles 

DEL 100-200 löscht ab (einschließlich) 
Zeile 100 bis (einschließlich) Zeile 
200 alles. 

Funktion..: Mit diesem Befehl kann ein Teil eines 

Programms gelöscht werden, ohne 
daß jede Zeilennummer extra einge¬ 
tippt werden muß. 

DIR 

Format....: DIR 

Parameter.: keine 

Beispiel..: DIR 

Funktion..: Anzeigen des Disketteninhaltsver¬ 

zeichnisses ohne Programmverlust. 
Einer der größten Mängel des originalen Basic offenbart 
sich wohl mit dem Fehlen eines DIR-Befehls. Diese Lücke soll 
hier nun geschlossen werden. Der Befehl ist recht einfach zu 
bedienen: Eingeben, < RETURN > drücken, fertig. Falls 
während der Ausgabe des Directorys eine Taste gedrückt 
wird, so wird die Ausgabe angehalten, solange die Taste 
gedrückt ist. Durch Drücken der STOP-Taste kann die Aus¬ 
gabe abgebrochen werden. Ein BREAK wird jedoch nicht 
ausgegeben, dies hat den Vorteil, daß der DIR-Befehl auch 
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innerhalb von Programmen gut eingesetzt werden kann. Ein 
im Speicher befindliches Programm wird dadurch nicht 
gelöscht. 

STATUS 

Format.: STATUS 

Parameter..: keine 
Beispiel...: STATUS 

Funktion...: liest den Fehlerkanal der Floppy. 

Der STATUS-Befehl ersetzt folgendes Basic-Programm: 

10 OPEN 1,8,15 
20 GET#1, A$ 

30 PRINT A$ 

40 IF ST < >64 THEN 20 
50 CL0SE 1 

DISK 

Format.: DISK "ANWEISUNG" 

Parameter..: ANWEISUNG-Flopppy-Systembefehl 
Funktion...: Vereinfachte Kommunikation mit dem 

Floppylaufwerk 

Beispiel...: DISK "S:TEST" löscht das File »Test« 

Der übliche Umweg zur Übertragung eines Floppy-System- 
befehls entfällt nun. Bisher mußten Sie zum Formatieren einer 
Diskette die folgenden Befehle eingeben: 

OPEN 1,8,15,"N:TESTDISK,ID":CL0SE1 

Mit dem Disk-Befehl ist dies nun wesentlich einfacher: 

DISK "N:TESTDISK,ID" 

Nach dem DISK-Befehl wird automatisch der STATUS-Befehl 
ausgeführt. 

MERGE 

Format.: MERGE »FILENAME«, GA 

Parameter..: GA: Geräteadresse 

Beispiel...: MERGE "Teil 2",8 

Funktion...: Anhängen eines Basic-Programmes 

von Diskette (Kassette bei ga=1) an 
ein im Speicher befindliches Pro¬ 
gramm. 

Mit diesem Befehl ist es Ihnen möglich, an ein Basic- 
Programm im Computer ein weiteres anzuhängen, das Sie 
durch MERGE einladen. Damit können Sie sich eine kleine 
Routinensammlung auf einer Diskette anlegen, die Sie bei 
Bedarf zusammenladen. Die Zeilennummern sollen sich 
jedoch, falls in dem eingeladenen Programm irgendwelche 
Zeilenansteuerungen (GOTO, GOSUB..) vorhanden sind, 
nicht mit den Nummern des Vorprogrammes überschneiden, 
da es ansonsten (auch nach RENUM!) zu Fehlern kommt. 

Vorsicht bei sehr langen Programmteilen! Reicht der Spei¬ 
cher nicht aus, um beide Programme zu fassen, so werden 
Teile von Plot-Basic überschrieben, was zum Absturz führt! 
Speichern Sie also bei langen Programmen vorher das im 
Speicher befindliche Programm (auf Diskette oder Kassette)! 
SWAP 

Format.: SWAP(A$,B$) 

Parameter...: keine 
Beispiel...: 10 A$= "HALLO" 

20 B$="BAUM" 

30 PRINT A$,B$ 

40 SWAP(A$,B$) 

50 PRINT A$, B$ 

Funktion...: Vertauschen zweier Strings 

Der Vorteil liegt darin, daß kein »Müll« entsteht (praktisch für 
Sortierroutinen in Basic). 

HELP 

Format.: HELP 

Parameter...: keine 
Beispiel...: HELP 

Funktion...: Mit HELP werden Hilfstexte für die 

einzelnen Befehle angezeigt. 

Die erste Hilfsseite wird angezeigt. Andere Seiten lassen sich 
durch Drücken der Tasten 1,2,3,4,5,6,7,8 und 9 anzeigen. 


Mit X kommt man wieder in den Direktmodus zurück. 

Diese Hilfsseiten sind besonders für Befehle nützlich, bei 
denen viele Parameter angegeben werden können. 

RENUM 

Format...,:: RENUM (X,SW (,Z)) 

Parameter..: - X : erste neue Zeilennummer 
-SW: Schrittweite (1 bis 255) 

-Z : erste alte Zeile, die umnumeriert 
werden soll. Z muß kleiner als X 
sein! 

Beispiele..: RENUM ohne Parameter numeriert das 

komplette Programm in Zehnerschrit¬ 
ten durch. Die erste Zeilennummer ist 
10 . 

RENUM 90,5: Hierbei ist 90 die erste 
neue Zeilennummer und 5 die Schritt¬ 
weite. 

RENUM 1000,17,400: Damit numerieren 
Sie nicht das komplette Programm 
neu, sondern erst ab der Zeilennum¬ 
mer 400 - die alte Zeile 400 hat jetzt 
also die Zeilennummer 1000, von da 
an geht es in 17er-Schritten weiter 
Funktion....: Umnumerierung von Basic- 

Programmen oder Teilen davon. 

Ein weiteres Juwel unter den Programmierhilfen ist der 
bekannte RENUM-Befehl. Mit ihm ist es möglich, die Zeilen¬ 
nummern eines ganzen Basic-Programms (oder Teile davon) 
umzubenennen. Dabei werden selbstverständlich alle 
GOTOs, GOSUBs, ON.etc. mit verändert. Dadurch schaf¬ 

fen Sie problemlos Platz zwischen einzelnen Zeilen, wenn 
Sie etwas einfügen möchten. Tauchen innerhalb des Pro¬ 
gramms Zeilen auf, die eine andere Zeile ansprechen, obwohl 
die ■ überhaupt nicht vorhanden ist, dann wird der entspre¬ 
chende GOTO, GOSUB,... nicht verändert! 

Der Befehl DTASET wird nicht umnumeriert, da dessen Zei¬ 
lennummer auch berechnet werden kann. Hier müssen Sie 
also als einziges von Hand Änderungen vornehmen. 

Bei Programmen, bei denen der gewählte Zeilenabstand 
und die Startzeile dazu führen könnten daß Zeilennummern 
größer als 63999 auftauchen würden, wird keine Umnume¬ 
rierung durchgeführt und ein SYNTAX ERROR ausgegeben. 

Ein Programm, das mit RENUM behandelt wird, kann in sei¬ 
ner Länge zu- oder abnehmen. 

KEY 

Format.: KEY FT,»DEFINITION« 

F’arameter...: - FT : Funktionstastennummer (1-8) 
»DEFINITION« : ein maximal 10 Zei¬ 
chen langer Text 
Beispiel...: KEY 3, "GOTO" 

Funktion...: Umprogrammieren der Funktions¬ 

tasten 

Wie Sie sicherlich schon bemerkt haben, sind die 
Funktionstasten mit verschiedenen Befehlen belegt. Damit 
Sie diese Belegung ändern können, wurde der KEY-Befehl 
implementiert. Die in »DEFINITION« stehenden Buchstaben 
(Zeichen) werden von nun an der mit FT angegebenen Funk¬ 
tionstaste zugeordnet. Bei Druck auf diese Taste wird dann 
automatisch diese Zeichenfolge (maximal 10 Zeichen) auf 
den Bildschirm geschrieben und ausgeführt. Programmieren 
Sie eine Taste mit einem Befehl (zum Beispiel RUN) und wol¬ 
len, daß dieser Befehl direkt ausgeführt wird, dann müssen 
Sie zusätzlich das Zeichen < —> (Ffeil nach links) an- 
hängen: 

KEY 1,"RUN - " 

Nach dem Starten von Plot-Basic sind die 8 Tasten bereits 
sinnvoll auf die folgende Art und Weise belegt: 

Fl : CHR$(147) + "LIST —" 

F2 : CHR$ (147) + "RUN -" 
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F3 : "DUMP — " 

F4 : "FIND" 

F5 : CHR$(l47)+"DIR 
F6 : "RENUM" 

F7 : "STATUS -" 

F8 : "DISPLAY 

Falls Sie die Belegung einer Funktionstaste löschen möch¬ 
ten, ohne diese neu zu belegen, geben Sie einfach ein- 
KEY FT,"" 

DISPLAY 

Format.: DISPLAY 

Parameter..: keine 
Beispiel...: DISPLAY 

Funktion...: Belegung der Funktionstasten anzei- 

gen. 

Die Ausgabe kann durch folgende Befehle auf den Plotter 
umgeleitet werden: 

OPEN 1,6 
CMD 1 
DISPLAY 
PRINT #1 
CLOSEI 

FIND 

Format.: FIND CODE / FIND STR 

Parameter..: - CODE : Alles, was sich außerhalb 

von Anführungszeichen 
befindet. 

- STR : Strings, also Zeichen, die 
sich innerhalb von Anfüh¬ 
rungszeichen befinden. 
Beispiel...: find print 

Funktion...: LISTet alle Zeilen, in denen der 

gesuchte CODE/STRING vorkommt. 
Bitte geben Sie einmal das folgende Programm ein: 

10 PRINT "DIES IST EIN FIND-TEST" 

20 FOR X = 1 TO 10 
30 : PRINT X 
40 NEXT 


(ASCII-CODES 33 bis 127 und 
161 bis 255) 

AR = 1 nur Ziffern 
(ASCII-CODES 48 bis 57) 

AR = 2 nur Ziffern mit maximal 
1 Dezimalpunkt (ASCII-CODES 
46, 48 bis 49) 

AR = 3 wie AR = 1, nur daß 
SPACEs (ASCII-CODE 32) 
auch erlaubt sind 
AR = 4 wie AR = 2, nur daß 
SPACEs (ASCII-CODE 32) 
auch erlaubt sind 

- STR: String, in dem die Antwort steht 
Beispiel...: TAKE 10,10,30,0,A$ 

Funktion...: Formatierte Eingabe von Daten 

Der INPUT-Befehl des normalen Basic eignet sich keines¬ 
falls für gute Programme, denn man kann mit den Cursor- 
Tasten überall hin und die Eingabemaske zerstören. Mit dem 
TAKE-Befehl haben Sie jetzt eine sehr komfortable Eingabe¬ 
routine. Falls vor dem Aufruf des TAKE-Befehls sich in dem 
STRing bereits Zeichen befinden, werden diese ausgege¬ 
ben, aber maximal soviel, wie in LA angegeben sind. Ist der 
STRing kürzer als in LA angegeben, werden diese mit SPA¬ 
CEs aufgefüllt. Die Eingabe wird mit RETURN abgeschlos¬ 
sen. Nach dem TAKE-Befehl hat STR immer genau die Länge 
LA (eventuell mit SPACEs aufgefüllt). Einige Tasten haben 
während des TAKE-Befehls eine besondere Funktion: 

HOME .: setzt den Cursor auf die erste 

Position 

CLR.: löscht das Feld 

CURSOR-Tasten.: Sie können sich frei im Feld beweaen 
10 PRINT CHR$(147) ' 

20 A?-' 'PROBIEREN SIE EINMAL DIE CURSORTASTEN AUS" 

30 FOR I = 1 T0 5 
40 : B$ = B$ + A$ 

50 NEXT 

60 TAKE 0,0,215,0,A$ 


FIND-Befehl 

gefundene Zeilen 

FIND X 

FIND TEST 

20 30 

FIND "TEST" 

10 

FIND "IST" 

10 

FIND PRINT 

10 30 

FIND ? 

10 30 

FIND 10 

20 

FIND X = 1 

— 

FINDX 

20 30 


Bitte experimentieren Sie mit diesem Befehl ein wenig, nur 
so können Sie ihn voll und ganz verstehen. 

Eine Umleitung auf den Plotter ist wie beim DISPLAY-Befehl 
auch hier möglich. 

Mit CTRL beziehungsweise STOP kann die Ausgabe ver¬ 
langsamt oder abgebrochen werden. 

TAKE 

Format....: TAKE SP,ZE,LA,AR,STR 

Parameter.: - SP : Spalte (0-39) 

wie beim AT-Befehl 

- ZE: Zeile (0-24) 

wie beim AT-Befehl 

- LA: Länge des einzugebenden 

Strings (1 bis 255) 

- AR: Format der Eingabe 

AR = 0 alle Zeichen sind 
erlaubt 


10 PRINT CHR$(147) 

20 PRINT "NUR ZIFFERN SIND ERLAUBT" 

30 A=20 

40 A$ = STR$(A) 

50 TAKE 10,10,9,1,A$ 

60 A = VAL(A$) 

70 AT 20,0,A 

Bitte spielen Sie einmal alle Möglichkeiten durch, es lohnt 
sich! 

DTASET 

Format....: DTASET ZN 

Parameter.: - ZN : Zeilennummer 

Beispiel..: DTASET 200 

Funktion..: Setzen des DATA-Zeigers 

Mit DTASET wird der RESTORE-Befehl erweitert. RESTORE 
setzt den DATA-Zeiger wieder auf den Programmanfang. Wol¬ 
len Sie also ein Element mitten aus dem Programm lesen, so 
müssen alle vorgelagerten Daten überlesen werden. Mit DTA¬ 
SET haben Sie freien Zugriff, indem Sie die Zeile bestimmen, 
ab der das nächste DATA-Element bei einem READ gelesen 
werden soll. ZN kann auch berechnet werden. 

10 FOR I = 400 T0 100 STEP -100 

20 : DTASET I 

30 : READ WE 

40 : PRINT I,WE 

50 NEXT 

100 DATA 100 

200 DATA 200 

300 DATA 300 

400 DATA 400 
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TRACE 

Format.: TRACE 

F’arameter..: keine 
Beispiel...: TRACE 

Funktion...: Einschalten der TRACE-Funktion 

Mit dem TRACE-Befehl können Sie ein Programm schritt¬ 
weise abarbeiten. Nachdem Sie TRACE eingegeben und ein 
Programm mit RUN gestartet haben, wird in den oberen bei¬ 
den Zeilen des Bildschirms die Zeile gelistet, die gerade 
bearbeitet wird. Damit Sie sehen, welcher Befehl in dieser 
Zeile gerade ausgeführt wird, ist dieser REVERS dargestellt. 
Zur Steuerung der TRACE-Funktion stehen Ihnen die Tasten 
SHIFT und COMMODORE zur Verfügung. Mit der COMMO- 
DORE-Taste wird schneller TRACE ausgeführt. Mit SHIFT 
wird immer nur der nächste Befehl ausgeführt. Verlassen 
können Sie die TRACE-Funktion, wenn Sie beim schnellen 
TRACE die STOP-Taste drücken. 

OFF 


Format.: 

OFF 

Parameter..: 

keine 

Beispiel...: 

OFF 

Funktion...: 

schaltet die TRACE-Funktion ab. 

OLD 


Format....: 

OLD 

Parameter.: 

keine 

Beispiel..: 

OLD 

Funktion..: 

Regenerieren eines durch NEW oder 
RESET gelöschten Programms 

10 REM *** TEST OLD *** 

Geben Sie jetzt ein: 


NEW, LIST, OLD, LIST oder auch SYS 64738, LIST,0LD,LIST. 
Werden nach dem NEW oder RESET Basic-Zeilen gelöscht, 
geändert oder hinzugefügt oder ein ERROR verursacht, so 
funktioniert OLD nicht mehr richtig und das Programm ist ver- 

loren! 

DUMP 


Format....: 

DUMP 

Parameter: 

keine 

Beispiel.: 

DUMP 

Funktion.: 

Anzeigen aller benutzten Variablen 
und ihre momentanen Werte 


Mit DUMP können Sie sich sämtliche Variablen mit ihrem 
aktuellen Inhalt ansehen. Indizierte Variablen werden nicht 
mit ausgegeben. Das Auflisten der Variableninhalte kann mit 
der CTRL-Taste verlangsamt oder mit der STOP-Taste abge¬ 
brochen werden. 

Die Ausgabe kann wie bei DISPLAY auf den Plotter umge¬ 
leitet werden. 

REPEAT .... UNTIL 

Format....: REPEAT:schleife:UNTIL bedingung 

Parameter.: schleife - Anweisungen in der 

Schleife 

bedingung - Bedingung zum 
Schleifenabschluß 

Beispiel.: REPEAT: A=A+1: UNTIL A=4000 


Funktion.: Schleifensteuerung mit Bedingung 

REPEAT..UNTIL heißt soviel wie Wiederhole bis Bedingung 
erfüllt ist. 

Der wesentliche Vorteil von REPEAT...UNTIL liegt in der 
Steuerung von Schleifen mit ungewissem Ende: 

10 GET A$ 

20 IF A$ = ""THEN 10 

Hier wird so lange gewartet, bis eine Taste gedrückt wird. 
Mit REPEAT...UNTIL würde das so aussehen: 

10 REPEAT 
20 : GET A$ 

30 UNTIL A$< > "" 

Hier wird zwar eine Zeile mehr gebraucht, aber das Ganze ist 
viel übersichtlicher, denn es wird kein »wilder« Sprung benö¬ 
tigt. Außerdem ist REPEAT...UNTIL viel schneller als 
IF...THEN. 

1. Trifft der Computer während des Programmlaufs auf einen 
Fehler, so wird automatisch die fehlerhafte Zeile gelistet. 
Der Cursor steht direkt unter der fehlerhaften Zeile (ein 
READY, wird nicht ausgegeben). 

2. Beim Listen eines Programms können Sie den LIST- 
Vorgang mit der SHIFTTaste anhalten. Sie können Ihr 
Listing in Ruhe betrachten. Soll der LIST-Vorgang fortge¬ 
führt werden, so drücken Sie einfach die SPACE-Taste. Ein 
mit SHIFT angehaltenes Listing kann mit der COMMO- 
DORE-Taste unterbrochen werden. Die STOP-Taste steht 
hierfür nicht zur Verfügung. Bei der COMMODORE-Taste 
wird BREAK und READY (wie es bei der STOP-Taste der 
Fall ist) nicht mit ausgegeben. Sie haben so mehr Platz für 
Ihr Listing. 

3. Falls Sie sich im Hochkomma-Modus befinden und Sie 
möchten die Cursor-Tasten benutzen, dann drücken Sie 
«=•> iach die COMMODORE-Taste und CTRL-Taste für etwa 
1 Sekunde gleichzeitig. Damit verlassen Sie den 
Hochkomma-Modus und Sie können die Cursor-Tasten 
wieder normal benutzen. 

Eingabehinweise 


Das Programm »Plot-Basic« (Listing 1) geben Sie bitte mit 
dem MSE ein und speichern es auf Ihren Datenträger. 
Danach können Sie es normal (,8) laden und mit RUN starten. 

Nach einer kurzen Wartezeit (das Programm wird entpackt 
und muß noch verschoben werden) erscheint die Einschalt¬ 
meldung »Plot-Basic....30717 Basic Bytes free« und die 
Befehle stehen zu Ihrer Verfügung. 

Über den Befehl HELP können Sie Hilfsbildschirme aufru- 
fen, aus denen die Befehle noch einmal ersichtlich werden. 

Das Programm belegt den Bereich von $8000 bis $CEF4 
und teilweise auch den Bereich von $A000 bis $BFFF unter 
dem ROM. Das Programm ist mit einem Modulstart versehen, 
das bedeutet, ein Neustart ist durch SYS 64738 oder einen 
RESET möglich. (Klaus Kappert/dm) 


Listing. »Plot-Basic«. Bitte mit dem 
MSE (auf Seite 8) eingeben. 

name I plot-basic 0601 31ed 

0801 i 0f 08 ca aB 9e 32 30 36 B5 

0809 i 35 20 46 43 43 00 00 00 7d 

0811 : 30 00 b9 69 07 99 00 cd 26 

0819 t b9 69 08 99 00 ce b9 69 ec 

0821 : 09 99 00 cf cB dB eb 4c 4c 

0B29 s c2 cd 78 aB ff 84 fb a9 6b 

0831 : c6 85 fc a9 36 85 01 Bd dd 

0839 : 20 d0 cB a5 2d dB 02 c6 97 

0B41 : 2e c6 2d a6 2e e0 0a d0 a6 


0849 : 04 c9 63 f0 Bf bl 2d 91 00 
0851 : fb a5 fb d0 02 c6 fc c6 10 
0859 j fb 4c d3 cd a2 08 a9 01 3c 
0861 : 86 2e B5 2d 84 ff 20 50 6f 
0869 i ce c9 f3 dB 27 20 50 ce B5 
0871 t aa 86 fa c9 04 bB 04 a9 7f 
0879 s f3 dB 03 20 50 ce aB 00 97 
0881 : 91 2d cB c6 fa dB f9 98 03 
0889 s 18 65 2d B5 2d 90 02 e6 7d 
0891 : 2e 4c 34 ce a0 00 91 2d 77 
0899 : e6 2d fB f3 a9 46 a2 57 d6 
08a1 : e4 2e dB c2 c5 2d dB be af 
0Ba9 5 a9 37 B5 01 a9 fe Bd 20 78 
08b1 s dB 58 20 59 a6 4c ae a7 b7 
0Bb9 s a2 ff 86 f7 86 f8 e8 a9 22 


08c1 s 01 B5 fe a9 7f B5 fd c6 23 
08c9 5 ff 10 10 e6 fb dB 02 e6 cd 
08dl : fc a9 07 05 ff a0 00 bl 7d 
08d9 s fb 85 f9 06 f9 b0 0a a4 6d 
08el : fe a5 fd 39 f7 00 99 f7 2e 
08e9 s 00 0a Ba aB a5 f7 38 f9 b5 
08f1 s e2 ce a5 fB f9 e3 ce 90 de 
0Bf9 l Be e0 Bd f0 0a eB 38 66 6e 
0901 : fd b0 c4 c6 fe f0 bc 8a e0 
0909 : fB Bf a5 f7 38 f9 eB ce 5e 
0911 s 85 f7 a5 fB f9 el ce B5 0f 
0919 : fB a4 fe f0 07 a5 fB 85 ce 
0921 : f7 88 B4 fB a5 fd 4a 90 31 
0929 s 07 46 f8 66 f7 4c be ce d9 
0931 : bd d2 ce 65 f7 aB b9 00 63 


SONDERHEFT 6/86 


81 















GRAFIK ERWEITERUNG 


064 


Listing. »Plot-Basic« 
(Fortsetzung) 


0939 

0941 

0949 

0951 

0959 

0961 

0969 

0971 

0979 

09B1 

0989 

0991 

0999 

09a 1 

09a9 

09b 1 

09b 9 

09c 1 

09c 9 

09dl 

09d9 

09el 

09e9 

09f 1 

09f9 

0a01 

0409 

0411 

0419 

0421 

0a29 

0431 

0439 

0441 

0449 

0451 

0459 

0a61 

0a69 

0a71 

0a79 

0aBl 

0aS9 

0491 

0499 

0441 

0449 

04b 1 
0ab9 
04C 1 

0ac9 

04dl 

0ad9 

0441 

0ae9 

0af 1 
0af9 : 
0b01 : 
0b 09 : 
0b 11 i 

0b 19 : 
0b21 : 
0b29 : 
0b31 : 
0b 39 : 
0b41 : 
0b49 : 
0bSl : 
0b 59 : 
0b61 : 
0b 69 : 
0b71 ; 
0b 79 : 
0bBl : 
0b 89 s 
0b91 : 
0b99 E 
0bal i 
0b a9 i 
0 bbl s 
0bb9 : 
0bcl s 
0bc9 s 
0bdl e 
0bd9 s 
0b el s 

0be9 b 
0bfl e 
0bf9 e 
0C01 E 
0C09 s 
0Cll E 
0C19 B 

0 c 21 s 

0c 29 e 


s cf 60 00 
e 15 2b 56 
E fc fc 00 
s 00 20 00 
: 00 d7 00 
b 80 ff 40 
i 20 49 40 
i «2 00 52 
s 49 85 d0 
s f0 03 *3 
e d4 2c 44 
s 22 2b 30 
e 4d cd 60 
s 3d 42 4a 
e 86 b9 46 
E 5f Bc 93 
l c5 a6 0« 
s 2d 84 59 
s 5a 5b 13 
b 37 62 bc 
b c3 32 b7 

S 48 49 44 
s cb fc 19 
s 39 7b cl 
e 73 7d 7f 
i 82 ac 44 
e 9d 79 81 
b b3 c 2 d 6 
e be 35 3f 
: 98 43 17 
: 8 b 47 bf 
: 6 d 92 b4 
: 5d 70 89 
l ed 95 42 
: 78 af d5 
l 5e 75 7c 
i 51 5c 6 a 
• da dt ec 
: 71 b9 35 
: 5b b9 92 
: 9b 82 62 
29 39 64 
: fd 5d 98 
45 79 c 8 
40 46 aa 
21 fa dd 

lb ba fl 
0f cl f5 
06 b9 61 
b0 7e be 
ec fS 17 
c3 d0 77 
d7 c2 a7 
fd 84 2f 
f6 61 55 

72 36 3f 
5c ld ee 
f3 bf lf 
d7 77 96 
9d 49 40 
ee 8c 88 

73 b3 ba 
7a 8b c3 
d2 77 a7 
2d 44 87 

B4 ff 0b 

9d 9e a2 
64 a7 7a 
4c 25 3d 
51 7c ef 
85 cd 76 
4b 7b al 
e3 bf c2 
d4 93 3c 
ce c9 cc 
56 24 bc 
fc b5 4e 
55 3f 21 
cc 3d a2 
e9 f0 15 
45 55 4f 
ab c7 c5 
64 f2 5e 
a3 6e a9 
5d bb 0a 
a7 c0 bl 
3f d2 dl 
b2 79 6a 
5b 18 ad 
5b 66 de 
f5 6f 04 

01 89 6a 
7d e6 f3 
ef 5e 6b 
32 df 21 


00 00 
B4 b6 
00 00 
40 00 
ee 80 
ff 00 
4c 45 
0d 02 
54 4» 
01 48 
c8 4f 
18 55 
ae 90 
c0 23 
57 5B 
cc 36 
29 06 
ba dd 
15 2f 
d3 07 
ce e5 
0b c6 
27 2e 
fa ab 
87 a3 
f 5 09 
cf 21 
f 7 12 
b6 f 4 
la 26 

e7 f 6 
db ee 
9a b2 
f 2 6c 
d9 de 
b5 d7 
6e 72 
fl e9 

73 6b 
4d 7b 
39 b9 
6c 87 
be ca 
f 7 6c 
fl ac 
le 45 
b9 4b 
c4 dd 
4b c4 
96 f 4 
bB e2 
eB 84 
04 b7 
99 da 
b5 al 
70 aa 
de 77 
18 b0 
ld 3c 
46 B4 

74 21 
35 ae 
ee b4 
Bl lb 
4e 76 
8c 57 
f 7 19 
44 9c 
67 57 
c6 47 
85 87 
d3 9d 
53 d6 
d3 eb 
79 32 
78 16 
c9 eS 
e3 e2 
c2 bc 
39 98 
c8 54 
96 ab 
9f 02 
f 9 16 
f 2 2d 
9f e9 
b7 bl 
b2 79 
f0 ed 
cc 7f 
6b 6c 
9e de 
27 9b 
cc 32 
e6 2 d 


01 01 05 
d4 e8 f4 
00 00 20 
80 00 ac 

fa 40 fe 
00 00 00 
8d 8f ff 
41 53 bb 
d2 a5 c9 
3a 43 ad 
04 83 bl 
31 fd 05 
4b 50 10 
47 b8 fb 
8a a4 ld 
38 bd 46 
14 66 08 
BB 91 ca 
7a aa bB 
2B 9e 33 
80 0f 8e 
0a 40 69 
68 e0 24 
c4 c7 67 
11 34 65 
2a 56 99 
25 63 a8 
3» 61 94 
fB fe 0c 
6b 71 7e 
f9 le 64 
16 lc 3b 
dl dB el 
74 76 77 
df lf 3c 
eb ef lb 
96 97 al 
eb fa aa 

94 51 42 
96 64 3b 
27 9e e6 
e 0 f2 0d 
9b ae 6f 
b3 aa c5 
14 50 8a 
78 b7 af 
14 33 e7 
21 f2 de 
f0 3f 89 
b4 36 3c 

42 4a lf 
21 f 0 lc 
bb e7 7e 
04 f4 dd 
0b fd ed 
6c 7a 7b 

43 3d 45 
fc f8 5c 
7f b9 d0 
«4 3c ec 
36 ea ee 

95 cd 7e 

75 f0 ff 
«0 ec 3d 
17 a8 Sb 
7f e7 0f 
fe 9d 7c 
de d9 95 
9d d0 cf 
ad 0 f cf 
4d df 4f 
84 97 36 
77 ba B7 
60 19 b7 
e4 c7 61 
f6 ea b6 
99 b7 f4 
cb 56 7b 
86 4f 25 
79 bf 4b 
cd bf a 2 
0a f2 15 
de cd bf 
ef lf 16 
d9 3c 97 
68 ab 63 
9f e9 68 

76 ec 9e 
Bf fe 73 
9b 2f 30 
f6 26 b7 
ec 4b ad 
cl 62 b5 
79 77 4c 
b4 5e 55 


4f 

b2 

04 

c7 

02 

19 

0 e 

39 

e9 

cf 

24 
39 
7f 
fl 
2f 
bf 

25 
de 
0b 
75 

39 
6a 
50 
B6 
Sa 

40 
d7 
9c 
44 
34 
f5 
16 
65 
43 
0b 
12 
be 
63 
98 
6c 
32 
d5 
56 
be 
37 
dl 
c7 
27 

41 
79 
34 
45 
b3 
7d 

42 
4b 
Bc 
2e 
2d 
de 
4b 
Bf 
f 2 
be 
02 
52 
d6 
0d 
b9 
B9 

24 

25 
7a 
3» 
ca 
6a 
30 
37 
9c 
6a 


95 

f0 

de 

b6 

a0 

8d 

Bd 

28 

52 

2d 

03 

aB 

19 

0d 


0c31 
0C 39 
0c41 
0c49 
0c51 
0c59 
0c61 

0c 69 

0c71 

0c79 

0c81 

0C B9 

0c91 

0c99 

0cal 

0ca9 

0cbl 

0cb9 

0cc 1 

0cc9 

0cdl 

0cd9 

0cel 

0c e 9 

Bef 1 

0cf 9 

0d01 

0d09 

0dll 

0dl9 

0d21 

0d29 

0d31 

0d39 

0d41 

0d49 

0d51 

0d59 

0d61 

0d69 

0d71 

0d79 

0dBl 

0d89 

0d91 

0d99 

0dal 

0da9 

0dbl 

0db9 

0dcl 

0dc9 

0ddl 

0dd9 

0del 

0de9 i 

0df 1 i 
0df9 : 
0401 ; 
0e09 : 
0ell : 
0el9 i 

0 e 21 : 
0e29 : 
0e31 : 
0e39 i 
0e41 : 
0e49 : 
0e51 s 
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Ausführliche Informationen 
zu ausgewählten Themen finden 
C64-Anwender in zwei 
weiteren aktuellen 


64’er. 


SONDERHEFT 05/86: C64-GRUNDWISSEN 

Umfassendes Grundlagenwissen zum C64 hilft Einsteigem. 
Ua. werden Speicheraufbau, Ports und Floppy mit Datenspei¬ 
cherung/Verwaltung erklärt. Dazu eine Erläuterung der wich¬ 
tigsten Begriffe. Informationen und Ratschläge helfen Ihnen 
bei der Auswahl des besten und preiswertesten Druckers für 
Ihren C64. Mit unserer 
Einführung in die Ba- 
sic-Programmierung fin¬ 
den Anfänger den richti¬ 
gen Einstieg. Eine Zu¬ 
sammenstellung der 
wichtigsten Hilfspro¬ 
gramme erleichtert Ih¬ 
nen das Programmieren. 

Die Rubriken »Fragen 
und Antworten«, »Peek-, 

Poke- und SYS-Kiste« 
sowie die vielen 
»Tips&Tricks« helfen Ein¬ 
steigern. 


Jetzt für 
14,— überall 
im Zeitschriften* 
Handel! 


SONDERHEFT 04/86: ABENTEUERSPIELE 

Ein 100-Seiten-Super-Kurs mit einer Fülle an Informationen von 
Michael Nickles bringt ua.: Computer-Eingabe in Deutsch / De¬ 
codieren ganzer Sätze / Spiele ohne Speichergrenzen / Texte 
speichern und verwalten / Künstliche Intelligenz: So program¬ 
mieren Sie Spiele, die denken, lernen und handeln / So baut 
man hochinteressante 
Grafiken in Abenteuer¬ 
spiele ein / und natürlich 
ein Spiele-Programmier- 
kurs mit den Program¬ 
miertricks der Profis. 

Neue und bisher unveröf¬ 
fentlichte Spiele-Listings 
zum Abtippen: Ua. »Der 
Kleine Hobbit« (deutsche 
Bearbeitung), »Spion III« 

(die Jagd nach der Bom¬ 
be), »Freiheit« (der Weg 
aus dem Kerker). Alle Li- 
stings mit Prüfsumma 


(ässta? 


SONDERHEFT 6/86 


83 





























GRAFIK-ERWEITERUNG 


C 64 


Listing. »Plot-Basic« 

(Fortsetzung) 

1681 s d4 45 b2 30 57 87 »6 2a 4b 
1689 : 20 4b bl 01 21 ae 40 6b 3b 

1691 : 90 82 bd 58 86 bb a3 2a 06 

1699 b b9 17 62 la ee Bc 28 ce 4b 
16al t c4 37 c8 8c 25 d3 d3 37 73 

16a9 s 03 le 2 b 72 9b 5f 29 45 79 

16bl ! 14 27 6c aB 84 da 25 32 al 

16b9 b a2 3c 3b f4 fb 65 44 4b 79 

16cl b 68 99 05 44 6e 78 55 62 84 

16c9 b 43 Bd 66 2a 20 4b bl 01 d7 

16dl s 21 bd 44 d6 c8 93 b6 54 69 

16d9 s 42 6d 13 db 2d a0 b2 ec 4f 

16el s c7 d5 el 13 0c aB B4 da 3b 

16e9 b lf 03 49 cc 2a 22 5b 43 ld 

16fl s f 2 ff 51 34 ca 88 e2 ec 14 

16f9 a c4 84 09 30 aB 84 da lf a0 

1701 3 6f fa 89 ba 2a 23 8b b3 f8 

1709 B 12 10 b3 25 61 51 09 b4 #3 

1711 a 9f 6c a8 89 6d 13 4c a8 34 

1719 a Bc ad 99 33 4a 88 4d a0 aB 

1721 a cd fa 7a 65 44 4b 6a 0e lb 

1729 : b9 c5 ee 22 la ee 89 37 72 

1731 a 45 44 65 6c c9 9a 54 42 c6 

1739 3 6d 06 6f d3 dd 15 11 2d 25 

1741 b aB 3a e7 17 bB BB 6b ba d6 

1749 s 22 a2 04 54 40 48 6f 51 ef 

1751 s 16 cB 9b a4 44 57 da lb ef 

1759 8 lf 7c 31 a5 27 fb 4a BB 44 

1761 : 96 d0 af b4 18 d2 93 60 09 

1769 a aB 89 6d 59 ca eb 23 0f 13 

1771 a 8B 4f da 54 47 87 7f 67 5f 

1779 s 2b ac Bc 3e 21 18 2a 23 a7 

17B1 s c3 bf b3 23 62 02 42 a2 fa 

1789 b 04 54 40 4B 8a 0f 16 B8 5b 

1791 3 af b4 22 83 c5 a2 6a B8 bf 

1799 s 28 48 cB 75 91 2c 61 7b bd 

17al 3 44 93 44 04 BB a0 fl 68 67 

17a9 B Ba fb 42 46 le 2d 13 5d dd 

17bl s dl 2c 61 7b 44 Bd BB 09 45 

17b9 s 0a 8B 12 ec 40 48 8a 0f bB 

17cl b 16 BB af b4 24 61 e2 dl la 

17c9 : 35 dd 12 46 43 ac 89 63 cl 

17dl s 0b da 22 d9 02 36 20 24 aB 

17d9 s 6b ba 25 8c 2f 68 8c 4b 7b 

17el s 52 36 20 24 6b ba 25 Bc 15 

17e9 s 2f 68 91 bl 01 21 51 02 49 

17f1 s 2a 20 24 31 a5 27 5B 54 fB 

17f9 3 44 b6 84 B4 06 b9 01 51 lf 

1801 : 02 5d BB 09 0a fb 41 Bd 96 

1809 B 29 3c B2 a2 25 b4 24 20 0e 

1B11 B 35 cB 0a B8 11 51 01 21 20 

1B19 8 ae 40 57 da 0c 69 49 e9 ld 

1821 s 95 11 2d al 21 01 51 02 22 

1829 s 5d BB 09 0d 72 02 be d0 B2 

1831 s 63 4a 4f 74 54 44 b6 84 67 

1839 s 84 05 7d a0 c6 94 9d 32 9f 

1841 a a2 25 b4 2b ed 06 34 a4 31 

1849 s eb Ba BB 96 dl 2b 0a BB le 

1851 B 4d a4 fb 65 44 4b 68 9d 17 

1859 b b2 a2 13 68 94 ca BB f0 d2 

1B61 b ef d3 ed 95 11 2d a2 64 36 

1869 s 15 11 b9 el 55 BB 6e 5e cl 

1871 s dB 54 40 Ba 88 09 09 08 da 

1879 s 12 b8 aB B4 da 12 10 15 4b 

1881 a 10 25 dB 80 91 3b 65 44 7b 

1BB9 b 26 de 90 81 2b 8a BB 4d 2f 

1891 a al fa 3f 00 90 Bl bf bb 0b 

1899 a 6 c 4d 32 a2 13 69 3e d9 b6 

IBal s 51 12 da 27 6c aB 84 da 6b 

18a9 s 25 32 «2 3c 3b f4 fb 65 2e 

18bl b 44 4b 6B 9b a2 a2 37 3c bd 

18b9 a 2a bl Bd 77 44 54 40 8a eb 

IBcl s B8 09 12 b8 aB 84 da 12 a8 

18c9 a 10 27 6c aB 84 da 12 10 24 

18dl s 15 10 25 d8 80 91 2b Ba a9 

lBd9 a BB 4b al fa 3f 00 90 81 09 

IBel B 3b 65 44 26 dB 90 81 bf bc 

18e9 a d3 6d 97 e4 80 22 dB f4 3b 

lBfl B 44 99 f6 36 33 e6 cf 54 d9 

IBf9 s e3 37 ca 02 de d3 de dB 04 

1901 b 5d 30 cb 72 44 5a le Ba 5c 

1909 a de 48 cd f2 ad B2 ac 58 2f 

1911 3 86 76 4c bc 7b 10 38 f5 82 

1919 a 78 15 de 01 74 c3 2d c9 21 

1921 3 17 5b 27 Be cB c3 54 e7 4d 

1929 s 5b c9 Bb d5 Bc 56 bd 3d eb 

1931 s 59 02 dB cc 56 b2 2d 9B 3c 

1939 b b7 b7 3a af 2d e4 c5 d3 09 

1941 a le 91 d5 65 b9 ef cB lc c0 

1949 s 9e e2 aa ca 71 2f 77 51 6d 

1951 B 6 B 50 a7 ba ee eB 50 bd 15 

1959 b al 7b 61 43 75 17 5f 43 Bd 

1961 s e0 fB 35 b5 b5 aB 71 2B 7B 

1969 a 45 al 13 75 12 25 38 91 41 

1971 b 3e 0a 11 22 44 al 12 22 lb 


1979 a fl 22 d8 50 e3 fl 35 68 2f 

1981 b 58 45 f 4 2B 6e a2 45 bB 40 

1989 a al 12 c3 75 42 c2 2d 05 cc 

1991 8 2e 22 67 74 6c fd bB 41 55 

1999 s de 24 ad 3e 6c 73 4d cb ec 

19al a c2 27 e7 Bf a9 ce 42 a6 4a 

19a9 b 5d a7 3b 9b cf 99 97 05 4e 

19bl a 7B 5a fS 7f 66 15 BS 77 a2 

19b9 s 10 97 87 ab a7 53 2f 4e 5b 

19cl s 66 5e 9d 4c bd 39 99 7a 48 

19c9 b 75 32 f4 e6 65 91 44 35 dB 

19dl 3 32 dB f4 72 fb 9d 48 6e al 

19d9 s af 66 a4 Sa 17 68 77 b9 36 

19el s 70 57 B5 af 87 e4 c2 al 42 

19e9 b 0 f ab 09 78 71 34 fb de 82 

19f1 s bd 3e f7 2f 4f bd cb 2c lb 

19f9 B 61 7b 44 Bd BB 09 Ba BB e5 

la01 a 11 51 01 2b 4e f7 2c Ba cb 

la09 b 04 10 20 10 12 4d 4c 61 9f 

lall a c6 40 B0 40 4B 54 40 8d 63 

lal9 3 BB 09 lb 31 2a cf cd a9 be 

la21 s 96 86 a6 59 14 fc de Be 91 

1*29 b Sa le Be 5d 9c 18 dl c7 43 

la31 a 73 fl a7 b0 2e fB 5f 7c be 

1*39 3 63 ce 4a le 04 2c 57 68 2a 

la41 8 77 2e 46 b3 ce eB d5 b5 ce 

la49 b fd 50 ba bb fe 93 Bb a7 9e 

1*51 s b0 cl fB 93 df 60 f0 61 la 

la59 s 29 0e 9e fb fc 09 9a e4 fd 

1*61 3 62 a8 2a 7c 74 be 27 7f 0a 

1*69 s le dd df c4 2a 7c 62 a7 66 

la71 a c6 6e 4f c7 al fl 3a be 4b 

la79 a 87 06 cc 77 3f le 97 c5 f4 

1*81 s Bf cl 17 df lc 15 eb 3a 41 

1*89 B fb f4 3d 9a 06 ff fb 2f 50 

1*91 b 07 03 63 d9 2a 9f e0 9e Be 

la99 b 6 e 0c 6a SB 09 f0 30 63 53 

laal 3 62 c2 52 lf 54 40 4a 73 34 

laa9 3 bd 2d 0e cb ba 16 69 a8 4d 

labl a 5d fl af be 38 ba 4a 45 d8 

lab9 b 49 48 a9 29 15 25 22 a4 02 

lacl 3 a4 54 94 Ba 92 91 52 52 a9 

lac9 3 2a 4a 45 49 48 a9 29 15 33 

ladl b 25 22 a4 a4 54 94 8a 92 fe 

lad9 s 91 52 52 2a 4a 45 49 48 f2 


lael 

3 

a9 

29 

15 

25 

22 

•4 

a4 

54 

Bb 

lae9 

8 

94 

cb 

f 8 

00 

aa 

2 e 

9b 

64 

f 4 

laf 1 

s 

77 

B2 

7c 

d3 

aa 

3.1 

nt 

ld 

ca 

laf 9 

: 

69 

d5 07 7e 

69 

C4 

- .i 

6 b 

c9 

lbBl 

: 

4f 

26 

dB 

ef 

Bd 

cd 

5f 

de 

16 

lb09 

3 

16 

59 

41 

*9 

30 

ab 

6 c 

5d 

26 

lbl 1 

3 

18 

ef 

CB 

59 

61 

Ba 

2 e 

45 

2 c 

lbl9 

3 

51 

74 

db 

23 

ca 

e 0 

77 

B0 

92 

lb21 

: 

6 c 

85 

c8 

dB 

77 

9d 

e6 

70 

7e 

lb29 

3 

ba 

6 d 

91 

de 

77 

99 

cb 

2 c 

a6 

lb31 

3 

2 b 

83 

32 

63 

aa 

db 

cf 

0 b 

f 6 

lb39 

3 

91 

57 

bB 

e4 

8 b 

16 

cc 

dd 

99 

lb41 

: 

B9 

de 

3a 

ab 

2 c 

3e 

50 

cc 

cd 

lb49 

3 

98 

ea 

b6 

f 3 

c7 

17 

22 

ba 

b2 

lb51 

3 

58 

b6 

66 

ec 

4e 

fl 

d5 

59 

ba 

lb59 

3 

65 

86 

lb 

0 a 

dd 

ld 

f 9 

0 b 

ce 

lb61 

8 

2 c 

2 a 

Bb 

90 

cc 

98 

f8 

Bc 

26 

lb69 

3 

2 b 

b8 

02 

bB 

5c 

Bb 

a3 

31 

9b 

lb71 

3 

Sa 

b0 

!?4 

8 b 

91 

7c 

ad 

69 

54 

lb79 

3 

df 

Bb 

40 

71 

c5 

CB 

56 

7b 

4f 

lbBl 

3 

cb 

2 c 

b0 

56 

7b 

cc 

3c 

71 

4b 

lbB9 

8 

e7 

30 

ac 

85 

96 

15 

45 

c8 

lf 

lb91 

3 

7* 

7a 

b6 

2 c 

18 

0 a 

el 

72 

be 

lb99 

B 

3b 

ca 

•2 

f 9 

56 

26 

89 

aa 

33 

lbal 

3 

9e 

3d 

6 b 

f 7 

cl 

53 

c9 

Bc 

b3 

lba9 

3 

f 3 

2 b 

Be 

48 

b9 

17 

ca 

cf 

de 

lbbl 

1 

65 

99 

31 

d5 

6 f 

0 d 

eB 

cc 

66 

lbb9 

8 

76 

f0 

de 

16 

c6 

3b 

6 f 

b3 

Bd 

lbcl 

1 

26 

3a 

ad 

el 

bc 

b0 

e3 

Bb 

a4 

lbc9 

3 

91 

6 c 

63 

b6 

fb 

32 

63 

aa 

74 

lbdl 

3 

de 

lb 

cl 

98 

ed 

el 

bc 

2 f 

ff 

lbd9 

1 

95 

9e 

cb 

32 

63 

aa 

de 

lb 

34 

lbel 

3 

cb 

28 

02 

a7 

92 

31 

66 

6 c 

5b 

lbe9 

3 

a6 

Sd 

4r: 

Be 

38 

b3 

19 

9B 

d9 

lbf 1 

3 

c6 

a2 

cb 

2 c 

31 

77 

9b 

21 

00 

lbf 9 

3 

6 f 

3d 

96 

de 

6 e 

7b 

e 2 

69 

a9 

lcBl 

3 

d5 

15 

af 

bc 

75 

4e 

fB 

33 

f 8 

lc09 

3 

6 f 

db 

ld 

f0 

79 

36 

c7 

59 

e6 

lcll 

3 

61 

74 

2 e 

45 

d2 

a7 

6 d 

e3 

cB 

lcl9 

3 

81 

lc 

5c 

88 

f 3 

Cf 

lc 

eb 

d6 

lc21 

3 

2 c 

18 

17 

21 

Bb 

a6 

5* 

61 

6 d 

lc29 

3 

f 9 

a3 

71 

88 

db 

32 

63 

9d 

79 

lc31 

3 

fl 

34 

ef 

86 

64 

c7 

55 

Bc 

fc 

lc39 

3 

3c 

33 

36 

fb 

67 

7d 

65 

83 

lb 

lc41 

3 

22 

e4 

33 

26 

3a 

ac 

61 

el 

b9 

lc49 

3 

b6 

75 

6 b 

5f 

be 

65 

85 

5e 

6 a 

lcSl 

3 

59 

65 

S0 

lb 

fb 

cb 

cb 

41 

b0 

lc59 

3 

bf 

bc 

bc 

b4 

lb 

ff 

!?4 

fe 

7f 

lc61 

3 

4b 

41 

bf 

fe 

4f 

e4 

b4 

lb 

42 

lc69 

3 

fb 

cb 

cb 

41 

bf 

bc 

bc 

b4 

a3 

lc71 

3 

lb 

fb 

cb 

cb 

45 

B0 

lb 

40 

3b 

lc79 

3 

36 

83 

C0 

bc 

bc 

f 7 

04 

5a 

B9 

lcBl 

3 

lb 

41 

C0 

7e 

9f 

d3 

ee 

0 d 

b3 

lcB9 

s 

*7 

2 f 

97 

b4 

lb 

4b 

2 b 

2 d 

57 


lc91 s a0 da 7b de f6 dl 60 06 e4 

lc99 a d0 Bd a0 f0 2f 2f 3d cl lb 

leal b 16 Bi dB 78 lf a7 f4 fb 38 

lca9 3 83 69 cb e5 ed 06 d2 ca 80 

lebl B cb 68 36 9e f7 bd b4 5B 03 

lcb9 a 01 b4 03 68 3c 0b cb cf cd 

lec1 s 70 45 al b4 le 07 e9 fd 90 

lcc9 s 3e e0 da 72 f9 7b 41 b4 66 

Icdl b b2 b2 da 0d a7 bd ef 6d 3B 

lcd9 b 16 00 4a bc bc cf 12 af 0b 

lcel a 2f 33 c4 aa 54 b3 c4 aa 7b 

lce9 s 54 b3 c4 ab cb cc fl 2a fd 

lcfl b f2 f3 3c 4a bc bc cf 5a db 

lef9 3 2d 01 56 2d 01 Sd 16 B0 36 

ld01 s e4 c5 a0 38 fl 68 0f 2a ea 

ld09 s 2d 01 f2 c5 a0 33 56 50 ca 

ldl1 s 06 15 92 2c 71 66 SB ec 51 

ldl9 b a6 62 ab 33 64 ac c6 71 eb 

ld21 b 26 lf 12 63 0b 2c 38 a7 0a 

ld29 s 31 9b b7 64 ef dd 4f be 4b 

■ld31 3 3b fa 8b 2c 2c 71 77 96 ab 

ld39 s 3b 21 Bb bc d9 0b 16 de 8b 

ld41 s 78 e6 b7 ad 7e d9 e5 96 4b 

ld49 s 0a e2 ef 15 d9 0c 5d e6 a4 

ld51 s cB 2a c4 d6 eb 59 1B 6c fd 

ld59 b 18 cc 85 71 6e 55 d9 09 72 

ld61 s ac 3e f8 b6 54 ed b2 b0 22 

ld69 s 67 13 78 7c 40 cb cc 2a fl 

ld71 s f6 f0 ef cd 18 Bd bf 6c 5b 

ld79 3 73 0e 2d 5d 87 lf 36 ae 92 

ldBl s a2 cb 06 05 c8 c4 6d fb Bb 

ldB9 b 63 99 Bb a6 5e 61 f9 a3 91 

ld91 b 71 88 db 32 63 9d fl b8 e0 
ld99 b c4 3b 63 71 5a b4 5b 01 bd 
ldal B 74 75 4f 26 3b e7 7e 69 28 

lda9 b df 16 f5 af db 3c 77 d6 32 
ldbl b 58 Sd ld b0 c0 b9 15 de fd 
ldb9 s 9a a0 71 cf 26 d8 06 05 45 

ldcl 3 c8 ef 2a Bl e5 le 4d b2 25 
ldc9 b dl 6c 03 02 e4 Be 07 24 f5 
lddl B Bf 94 f 2 6 d B0 60 5c Bc 2a 
ldd9 s da aB 66 9e 4d b2 dl 6c fb 

ldel s 03 02 e4 0f 2b es 03 38 5f 
lde9 3 f2 6d 80 60 5c 8f 2a aS fa 
ldfl s ld el e4 db 2d 16 c0 30 9a 
Idf 9 B 2e 40 e3 e6 Ba ea a7 93 e3 
1*01 • 6c b2 B0 32 79 2f 4f 54 24 
1*09 s 58 e2 cc bl d9 4c 55 B9 a4 
1*11 = BC e2 4c 3e 24 c6 07 16 aa 
lel9 s 63 2c 4c 62 eb 50 71 66 c6 
le21 a 62 37 a8 b2 c0 58 e2 ef d9 
le29 s 2c 76 5b c5 5B de 33 B9 7c 
le31 s bc 3e 26 fl B0 31 lb 38 43 

le39 e ba 3b 61 85 64 cS d5 0b 7c 
1*41 s 2c 03 27 b6 7a 7a a3 70 7a 
le49 s 76 e4 c7 7c ef 0b b3 cd 74 
1*51 b 9f 26 3S 3b 6f 9d f8 b6 ae 
le59 B 01 65 80 ed db 56 c9 8e 9f 
1*61 b 77 d9 7a b4 f2 6d bb 71 66 

le69 s 6e 02 cb 00 cb 00 33 26 al 
1*71 s 3a ac 61 el b6 75 6b 5f 19 
1*79 s be 65 85 5e lc 5a bb ca 30 
le81 B ed 45 96 01 8b a0 19 93 20 

le89 s ld 56 30 f0 db 3a b5 af cl 
1*91 s df 32 c5 d3 2f 30 fc d5 B9 
le99 3 94 01 8c 56 d9 10 b5 d3 79 
leal s 31 79 33 36 55 d3 36 5c aB 
lea9 i 99 Bc 5d 4c be 55 65 96 c3 
lebl s 1B b5 db cd 95 70 b6 31 6e 
leb9 B db 7d 97 Be 31 77 9b 21 8a 
lecl a 6d 3e 7a b3 5b 7d B7 Be 3f 
lec9 B b2 c3 17 93 bc d9 72 45 84 
ledl s f2 b3 ce cb 2f lc 62 ef 07 
led9 s 36 42 da 7c f5 66 b6 fb de 
1**1 « Bf ld 65 83 17 40 31 74 6a 
le*9 b cb cc 3f 34 6e 31 lb 66 la 
lef1 ' 4c 73 be 26 9d f5 a2 d8 31 
l*f9 i 06 6d 9B 33 67 56 b5 fb 3a 
lf01 > «3 be b2 c2 f9 50 0c cl le 
lf09 a df be 38 9a 76 43 36 cc 9d 
lfll a 19 b3 ab 5a fd f3 3b 05 b0 
lf19 b a2 dB 06 5e 55 b9 31 ce fa 
lf21 a c8 6d f0 76 df 38 55 b9 33 
lf29 s 31 de ad 7e f9 65 83 12 01 
lf31 a 63 bd 5a fd f0 f6 3d 8f ' a4 

lf37 b 61 65 84 d3 aa 2d cd 3d ae 

lf41 B eb 69 f6 fB 62 c6 bS 96 le 

lf49 s 47 cl e9 4f 57 f3 89 a7 60 

lf31 s bl Bc 62 b6 ca c2 e8 fB dB 

lfS9 a 67 Be 60 c5 BB 7e b4 c6 b5 

lf61 a ad 7e d9 el 34 ec Bb 69 ab 

lf69 s f3 d5 9a db k 3c 77 f6 e5 

lf71 a 0b 06 76 4c bc 7b 16 43 2d 

lf79 a 2f le 39 df ee 03 06 31 B3 

lf81 a c3 0f df 31 74 77 d6 lc 80 

lf89 b 5c Sa ed e6 2f 27 79 b2 e2 
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R3 - Die Vektorgrafik - 
Erweiterung zum C 64 


Mit dieser Basic-Erweiterung wird der Anwender 
in die Lage versetzt, auch die Vektorrechnung für 
hochauflösende Grafiken einzusetzen. 

D as Programm »R3« erlaubt es dem Anwender, seinen 
C64 für Vektorrechnung zu verwenden. So können 
komplizierteste mathematische Probleme mit Hilfe von 
Matrizen relativ leicht gelöst und grafisch dargestellt werden. 
Da eine solche mathematische Erweiterung sehr kompliziert 
ist, wurde schon vor ziemlich langer Zeit mit der Entwicklung 
von R3 begonnen. 

Die ersten Vorstufen dieser Software liegen über ein Jahr 
zurück. Es folgte eine Evolutionsphase, während der sich das 
Programm samt Konzeption oft änderte. Dabei verdient 
besonders das Bildschirmkonzept stärkere Beachtung. Für 
den Programmierer ist es das günstigste, gleichzeitig Grafik 
und Text benutzen zu können. Auf sechs Textzeilen ist es 
deshalb möglich, im Direktmodus zu arbeiten, dabei Varia¬ 
blen, Vektoren und Matrizen ausgeben zu lassen, und viel¬ 
leicht im Basic-Programmspeicher stehende Unterpro¬ 
gramme mit Übergabeparametern aufzurufen. 

Darauf ausgerichtet ist auch die Grafikausgabe im oberen 
Bereich des Bildschirms. Es hätte eine Menge an Änderun¬ 
gen zur Folge, wollte man die Textzeilen abschalten, weil die 
Lösch- und die Zeichenroutinen speziell für den kleineren 
Grafik-Bildschirm entwickelt wurden. 

Im Gebrauch der sechs Textzeilen stellte sich heraus, daß 
häufig beim Listen und bei sonstigen Ausgaben 1 bis 3 Zeilen 
unnötigerweise nach oben verschwanden; die Mitteilung 
»READY.« verbraucht allein eine Zeile ohne große Aussage¬ 
kraft, denn wenn irgendwo noch ein Cursor blinkt, dann ist ja 
alles in Ordnung. 

Die Ausgabe des »READY.« wurde also nach Möglichkeit 
(nicht überall) unterdrückt, ebenso das Setzen des Cursors 
unter die letzte Zeile, das 1 bis 2 freie Zeilen schafft und 
ebenso viele oben hinauswirft. (Besonders wichtig bei uner¬ 
warteten Fehlermeldungen im Direktmodus, wo man das, was 
oben hinausgerutscht ist, neu schreiben muß, wenn man den 
Text noch weiß.) 

Einführung in die Vektorrechnung 


Der relativ geringe Befehlsumfang hängt mit der im Laufe 
der Perfektionierung sehr lang gewordenen Gleichungslese¬ 
routine zusammen. Immer wieder, wenn »R3« an die Grenzen 
des Speichers stieß, mußten unwichtige Unterprogramme 
gestrichen werden, denn auf die Vektor- und Matrizenrech¬ 
nung kam es an. Schließlich wurde noch wegen eines 
Geschwindigkeitsvorteils von etwa 50 Prozent auf eine wähl¬ 
bare Dimension verzichtet und das Programm auf drei Dimen¬ 
sionen festgelegt. Das ermöglichte übrigens erst die Vektor¬ 
kreuzmultiplikation und die Drehmatrix. 

Das Programm »R3« benötigt soviel Arbeitsspeicher, daß, 
auch wegen der Organisation der vier Grafikseiten, der 


gesamte Computer-Speicher beansprucht wird und der 
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Basic-Programmspeicher auf die Hälfte reduziert werden 
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Die folgende Einführung kann übergehen, wer sich mit Vek¬ 
toren auskennt. Es soll hier allen weniger Versierten an einem 
Beispiel die grundlegende Rechenweise erläutert werden. 
Ein Schatzplan könnte so lauten: Von der alten Eiche am 
Steinbruch 20 m nach Norden, 8 m nach Westen, 5 m tief 
graben. 

Wir notieren die Koordinaten N, W, U; Schatz = [20, 8, 5] 
und begeben uns dorthin. Nun müssen wir aber feststellen, 
daß das Graben durch eine Straße behindert wird. Um auf 
Umwegen das Ziel doch noch zu erreichen, gibt es Möglich¬ 
keiten und sie haben eines gemeinsam: Die Summe der 
Wegestücke in N-Richtung muß 20 sein, die Summe der 
W-Anteile 8 und die Tiefe 5 m. Dann wird waagerecht oder 
schräg die Straße untertunnelt, während Kompaß, Lot und 
Zollstock zur Koordinatenbestimmung dienen könnten. 

Solches Aneinandersetzen von Wegstücken ist Vektorad¬ 
dition. Vektorsubtraktion bedeutet nichts weiter als eine 
Addition des zu subtrahierenden Vektors in umgekehrter 
Richtung. 

Ebenso wie Addition funktioniert die Multiplikation mit einer 
Zahl: Der Vektor wird (Zahl)-mal aneinandergehängt bezie¬ 
hungsweise auf das (Zahl)-fache verlängert oder verkürzt. 

Mit diesen Angaben können auch Gegenstände beschrie¬ 
ben vverden, die irgendeine Ausdehnung haben, wobei die 
Ausdehnung mit »Weg« gleichgesetzt wird. Im folgenden ein 
Tip zum Aufbau von Gegenständen: 

Am einfachsten sind Strukturen nach dem rechtwinkligen 
Muster aufzubauen: 

A- = [10,0,0] : B- = [0,10,0] : C- = [0,0,10] 

Solche Grundelemente kann man durch Multiplikation mit 
irgendwelchen Faktoren und Addition übersichtlich kombi¬ 
nieren 

D- = P*A— + Q'B— + R’C— 

Mit dem zweiten Vektor 
E- = S*A— + T*B— + Üb¬ 
ergibt das Linie 

LINE D— , E— irgendwo im Raum. Dasselbe parallelverscho¬ 
ben woanders gezeichnet 
LINED- + F- , E- + F- 

Der Vektor F— kann wie D— und E— von Faktoren abhängen 
und somit die Linie D— , E— im Raum versetzen. Natürlich 
ist das nur eine von zahlreichen Möglichkeiten, ein Vorhaben 
anzufangen. Es soll aber zeigen, daß es ratsam ist, sich an ein 
(anfangs beliebiges) Konzept zu halten. 

Das Skalarprodukt ist die Summe der Produkte der Kompo¬ 
nenten. 

SK = A(1)B(1) + A(2)*B(2) + A(3)*B(3) 

entspricht 

SK = A- * B- 

Mit Hilfe der Skalarmultiplikation kann man die absolute 
Länge eines Vektors berechnen: 

L = SQR ( L— * L— ) Beweis: Pythagoras. 

Das Vektorkreuzprodukt ist der Physik sehr nützlich, es 
gibt zum Beispiel beim Hebel das Moment an, wenn Hebel 
und angebrachte Kraft in beliebige Richtungen zeigen. Eine 
bekannte Definition lautet 
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also 

K- = [A(2)B(3)-A(3)* B(2),A(3)* B(1)-A(1) * B(3), 

A(1)*B(2)-A(2)*B(1)] 

kürzer 

K- = A— X B— 

Das Vektorkreuzprodukt ist ein Vektor, der auf den multipli¬ 
zierten Vektoren senkrecht steht. Es ist am größten, wenn die 
Vektoren einen Winkel von 90 Grad bilden und Null, wenn sie 
in gleiche Richtung zeigen. 

Matrizen 


Eine Matrix ist die Zusammenfassung der Faktoren, wenn 
zwischen zwei Vektoren die folgende Beziehung gelten soll- 
Y(1)= A(1,1 )*X(1) + A(1,2)*X(2) + A(1,3)*X(3) 

Y(2)= A(2,1) * X( 1) + A(2,2)*X(2) + A(2,3)*X(3) 

Y(3)= A(3,1)*X(1) + A(3,2)*X(2) + A(3,3)*X(3) 

Die Matrix lautet dann 

A# = [A(1,1),A(1,2),A(1,3),A(2,1).A(3,3)] 

und die Kurzschreibweise der obigen drei Gleichunqen: 

Y— = A# * X- 

Werden die Matrizen untereinander multipliziert, so werden 
die Zeilen der einen Matrix wie Vektoren mit der anderen 
Matrix multipliziert, und die Ergebnisvektoren werden wieder 
zu einer Matrix zusammengestellt. 

Die in der Grafik vielseitige Drehmatrix hat folgende 
Bewandtnis: Wird ein Vektor A - um die X-Achse um den Win¬ 
kel P gedreht, so ist der gedrehte Vektor B-: 

B(1)= A(1) 

B(2)= A(2)*cos(P) + A(3)*sin (P) 

B(3)=-A(2)*sin (P) + A(3)*cos(P) 

Das ergibt nach der Definition der Matrix die Drehmatrix 
M# = [1,0,0,0,cos(P),sin(P),0,-sin(P),cos(P)] oder kurz: 
M# = @#X(P) 

Genauso funktionieren die Drehmatrizen und die Y- und die 
Z-Achse. 


Man kann Matrizen kippen, links unten nach rechts oben, 
Transponieren genannt, und invertieren. Das Invertieren ist 
eine umständliche Operation, die beim Umformen einer 
Vektor- oder Matrizengleichung das Hinüberbringen einer 
Matrix von einer Gleichungsseite auf die andere ermöglicht, 
da eine Division als Umkehrung der Multiplikation nicht mög¬ 
lich ist, also 

(eine Seite) * R # = (andere Seite) 
kommt gleich 

(eine Seite) = (andere Seite) * ( R# I) 

Das Verfahren zum Invertieren geht davon aus, daß das 
Produkt einer Matrix und ihrer Invertierten die sogenannte 
Einheitsmatrix ergibt, 


R# * R# I = 


1 00 
0 1 0 
00 1 


die auch als Drehmatrix bei einem Winkel von Null auftaucht, 
also nichts ändert. 

Was das Hebelmoment betrifft, wird man von dem Momen- 
tenvektor nur eine Komponente für die Drehung benötigen, 
da der drehbare Körper seine Drehachse eigentlich immer als 
Koordinatenachse hat (zum Beispiel ein Rad), und nur der 
Momentenanteil um diese Achse wirken kann. 

So, soviel zur Matrizen- und Vektorrechnung. Nun soll uns 
das eigentliche Programm interessieren. 


Räumliches Zeichnen 


Das Programm »R3« verarbeitet Gleichungen mit dreidimen¬ 
sionalen Vektor- und Matrizenvariablen von vergleichbarer 
Komplexität wie der Commodore-Interpreter und zeichnet 


räumlich. Nur, so viele Anwendungen es für Vektorrechnung 
gibt, in so vielen Schreibweisen und Vereinbarungen unter¬ 
scheiden sie sich. Bei dieser computerangepaßten Variante, 
die »—«für Vektoren und » # «für Matrizen benutzt sowie mit 
»$« Strings kennzeichnet, wird nicht zwischen Zeilen- und 
Spaltenvektoren unterschieden (das dürfte wohl nur Mathe¬ 
matiker stören): dafür unterscheiden sich die möglichen 
Arten, zwei Vektoren zu multiplizieren, durch das Verknüp¬ 
fungszeichen: 

»*« für skalare Multiplikation, ergibt das Skalarprodukt 
»X« für Vektorkreuzmultiplikation, ergibt das Vektorprodukt, 
einen zu den multiplizierten Vektoren senkrechten Vektor. 

Ebenfalls frei erfunden ist die Schreibweise für eine Dreh¬ 
matrix: 

@#X(Winkel) verwandelt der R3-Interpreter in eine 
Matrix, die, mit einem Vektor multipliziert, diesen Vektor um 
(Winkel) die X-Achse gedreht, zum Produkt hat. Analog 
@#Y(Winkel), @#Z(Winkel). 

Die Beispiele zeigen: Dies ist nicht die Vektorrechnung 
schlechthin, aber auf der Tastatur des Computers fanden 
sich plausible Zeichen zur Integrierung der neuen Parameter¬ 
typen in die Grundarithmetik. Dabei beschränken sich die 
Unterschiede zum Normal-Basic auf ein Minimum. »FNF(X)« 
darf in Gleichungen nicht Vorkommen, nur in LET-Statements 
und den anderen Basic-Kommandos, die keine R3-Elemente 
enthalten dürfen. Das Gleiche gilt für Stringfunktionen. Im 
übrigen funktioniert alles mathematisch Sinnvolle, zum Bei¬ 
spiel addiert man nur gleiche Parametertypen, und ein Klam¬ 
merausdruck als Argument einer Basic-Funktion stellt einen 
Skalar dar. 

Vektoren sind Parameter, die eine Größe mit Richtung 
beschreiben, wie zum Beispiel Koordinaten eines Punktes, 
seine Geschwindigkeit oder Beschleunigung oder eine Kraft 
(oder...); mit der Vereinbarung einer X-Achse nach rechts, 
einer Y-Achse nach oben und einer Z-Achse nach vorne, 
Schreibweise [x,y,z], ist die Erdbeschleunigung 
G- = [0,-9.81m/sec 2,0] 

Andere Parameter als Vektoren sind Skalare, Größen ohne 
Richtungen, das heißt Zahlen und numerische Variablen wie 
bisher. 

Dritte verwendete Parameterart sind Matrizen aus den Fak¬ 
toren linearer Gleichungssysteme, die zwischen den Koordi¬ 
naten zweier Vektoren eine Beziehung herstellen, beste¬ 
hende Blöcke, mit (im Dreidimensionalen) 3 Zeilen und 3 
Spalten, das heißt 

B(1) = M(1,1 )*A(1) + M(1,2)*A(2) + M(1,3)*A(3) und 
B(2) = M(2,1)*A(1) + M(2,2C*A(2) + M(2,3)*A(3) und 
B(3) = M(3,1) * A( 1) + M(3,2)*A(2).+ M(3,3)*A(3) 
entspricht 
B- = M# * A- 

Ein Beispiel 


Nach der Theorie wollen wir nun zur Praxis übergehen. In 
Listing 1 sehen Sie das MSE-Listing von R3, das nach dem 
Eintippen und Speichern mit »LOAD"R3",8« in den Compu¬ 
ter geladen wird. Der Start erfolgt mit »RUN«, worauf sich R3 
mit der Einschaltmeldung des C64 meldet. Lediglich das 
»READY.« fehlt, was auf die, schon erwähnte, unterschied¬ 
liche Bildschirmstruktur zurückzuführen ist. Wir wollen jetzt 
die Anwendung dieser leistungsfähigen Basic-Erweiterung 
Schritt für Schritt lernen. 

Dazu wird das Demo-Programm aus Listing 2 geladen und 
gestartet 

LOAD "RING",8 (Return) 

RUN (Return) 

Es wird jetzt viermal ein Ring gezeichnet, der sich anschlie¬ 
ßend dreht. Abbrechen läßt sich das mit Stop, der volle Text- 
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bildschirm erscheint wieder auf Stop/Restore. Zwei weitere, 
interessante Demonstrationsprogramme sind unter Listing 3 
und 4 abgedruckt. 

Für Vektoren und Matrizen kommen reguläre Arrays zum 
Einsatz, der erste Gebrauch eines Vektors XY— veranlaßt 
automatisch ein DIM XY (3), für eine Matrix XY # ein DIM XY 
(3,3). Um von Null verschiedene Zahlen hineinzubekommen, 
kann man schreiben: 

(1) XY(1) = 7 
XY(2) = 16.2 
XY(3) = 5 

(2) XY- = [7,16.2,5] 
beziehungsweise 

XY(1,1) = 12 
XY(1,2) = 26 


XY(3,3) = 4 
oder 

XY# = [12,26,6,1.5.4] 

Zur Schreibweise arithmetischer Gleichungen ist zu ergän¬ 
zen: 

Links vom Gleichheitszeichen kann eine skalare, eine vek¬ 
torielle oder eine Matrizenvariable stehen. Stimmt der Para¬ 
metertyp des Ergebnisses der rechten Seite mit dem der lin¬ 
ken nicht überein, folgt eine Fehlermeldung. 

Die Auswirkungen der einzelnen Rechenoperationen auf 
die verschiedenen Operandenkombinationen macht eine 
Liste deutlich: 


Operation 

Operanden 

Ergebnis 


gleiche Operanden 

auch gleich 

• 

Skalar 

• 

Skalar 

Skalar 


Skalar 

* 

Vektor 

Vektor 


Skalar 

• 

Matrix 

Matrix 


Vektor 

• 

Skalar 

Vektor 


Vektor 

• 

Vektor 

Skalar 


Vektor 

• 

Matrix 

Vektor 


Matrix 

• 

Skalar 

Matrix 


Matrix 

* 

Vektor 

Vektor 


Matrix 

* 

Matrix 

Matrix 

X 

Vektor 

X 

Vektor 

Vektor 

/ 

Skalar 

/ 

Skalar 

Skalar 


Vektor 

/ 

Skalar 

Vektor 


Matrix 

/ 

Skalar 

Matrix 


Skalar 


Skalar 

Skalar 


Weitere Operationen mit einem Operanden, nämlich mit 

Matrizen, sind im folgenden: 

T Transportieren: Die Matrix wird an der Diagonalen nach 
rechts unten (Hauptdiagonale) gespiegelt. 

I Invertieren: Das Produkt einer Matrix und ihrer Invertier¬ 
ten ist eine, die aus Einsen auf der Hauptdiagonalen und 
sonst nur Nullen besteht. Wenn man einen Vektor oder 
eine Matrix damit multipliziert, bleibt der Vektor oder die 
Matrix identisch erhalten. Eine Multiplikation mit einer 
invertierten Matrix entspricht einer Division, die durch 
eine Matrix eigentlich nicht definiert ist. 

Der Befehlssatz von R3 


GRAF2 

schaltet Grafik ein mit HiRes-Bereich 
$2000 

GRAF6 

siehe oben $6000 

GRAFA 

siehe oben $A000 

GRAFE 

siehe oben $E000 

Im Grafikmodus funktioniert LOAD, 
SAVE und ähnliches nicht. 


schaltet wieder auf vollen Textbild¬ 
schirm und ermöglicht File-Operatio¬ 
nen (Floppy, Drucker) 
löscht den Grafik-Bildschirm 
zeichnet auf den Bildschirm einen 
Punkt als perspektivische Projektion 
der Koordinaten. 

Ist die dritte Koordinate Z = 0, so 
reicht der Bildschirm von -158 bis 158 
in X-Richtung und von -71 bis 79 in Y- 
Richtung. Darunter befindet sich ein 6 
Zeilen langes Textfenster, 
zeichnet eine Linie zwischen den 
Punkten, oder das, was davon im 
Sichtbereich liegt. 

Da Vektor- oder Matrizenvariablen nicht mit dem PRINT- 
Befehl ausgegeben werden können, ist das entsprechende 
Kommando die Angabe des Parameters und sonst nichts als 
ein Statement, zum Beispiel 

G— (Return) im Direktmodus, beziehungsweise in einem 
Programm: 

10 G- :REM VEKTOR G 

Die Funktion RND(X) überschneidet sich mit R3 im 
Gebrauch von Zeropage-Speicherstellen und darf nicht 
benutzt werden. Indem aber Stimme 3 des SID bei Grafik 
stumm auf Rauschen geschaltet ist, läßt sich durch 
PEEK(54299) eine Zufalls-Integer-Zahl zwischen 0 und 255 
generieren. 

Eine besondere Syntax hat die Drehmatrix: 

@ #X(Winkel) stellt eine Matrix dar, die bei Multiplikation mit 
einem Vektor diesen um (Winkel) um die X-Achse dreht, 
@#Y(Winkel), @#Z(Winkel) entsprechend um die Y- und 
Z-Achse. 

C_. mehreren Drehungen um verschiedene Achsen nach¬ 
einander bedeutet jede neue Multiplikation mit einer Drehma¬ 
trix eine neue Drehung im absoluten Koordinatensystem und 
verdreht das vorige Bezugssystem. Als Beispiel sei hier auf 
das Demo-Programm »RING« aus Listing 2 verwiesen. 

Der Radius vom Mittelpunkt sei der Vektor 
RI- = [50,0,0] 

Der Radius der Oberfläche von der Mittellinie sei 
RA- = [10,0,0] 

Der kleine Vektor sei um die Z-Achse um den Winkel I 
gedreht, am großen Vektor befestigt und alles zusammen 
werde um J um die Y-Achse gedreht: 

R- = (RA- * #Z(I) + RI — ) * #Y(J) 

Um den Ring, der noch nach den absoluten Achsen ausge¬ 
richtet ist, im Raum zu kippen, multipliziere man R— noch mit 
einer vorbereiteten Konstanten Drehmatrix M #, die aus 

M# = @#X(pi/3) * @#Y(pi/2) entsteht. 

Anmerkung: Bekanntlich führen viele Wege nach Rom, und 
wer eine andere Vorgehensweise bevorzugen würde, wird 
unter den Möglichkeiten, die R3 bietet, seine Methode fin¬ 
den. 

Zum Beispiel bietet es sich an, zu fertig berechneten Vek¬ 
toren zum Zeichen noch einen unveränderlichen Vektor hin¬ 
zuzuaddieren, damit die Entfernung und Position des Objek¬ 
tes durch Festlegen auf Größe und Zweck abgestimmt wer¬ 
den kann. 

Die grafische Abbildung entsteht durch geschachtelte l,J- 
Schleifen in Verbindung mit dem LINE-Befehl, der zwei Koor¬ 
dinaten vom Mittelpunkt aus im Bildschirmraum miteinander 
verbindet, oder den PLOT-Befehl, der nur einen Punkt setzt. 

Eine Befehlslösung für das Problem von verdeckten Linien: 
Zu jedem Paar l,J berechne man Punkte für l,J, und jeweils für 
das nächste I und das nächste J. Die Differenzen zwischen 
diesen Vektoren sind welche, die auf der Oberfläche des Rin¬ 
ges liegen, das Kreuzprodukt aus den Differenzen steht also 
senkrecht darauf. Wenn man dieses Kreuzprodukt noch mit 


Stop/Restore 

CLEAR 

PLOT-Vektor 

LINE Vektor,Vektor 




SONDERHEFT 6/86 


89 








GRAFIK-ERWEITERUNG 


C 64 


der Richtung zum Betrachter skalar multipliziert, ist das 
Ergebnis nur positiv, wenn das betreffende Oberflächen¬ 
stück zum Betrachter hinzeigt. Andernfalls sollen dann die 
LINE-Befehle, die das Oberflächenstück bilden, übersprun¬ 
gen werden. 

SK = (RI - - R2-) X (RI - - R3-) * (RI - - BT—) 

Der Standpunkt des Betrachters liegt im Programm R3 fest, 
BT— = [0,0,-300] ist der Vektor, der auf ihn zeigt. 

Die Arbeitsweise von R3 


Das Maschinenprogramm R3 belegt den Speicherbereich 
von $8000 bis $A000 und von $0000 bis $D000. Da es am 
Anfang eine Modul-Kennung besitzt, läßt es sich mit Reset 
oder »SYS 64738« wieder starten (das allererste Mal erfolgt 
das Starten mit »RUN«). Dabei wird die Speicherobergrenze 
nach $4400 heruntergelegt und der R3-Interpreter in den 
Basic-Interpreter eingekoppelt. 

Der Interpreterteil ist die Speicherzentrale; das erste Zei¬ 
chen eines Statements wird geprüft, ob es ein Basic-Token 
ist, falls ja, macht der Commodore-Interpreter weiter. 
Andernfalls handelt es sich entweder um einen Befehl in 
Buchstaben (vier Buchstaben sind signifikant) oder um eine 
Gleichung. Eine Gleichung wird nun verarbeitet, indem in 
sinnvoller Reihenfolge Operationszeichen und Parameter, 
also Variablen, Klammern, Zahlen, Basic-Funktionen (außer 
FNF(X) und RND(X)) erwartet werden. 

Im zweiten Teil warten die verschiedenen Rechen- 
Subroutinen darauf, vom Interpreter aufgerufen zu werden, 
um zwei Parameter miteinanderzu verknüpfen. Dazu werden 
außer den Parametern Kennzeichnungsbytes (Skalar, Vek¬ 
tor, Matrix) mit übergeben, nach denen je nach Verknüp¬ 
fungszeichen verschiedene Algorithmen angesteuert oder 
verbotene Kombinationen, wie Skalar/Vektor, mit einer Feh¬ 
lermeldung beantwortet werden. 

Fand der Interpreter einen 4-Buchstaben-Befehl, so ver¬ 
zweigt er in eine der Subroutinen im dritten Teil: 
GRAF2/6/A/E, CLEAR, PLOT, UNE. Die Kommandos PLOT 
und LINE rufen einen Teil des Interpreters auf, der durch ein 
Flag vorübergehend zum Unterprogramm umfunktioniert 
wird und einen Ausdruck auswertet (vom Rang Vektor). 

Haben diese Unterprogramme ihre Arbeit beendet, so 
springt der Interpreter mit einem String zurück zum 
Commodore-Betriebssystem. 

Bei der Speicheradresse $4800 beginnt die R3-interne 
Parametertabelle für Zwischenergebnisse, Zähler und 


$0000 

Zeropage u. a. 

$0400 

Text- beziehungsweise Fsrbspeichei bei 
GRAF2 

$0800 

Basic-Programmspelcher 

$2000 

$4000 

Hires-map GRAF 2 

$4400 

Ende Baslcspelcher/Farbe GRAF6 

$4800 

Beginn R3-Arbeitsapelcher 

$6000 

Hlres-Map GRAF6 

$8000 

Anlang Programm R3 

$8400 

Farbapelcher GRAFA 

$8800 

weiter Programm R3 

$AOOO 

Hires-Map GRAFA 
gleichzeitig Basic-ROM 

$COOO 

Fortsetzung Programm R3 

$C400 

Farbapelcher GRAFE 

$C600 

weiter Programm R3 

$0000 

VIC-Adreßberelch 

SE000 

Hires-Map GRAFE 
gleichzeitig Kernel-ROM 


Bild 1. Hier sehen Sie die von »R3« verwendeten Adressen 
im C64 


Sprungadressen. Weiter beginnt bei $4E00 ein Stack für 
Zwischenergebnisse, der bei Klammern und der Prioritäts¬ 
regel Punkt- vor-Strich-Rechnung sehr lang werden kann. In 
der Regel beschränkt sich dieser Stack darauf, unter $6000 
zu bleiben. Dort würde er sonst die Grafik beeinträchtigen, 
wie ein zu langes Basic-Programm die HiRes-Grafik bei 
$2000 nicht verträgt. (Abhilfe: notfalls GRAF2 beziehungs¬ 
weise GRAF6 nicht benutzen.) 

Bei der Verteilung der Speicherbereiche für Parameter und 
Programm war noch zu berücksichtigen, daß jeder der vier 
Grafikmodi auch einen Speicherbereich für die Farbe benö¬ 
tigt; die Speicheraufteilung von »R3« zeigt Tabelle 1. In 
Tabelle 2 sind die wichtigsten Programmteile aufgeführt. 

(U. Flügge/ks) 


Die allerwichtigsten Programmtelle 

$8009 

RSTAST 

Einsprung für Reset 

$8040 

RSET 

Einsprung IQr Stop/Restore 

$8105 

INTROU 

Inlerruptroutine lür GrallK + Text-Bildschirm 

$8236 

NEUWARM 

Neuer Warmstart ohne READY. 

$827B 

NTIN 

In $0308/0309 eingestellter Vektor zur 
Ausdrucksauswertung 

$83A3 

ELEM 

holt eine Zahl aus einem Feld (Array) 

$881A 

DINP 

liest ein Array In eckigen Klammern ein 

$8979 

WAHO 

holt die Anfangsadresse eines Parameters 

$8B1F 

KLAMM 

macht aus dem Inhalt einer Klammer einen 
Parameter 

$8DB9 

DRA 

führt Transponieren, Invertieren und Rsten- 
zleren sofort durch, da vorrangig 

$8EF2 

SKAL.MArR.VEKT 

Einsprung nach Ergebnistyp zum Auflösen 
einer Gleichung 

S8F4C 

AUSDR 

berechnet für PLOT und LINE einen Vektor¬ 
ausdruck 

$9204 

AU SG 

Ausgabe eines Parameters 

$92^ 

COPY 

überträgt Werte 

$9322 

TRANS 

transponiert Matrizen 

$935C 

ADDI 

addiert und subtrahiert Parameter 

$93C9 

MULTI 

Multiplikation aller Kombinationen 

$93F7 

MM1M2 

Multiplikation zweier Matrizen 

$86B7 

MV1V2 

Multiplikation zweier Vektoren skalar 

$9726 

MVVV 

Multiplikation zweier Vektoren vektoriell 

$98C9 

MV1M2 

Multiplikation Vektor mal Matrix 

$9953 

INV 

Inverse einer Matrix 

$9037 

MM1V2 

Multiplikation Matrix mal Vektor 

$9DAA 

DIVIS 

Division durch einen Skalar 

$9E50 

ROTAT 

bildet eine Drehmatrix 

$C08C 

UNE 

zeichnet Unten 

$CD1B 

PLOT 

zeichnet Punkte 

$CE96 

CLEA 

löscht Grallkblldschlrm 

$CEE1 

GRAF1 

schaltet Grafik ein oder um 

$CF60 

POTNZ 

potenziert Skalar mit Skalar 

Auswahl wichtiger Parameter 


$4800 

U 

Anfang Arbeitsspeicher 

U + 11 

ERGART 

Typ des Ergebnisses 

U+12 

VARART 

Typ des Parameters Im Unterprogramm 

WAHO 

U+13 

VARART1 

Typ des ersten Operanden 

U+14 

VARART2 

Typ des zweiten Operanden 

U+31 

ERG 

Adresse des Ergebnisses 

U+33 

MAI 

Adresse des ersten Operanden, dann Stack 

U+47 

MA2 

Adresse des zweiten Operanden, 
dann Stack 

U+187 

PRIO 

Flag für Priorität Punkt- vor Sfrlchrechnung 

U + 201 

KLAMEB 

Schachteltiele von Klammern 

U+457 

XI 

nach PLOT- und LINE-Befehl sind hier 

U + 462 

Y1 

die auf Z-0 projizierten und auf den 

U + 472 

X2 

Bildschirm begrenzten Koordinaten Im 

U+477 

Y2 

5-Byte-Speicherformat zu finden (eventuell 
interessant lür Plotterbesitzer) 

U+547 

ZERG 

Zähler für Zwlschenergebnis-Array-Stack 


Bild 2. Die wichtigsten Systemadressen von »R3« 
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name 


r3 





0801 

2fe4 

0801 


le 

08 

c 1 

07 

9e 

20 

28 

32 

65 

0809 

: 

30 

38 

35 

29 

20 

43 

4f 

4d 

bc 

0811 

: 

50 

41 

43 

54 

20 

46 

43 

31 

01 

0819 

: 

ad 

4d 

54 

42 

00 

00 

00 

00 

ca 

0821 


B0 

00 

00 

00 

20 

53 

e4 

a2 

97 

0829 

s 

0B 

bd 

7e 

08 

9d 

3c 

03 

e8 

42 

0831 

: 

e0 

c0 

dB 

f 5 

a9 

36 

85 

01 

c8 

0839 

: 

Bd 

20 

d0 

a9 

00 

a2 

dB 

B5 

a3 

0841 

: 

■f b 

86 

fc 

a5 

2d 

a6 

2e 

85 

3f 

0849 

: 

i d 

86 

fe 

a0 

00 

fB 

04 

bl 

5B 

0851 

: 

fd 

91 

fb 

a9 

f 2 

a2 

08 

e4 

79 

0859 


fe 

dB 

02 

c5 

fd 

f0 

13 

a5 

fB 

0861 

: 

fd 

dB 

02 

c6 

fe 

c6 

fd 

a5 

B9 

0869 

: 

f b 

d0 

02 

c6 

fc 

c6 

fb 

4c 

b4 

0871 

: 

50 

08 

a9 

bi 

a2 

08 

B5 

2d 

2b 

0879 

: 

86 

2e 

4c 

3c 

03 

20 

9a 

03 

53 

0881 

: 

c9 

cf 

dB 

11 

20 

9a 

03 

C9 

ff 

0889 

: 

00 

dB 

04 

a9 

cf 

dB 

lc 

aa 

71 

0891 

: 

a9 

00 

4c 

83 

03 

c9 

bf 

dB 

dd 

0899 

: 

12 

20 

9a 

03 

c9 

00 

dB 

04 

aa 

BBal 

3 

a9 

bi 

dB 

07 

aa 

20 

9 a 

03 

5b 

08a9 

3 

4c 

83 

03 

20 

a5 

03 

a9 

00 

95 

08b 1 

3 

a2 

dB 

e4 

fc 

d0 

02 

c5 

fb 

C0 

08b9 


dB 

c3 

a9 

37 

85 

01 

20 

59 

50 

08c 1 

3 

a6 

4c 

ae 

a7 

eB 

a0 

00 

91 

e5 

08c 9 

3 

2d 

cB 

ca 

dB 

fa 

BB 

9B 

38 

ee 

08dl 

3 

65 

2d 

85 

2d 

90 

02 

e6 

2e 

e5 

08d9 


4c 

6d 

03 

30 

00 

bl 

fb 

e6 

fc 

BBel 


fb 

dB 

02 

e6 

i c 

60 

a0 

00 

f 7 

08e9 


91 

2d 

e6 

2d 

d0 

02 

e6 

2e 

85 

08f 1 

3 

60 

0d 

08 

0a 

00 

9e 

28 

32 

15 

08f 9 

3 

30 

36 

34 

29 

cf 

03 

78 

a0 

af 

0901 


00 

84 

04 

a9 

50 

B5 

02 

a9 

06 

0909 


08 

85 

03 

a9 

80 

85 

05 

bl 

75 

0911 

3 

02 

91 

04 

cB 

dB 

f 9 

e6 

03 

74 

0919 


e6 

05 

a5 

05 

c9 

a0 

dB 

ef 

51 

0921 

3 

a9 

C0 

85 

05 

bl 

02 

91 

04 

a6 

0929 


c8 

dB 

f 9 

e6 

03 

e6 

05 

a5 

7b 

0931 

3 

05 

c9 

dB 

dB 

ei 

58 

4c 

e2 

22 

0939 

: 

f c 

cf 

04 

09 

80 

40 

80 

c3 

d3 

0941 

3 

c2 

cd 

38 

30 

8e 

16 

d0 

20 

lb 

0949 


a3 

■fd 

20 

50 

fd 

20 

15 

fd 

2e 

0951 


20 

5b 

ff 

58 

20 

53 

e4 

20 

9a 

0959 


a0 

81 

20 

bf 

00 

e3 

20 

be 

d7 

0961 

3 

81 

20 

22 

e4 

a2 

fb 

9a 

dB 

2e 

0969 


0B 

4c 

a2 

e3 

20 

cc 

ff 

a9 

7e 

0971 


00 

85 

13 

20 

7a 

a6 

58 

a 2 

80 

0979 


80 

4c 

36 

82 

20 

bc 

f 6 

20 

01 

0981 


el 

ii 

dB 

0 c 

20 

15 

fd 

20 

fa 

0989 


a3 

fd 

20 

18 

e5 

4c 

30 

80 

b8 

0991 

3 

4c 

72 

fe 

89 

48 

00 

00 

00 

Bc 

0999 

3 

89 

96 

00 

00 

00 

87 

le 

00 

22 

09a 1 


00 

00 

88 

lf 

00 

00 

00 

B7 

b6 

09a9 


20 

00 

00 

00 

88 

20 

00 

00 

53 

09b 1 

3 

B0 

63 

09 

70 

5f 

42 

81 

80 

c2 

09b9 


cf 

03 

4b 

00 

4b 

bb 

4c 

80 

d4 

09c 1 

3 

4c 

00 

4d 

80 

4d 

10 

lb 

cd 

ce 

09c9 

3 

8e 

C0 

96 

ce 

el 

ce 

50 

4c 

a5 

09dl 


4f 

54 

4c 

49 

4e 

45 

43 

4c 

3b 

09d9 

3 

45 

41 

47 

52 

41 

46 

00 

05 

2b 

09el 

3 

41 

52 

49 

54 

48 

4d 

45 

54 

d5 

09e9 


49 

c3 

44 

49 

cd 

41 

52 

52 

23 

09f 1 

3 

41 

59 

20 

4d 

49 

53 

4d 

41 

77 

09f 9 

3 

54 

43 

c8 

53 

49 

4e 

47 

55 

5a 

0a01 

3 

4c 

41 

52 

20 

4d 

41 

54 

52 

5b 

0a09 

3 

49 

d8 

20 

a3 

83 

a5 

ac 

a4 

9c 

0a 11 

S 

ad 

4c 

a2 

bb 

20 

a3 

83 

a5 

7d 

0al9 

3 

ac 

a4 

ad 

85 

49 

84 

4a 

4c 

ae 

0a21 

3 

d0 

bb 

a9 

00 

8d 

20 

dB 

8d 

71 

0a29 

3 

04 

d4 

8d 

0b 

d4 

a2 

08 

Be 

fc 

0a31 

3 

ii 

d4 

a2 

f0 

8e 

14 

d4 

a2 

95 

0a39 

3 

Bf 

Be 

18 

d4 

a0 

81 

8c 

12 

lc 

0a41 

3 

d4 

Bd 

0B 

d4 

Be 

0f 

d4 

a9 

02 

0a49 

3 

3b 

Bd 

n 

dB 

a9 

18 

Bd 

18 

6b 

0a51 

3 

dB 

dB 

2 e 

00 

01 

02 

03 

05 

4b 

0a59 

3 

06 

07 

08 

0 a 

0b 

0c 

0d 

0f 

8a 

0a61 

1 

10 

11 

12 

14 

15 

16 

17 

19 

92 

0a69 

3 

la 

lb 

lc 

le 

lf 

00 

40 

80 

dB 

0a71 

3 

C0 

01 

02 

04 

08 

10 

20 

40 

b5 

0a79 

3 

80 

cf 

04 

20 

00 

04 

a2 

02 

95 

0aBl 

3 

ad 

46 

Bl 

05 

fe 

a0 

00 

84 

60 

0aB9 

3 

fd 

84 

97 

ad 

Bb 

80 

91 

fd 

63 

0a91 

3 

cB 

c4 

97 

d0 

i 9 

e6 

fe 

ca 

24 

0a99 

3 

f0 

04 

10 

i 2 
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Llsting 1. 

»R3« (Schluß) 





1 REM RING 

<255> 


1 REM GLOBUS 

< 179> 

1(3 

BT«-=[0,0,-3003:RA«-=r-B0,0,03:RI«-=[-20,0 



5 PS=£/18 : A«-= [700,0,03: R#=@#Z (i/9) *@#X (-.£/ 



,03:DX=i/12: PS=i/6: M#=@#Y (PS) *@ttX C—PS) 

<079> 


3): REM A «-=R AD I US, R#=LAGE 

<042> 

20 

E«-=[0,10,1003:GRAF2:GOSUB 30:GRAF6:GOSU 

t 


10 

O«-=[0,0, -7003: Q«-=0«-*l. 5: E«-=[100,—450,12 



B 30:GRAFA:GOSUB 30:GRAFE:GOSUB 30:GOTO 




003: REM 0«-,Q «-= ACHSE ,E*-=POST ION MITPKT 

< 174> 


100 

<070> 


15 

BT«-=[0,0,-3003:REM POS D BETRACHTERS 

<116> 

30 

CLEA:FOR I=U TO 2*±STEP DX;V#=@SYCI):VE 



20 

GRAF2-. GOSUB 30: GRAF6: GOSUB 30: GRAFA: GOS 



#=@#Y(I+DX> 

<208 > 



I IB 30: GRAFE: GOSUB 30: GOTO 100: REM 4 ZCH 


40 

FOR J=0 TO 2*JSTEP PS:W#=@#Z(J):WE#=@#Z 

546R O 

1U 

nw» 

IGN 

<196> 


CJ+PS) 

<138> 


30 

CLEAR:R#=R#*@#Z(PS/4>:REM GEDREHT 

<191> 

50 

X«-= (RA*-«RI«-*W#) *V#*M#+Ef-: Y«-= (RA<-+RI «-»W# 



35 

LINEQ*-«R#+E<-,0*-»R#+E«-:REM ACHSE 

<236> 


> *VE#*M#+E«-: Z«-= (RA*-+RIf-*WE#> *V#*M#+E«- 

<113> 


40 

FOR I=—i/2+lE—7 TO 0 STEP PS:FOR J=0 TO 


60 

Wk= (RA<-+R I «-*WE# > *VE#*M#+E«- 

<040> 



6.2 STEP PS:REM LAENGEN- UND BREITENEI 


80 

F= <Y«—X»-) X (Z«—X«-> * (X*—BT«-) : IF F<0 THEN 




NTEILUNG 

<093> 


95 

<222> 


50 

U#=@#Y(I):V#=@HZ<J>:UN#=«tY(I+PS):VN#=@ 


90 

LINEX, Y«-: LINEX f-, ZLI NEYf-, W«-: LINEZ f-, W«- 

<18B> 



#Z(J+PS):REM FUER VIER PUNKTE 

< 114> 

95 

NEXT:NEXT:U=U+DX/4:RETURN 

<009> 


60 

X «-=A«-*U#*V#*R#+E*-: Y«-=A«-*UN#*V#*R#+E»-: Z f- 


100 GOSUB 110:GR AF2:GOSUB 110:6RAF6:GOSUB 




=A«-»U#*VN#*R#+E«-:K«-=A»-*UN#*VN#*R#+E«- 

<253> 


110:GRAFA:GOSUB 110:GRAFE:GOTO 100 

<180> 


70 

F=( <Y«—X«-) X (Z«—X«-> )*(X*—BT«-): IF F>0 THE 


110 FQR 1=0 TO 2B:NEXT:RETURN 

<160> 



N 90:REM UNSICHTBAR 

<048> 





B0 

LINEX*-, Yf-: LINEX«-, Z«-: LINEY«-,K«-: LINEZ«-,K«- 

<043> 





90 

NEXT:NEXT:RETURN 

<071> 





100 GRAF2:GOSUB 110:GRAFE:GOSUB 110:GRAFA: 







GOSUB 110:GRAF6:GOSUB 111:GOTO 100: FI 







LM 

<069> 





110 FOR 1=0 TO 33:NEXT:RETURN 

<027> 


Listing 2. Das Demo-Programm »Ring« erzeugt eine 


111 FOR 1=0 TO 29:NEXT:RETURN 

< 162> 


beeindruckende Grafik auf dem Bildschirm 



Llsting 3. »Globus« zeichnet den Teil eines Netzglobus 


1 REM ALLEE 

< 137> 

: 

<054> 

2 RTt*=e#Z(i/B) :RD«-= [0,60,0 3: R«-=RD«- 
4 L«-= [0,0, B030 3 : ST«-= [—260,0,03: SH*-= [0,180, 

<023> 

55 MITTELLINIE UND BAEUME 

60 RS«-=RS«—DL«-: RT*-=RT«—DL«-: RU*-=RU«—DL«-: LIN 

<015> 

0 3:SD«-=2««ST«- 

<020> 

ERS«-,RS«-+1.3*DL«-: L INERT«-, RT «-«1.3*DL«- 

< 186> 

5 DL«-=[0,0,1603:RT«-=[—Bl.5,-82,03:RU«-= [—7B 


70 LINERU«-,RU*-+1.3*DL«- 

<214> 

.5,-82,03 

<225> 

76 LINERS«-«ST«-,RS«-«ST«-«SH«-:LINERS«— ST«-,RS«- 


10 RS«-= [—80,—82,03:RV*-=[—162,0,03 

<062> 

—ST «-+SH«- 

< 136> 

20 E«-=[0,0,1E203: GRAF2: GOSUB 30: GRAF6:GOSU 
B 30:GRAFA:GOSUB 30:GRAFE:GOSUB 30:GOTO 


80 X«-=RS«—ST*-«SH«-«RD«-: GOSUB 90: RETURN 

90 FOR K=0 TO 15: RF«-=R«-: R«-=R*-*RT#: LINERF«-+ 

<126> 

40: 

< 104> 

X«-,R*-«X«-: LINERF*-+X«-+SD«-,R«-«X«-«SD*-: NEXT: 


25 H OR IZ ON T UND STRASSENRA END ER 

< 150> 

RETURN 

<077> 

30 CLEA: LINERV«-, -RV«-: LINERS*-«RV«-, RS*-+RV«-+E 


95 FILM 

<047> 

«-: LI NERS«—RV«-, RS«—RV«-+E«-: RETURN 

<101> 

100 GOSUB 111:GRAF2:GOSUB 110:GRAF6:GOSUB 


40 RT«-=RT<-«Lt-: RS*-=RS*-«-L«-: RU«-=RU«-+L*-: FOR 1= 


110:GRAFA:GOSUB 110:GRAFE:GOTO 100 

<212> 

0 TO 12 

<019> 

110 FOR 1=0 TO 46:NEXT:RETURN 

<159> 

50 GRAF2:GOSUB 60:GRAF6:GOSUB 60:GRAFA:GOS 
UB 60:GRAFE:GOSUB 60:NEXT:GOTO 100 


111 FOR 1=0 TO 42:NEXT:RETURN 

< 156> 

Listing 4. Dieses kleine Demo-Programm zeigt die 

Möglichkeiten, die einem unter »R3« offenstehen 
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GRAFIKERWEITERUNG 


Die Basic- 
Erweiterung für den 
C64, die in Sachen 
Geschwindigkeit 
völlig neue 
Maßstäbe setzt. 

Die 

schnellste Grafikerweife 
rang für denC64 



F ür alle Fans von hochauflösenden Grafiken auf dem C 64 
bietet diese extrem schnelle Grafikerweiterung eine 
neue Alternative. Sie enthält die schnellsten Grafik-Rou¬ 
tinen, die uns bisher in einer Basic-Erweiterung unter die 
Augen gekommen sind und bietet dem Basic-Programmierer 
so eine Fülle von neuen Möglichkeiten. Die Grafik in Bild 1 
wird beispielsweise in weniger als 2 Sekunden aufgebaut. 
Auch das Bild oben zeigt eine sehr schöne Grafik, die mit der 
High-Speed-Grafikerweiterung erstellt wurde. 

Bei der High-Speed-Grafikerweiterung handelt es sich um 
eine Basic-Erweiterung, die auf einem extrem schnellen 
Algorithmus für das Zeichnen einer Linie aufbaut (ein Algo¬ 
rithmus ist ein programmtechnischer Lösungsweg für ein 
mathematisches Problem). Dieser Weg wurde unter ande¬ 
rem auch in der 64’er-Ausgabe 4/1984, Seite 65 (»schneller 
Drawline-Algorithmus«) aufgezeigt und stellt die schnellste, 
derzeit bekannte Methode für das Zeichnen einer Linie zwi¬ 
schen zwei Punkten dar. 

Der in der High-Speed-Grafikerweiterung verwendete 
Algorithmus erlaubt das Ziehen von Linien mit einer 
Geschwindigkeit von fast 12000 Punkten pro Sekunde. Das 
entspricht einer Zeit von weniger als 90 Mikrosekunden für 
das Setzen eines Punktes und erlaubt somit das Zeichnen 
einer Linie ohne sichtbare Verzögerung. 

Wichtig im Zusammenhang mit der Grafikerweiterung ist 
jedoch die Tatsache, daß nur im hochauflösenden Grafikmo¬ 
dus und nicht im Multicolor-Modus gearbeitet werden kann. 
Das Programm eignet sich also hervorragend für »ernsthafte« 
Anwendungen, in der zeitkritische Problemlösungen gefragt 
sind. 

Nun aber zum Programm selbst. Es belegt im Computer 
den Speicherbereich von $9000 bis $9C60 (36864 bis 
40032). Insgesamt wird mit zwei Grafikbildschirmen gear¬ 
beitet, zwischen denen beliebig hin- und hergeschaltet wer¬ 
den kann. Sie belegen den Bereich ab $A000 bis $BFFF und 
$E000 bis $FFFF. Die zugehörigen Farbspeicher liegen 


dazu q» $8C00 und ab $CC00. Da zwei Farbspeicher ver¬ 
wendet werden, entfällt das lästige und zeitraubende 
»Umschaufeln« von Farbwerten, was wiederum einen 
Geschwindigkeitsvorteil bringt. Durch das geschickte 
Umschalten zwischen beiden Grafikbildschirmen können 
nämlich absolut flimmerfreie, bewegte Grafiken auch in Basic 
erstellt werden. 

Wenn Sie sich die Verteilung der Speicherbereiche anse- 
hen, werden Sie feststellen, daß immerhin noch 33 KByte 
Speicher für eigene Basic-Programme freibleiben. 

Nach dem Abtippen der High-Speed-Grafikerweiterung 
(Listing 1) mit dem MSE wird das Programm mit dem Namen 
»HSG-W« auf einer Diskette gespeichert. Sinngemäß kann es 
anschließend wieder mit »LOAD "HSG-W",8,1. in den Compu¬ 
ter geladen werden. Anschließend erfolgt der Start mit »SYS 
9*4096« oder »SYS 36864«, wobei vorher noch der Befehl 
< NEW > einzugeben ist, damit die Basic-Zeiger wieder her¬ 
gestellt werden. Ansonsten ist früher oder später ein »?OUT 
OF MEMORY ERROR« die Folge. 

Nach der Einschaltmeldung der Erweiterung steht Ihnen 
sofort ein sehr leistungsfähiger Befehlssatz zur Verfügung. 
Wird das Grafikpaket von einem Basic-Programm nachgela¬ 
den, so unterbleibt die Einschaltmeldung, und der Befehls¬ 
satz steht direkt zur Verfügung. Beim Starten der Erweiterung 
werden automatisch alle beiden Grafikbildschirme gelöscht 
und die Hintergrundfarbe auf Schwarz gesetzt. Die Vorder¬ 
grundfarbe, also die Farbe der gezeichneten Figuren, steht 
dann auf Weiß. 

Im folgenden sei nun der neue Befehlssatz der High- 
Speed-Grafikerweiterung beschrieben. Das Kennzeichen 
der erweiterten Befehle ist das Pfundzeichen (’£’), das jedem 
Befehlsbuchstaben vorangestellt ist. Eine Besonderheit der 
Befehlserweiterung sei an dieser Stelle auch gleich erwähnt: 
Wird ein Grafikbefehl in einer IF-THEN-Unterscheidung benö¬ 
tigt, so muß zwischen dem Befehl »THEN« und dem Grafikbe¬ 
fehl ein Doppelpunkt <: > gesetzt werden. 
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GRAFIK-ERWEITERUNG 


Für die Befehlserklärung vorab ein paar Hinweise auf 
Abkürzungen, die im weiteren Verlauf des Textes verwendet 
werden: 

SCR: bedeutet die Nummer des gewünschten Grafikbild¬ 
schirms. Eine Null (0) steht für den Bildschirm 0, eine Zahl 
zwischen 1 und 255 steht für den Grafikschirm 1. 

ZM: bedeutet Zeichenmodus. Hier wird die Betriebsart der 
Zeichenroutinen bestimmt. Dabei bedeutet eine 0 ein Zeich¬ 
nen in der Hintergrundfarbe, was einem Löschen der Punkte 
entspricht. Eine Zahl ungleich 0, nämlich von 1 bis 255, 
bedeutet ein Zeichnen in der aktuellen Vordergrundfarbe. 
Hier werden die Punkte sichtbar auf dem Bildschirm ange¬ 
zeigt. 

X: steht für die X-Koordinate eines Befehls im aktuellen 
Grafikbildschirm. Der Wert kann zwischen 0 und 319 betra¬ 
gen. 

Y: steht für die Y-Koordinate des betreffenden Befehls. Sie 
kann Werte zwischen 0 und 199 annehmen. 

R: gibt den Kreisradius bei Kreisbefehlen an. Hier ist ein 
Wert zwischen 0 und 255 zulässig. 

V: steht für eine beliebige Fließkommavariable, die an die¬ 
ser Stelle im Programm eingesetzt werden muß. 

V$: ersetzt in der Befehlstabelle eine beliebige Stringvaria¬ 
ble, die in eigenen Programmen natürlich einen anderen 
Namen haben kann. 

Hier nun die Beschreibung sämtlicher Befehle der High- 
Speed-Grafikerweiterung für den C 64: 

£H,SCR: Dieser Befehl schaltet den Grafikbildschirm ein, 
dessen Nummer anstelle von »SCR« angegeben wird. 

£E,SCR: Mit diesem Befehl wird der Grafikbildschirm mit 
der angegebenen Nummer »SCR« gelöscht, das heißt, gleich 
der Hintergrundfarbe gesetzt. 

£C,SCR,F: Hier wird die Farbe des angegebenen Grafik¬ 
bildschirms gesetzt. Dabei geht man folgendermaßen vor: 

F = Hintergrundfarbe + 16‘Vordergrundfarbe. 

Wollen Sie also beispielsweise die Standardfarbenkombi¬ 
nation von Schwarz als Hintergrund- und Weiß als Vorder¬ 
grundfarbe einstellen, so errechnet sich der Wert für F wie 
folgt: 0 + 16*1 ergibt 16, da 0 die Farbe Schwarz und 1 die 
Farbe Weiß einstellt. 

£N: Dieser Befehl ist wohl einer der wichtigsten. Er schaltet 
wieder auf den normalen Textbildschirm zurück, wobei sämt¬ 
liche Parameter der zwei Grafikbildschirme und des Textbild¬ 
schirms erhalten bleiben. 

£P,X,Y,ZM: Mit diesem Befehl wird ein Punkt im aktuellen 
Grafikbildschirm gesetzt, beziehungsweise gelöscht (abhän¬ 
gig von ZM). X und Y geben dabei die entsprechenden Bild¬ 
schirmkoordinaten an. 

£S,X,Y: Hier wird der aktuelle Grafik-Cursor (Zeichenposi- 



Bild 1. Hardcopy eines Bildes des Demos von Listing 2. 


tion im Grafikbildschirm) an die Koordinaten X und Y gesetzt. 

£D,X,Y,ZM: Dieser Befehl zieht eine Linie von der Position 
des aktuellen Grafik-Cursors bis zu den Koordinatenpunkten 
X und Y. Abhängig von ZM wird diese Linie dabei gezeichnet 
oder gelöscht. 

£L,XA,YA,XB,YB,ZM: Der Befehl entspricht D, nur mit dem 
Unterschied, daß hier sowohl die Anfangs- (XA.YA) als auch 
die Endkoordinaten (XB,YB) der Linie angegeben werden 
müssen. 

£R,XA,YA,XB,YB,ZM: Mit diesem Befehl können Sie ein 
Rechteck auf den Bildschirm zeichnen, dessen linke obere 
Ecke durch die Koordinaten XA und YA und dessen rechte 
untere Ecke durch die Koordinaten XB und YB bestimmt wird. 

£B,XA,YA,XB,YB,ZM: Dieser Befehl entspricht im wesentli¬ 
chen dem Befehl R. Es handelt sich bei der gezeichneten 
Figur hier jedoch um ein ausgefülltes Rechteck, einen Block. 

£K,XM,YM,RX,RY,ZM: Mit diesem Befehl wird ein Kreis 
gezeichnet, dessen Mittelpunkt bei den Koordinaten XM und 
YM liegt, und dessen Radius in X-Richtung durch den Para¬ 
meter RX und in Y-Richtung durch RY angegeben wird. Auf 
diese Weise ist es auch ohne Probleme möglich, Ellipsen auf 
den Bildschirm zu bringen, indem ungleiche Werte für RX und 
RY angegeben werden. ZM bezeichnet wie üblich den Zei¬ 
chenmodus, der bestimmt, ob die Figur in Vorder- oder Hin¬ 
tergrundfarbe auf den Bildschirm gebracht wird. 

£M,SCR: Hier wird diejenige Grafikseite angewählt, auf die 
sich die künftigen Befehle beziehen sollen. Es ist somit mög¬ 
lich, eine Grafikseite vorzubereiten, während die andere 
Seite angezeigt wird. 

£IS,YG,YT: Dieser Befehl setzt die Umschaltzeilen für Text- 
und Grafikanzeige. Es handelt sich dabei um einen Rasterin¬ 
terrupt, der das gleichzeitige-Anzeigen von Text und Grafik 
erlaubt. YG gibt dabei die Rasterzeile für das Einschalten der 
Gräi;;. und YT die Rasterzeile für den Beginn des Textfensters 
an. Eine Angabe von £IS, 10,120 schaltet also den Bildschirm 
zwischen den Punktzeilen 10 und 119 auf Grafik. Der Rest ist 
Textbildschirm. 

£11: Hier erfolgt ein Einblenden des Textbildschirms in den 
aktuellen eingeschalteten Grafikbildschirm, sofern vorher 
durch den Befehl EIS die entsprechenden Rasterzeilen fest¬ 
gelegt worden sind. Im oben aufgeführten Beispiel von 
EIS, 10,120 wird also in der Mitte des Bildschirms die Grafik 
angezeigt, während am oberen und unteren Rand jeweils ein 
Teil vom Textbildschirm zu sehen ist. Voraussetzung ist natür¬ 
lich, daß vor dem $I1-Befehl immer der aktuelle Grafikschirm 
mit dem H-Befehl eingeschaltet worden sein muß. 

£10: ist das genaue Gegenstück zum £I1-Befehl. Hier wird 


Befehl 

Parameter 

Ausführung 

£H 

,SCR 

Grafikbildschirm einschalten 

£E 

,SCR 

Grafikbildschirm loschen 

£C 

,SCR,F 

Farbe für Bildschirm setzen 

£N 


Textbildschirm elnschalten 

£P 

,X,Y,ZM 

Punkt Im Grafikbildschirm setzen 

£S 

,X,Y 

Grafik-Cursor setzen 

£D 

,XY,ZM 

Linie ab Cursor-Position ziehen 

£L 

,XAYA,XB,YB,ZM 

Linie von festgelegter Position bis zu 
fester Position ziehen 

£R 

,XAYA.XB,YB,ZM 

Rechteck zeichnen 

£B 

,XAYA,XB,YB,ZM 

ausgefülltes Rechteck zeichnen 

£K 

,XMYM,RX,RY,ZM 

Kreis zeichnen 

£M 

,SCR 

Grafikseite für Befehle anwählen 

EIS 

YG.YT 

Rasterzeilen setzen 

£11 


Text in Grafik einblenden 

£10 


Text aus Grafik ausblenden 

£V 

,v,v$ 

String auswerten 

£QA 


Grafikseiten durch UND verknüpfen 

£QO 


Grafikselten durch ODER verknüpfen 


Tabelle 1. Die Befehle von »High-Speed-Grafik« 
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■ä" 64’er 


Sie jetzt Ihre 


-Sammlung 


Schaffen Sie sich ein interessantes Nachschlagewerk und gleichzeitig ein 
wertvolles Archiv! 


Keimen Sie alle Ausgaben von 64’er? Suchen Sie einen ganz bestimmten Testbericht? Oder haben Sie einen Teil 
eines interessanten Kurses versäumt? Suchen Sie nach einer speziellen Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf diesen Seiten eine 
Zusammenstellung aller wesentlichen Artikel der Ausgaben 01 bis 12/85. 

Und so kommen Sie schnell an die noch lieferbaren Ausgaben: Prüfen Sie, welche Ausgabe in Ihrer Sammlung 
noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer dieser Ausgabe und das Erscheinungs¬ 
jahr (z.B. 2/85) auf dem Bestellabschnitt der hier eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte ein¬ 
fach heraustrennen und Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs¬ 
eingang umgehend zur Auslieferung gebracht. 
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140 

11/85 

Logelelon 

Logelelon. Teil I 

143 

07/83 


Logoloien. Tbü 2 

136 

08/85 


Logelelon. Toll 3 (Schluß) 

113 

09/BS 

Musik 

Dem Klang auf dor Spur. Tbil 2 

136 

01/88 


Dom Klang auf dor Spur, Tbil 3 

isa 

03/58 


Dem Klang auf dor Spur. Tbü 4 

131 

04/BS 


Dem Klang auf dor Spur. Tbü 6 

153 

05/56 


Dem Klang auf dor Spur. Tbü 7 

133 

07/08 


Dem Klang auf dor Spur, Tbü 8 

133 

06/88 


Dem Klang auf dor Spur. Tbü 9 

136 

10/05 


Dem Klang auf dor Spur, Tbü 10 (Schluß) 

157 

U/BS 

Spoicho: 

Memory Map mit WandervonnMilgen. Tbil 3 

126 

01/05 



150 

03/85 


Memory Map mit Wandervonchllgen. Toü 5 

144 

03/86 



144 

04/85 


Momory Map mit WandarvoractdJgan. TOÜ 7 

120 

06/85 


Memory Map mit Wandorvorachlagon, Tbil 8 

140 

07/B5 


Memory Map mit Wandervorachligcn. Tbü 9 

129 

0B/SD 


Memory Map mit WandorvorechlSgon. Tbil 10 

112 

09/83 


Memory Map mit WandorvorachUgon. Tbil U 

133 

10/8S 


Momory Map mit Wandorvorachlagon. Tbü 12 

145 

I1/8S 





















▼ Poslscheck-Zahlkarl«; IQr Besiellunq «an 0' 




Memory Map nut Wandervonchlägon. TM 13 

146 

12 /es 

Sprachen 

Basic ist out - es lebe Forth 

43 

01/8S 

VC 30 

Der gläserne VC 20. Ibil 4 

130 

01/B5 


Der gläserne VC 20. Tbl) 5 

141 

02/B5 


Der gläserne VC 30. Teil 6 (Schluß) 

156 

03/B5 


toftware-Tips 



C 138 

Erato Fragen und Antworten rum C 128 

14 

00/85 


Fragen und Antworten rum 128er 

20 

10/88 


Fragen und Antworten tum 128er 

40 

13/85 

Drucker 

Der MPS 002 lernt Deutsch 

30 

05/05 


CentroiUcB-Imertaco für jeden Bedarf 

78 

07/88 

Texrveiuibol- 

Software Corner - profosOoneUo Programme 

174 

12/85 

tung 

Tlpe & Tricks 

nchtg eingesotrt (Vixawnto-Tipa) 

Autoboot beim C 64 

86 

03/88 


Verbindungsfreundlich(P4rallolBchnJtt«ello des VC 20) 91 03/88 


Undeflnlerfo Opcodos dos 8502 

84 

03/88 

Durch POKEb rum Erfolg (Spiele-POKEs) 

83 

03/88 

Tipr und Erweiterungen zu Hi-Eddi und Simons Baric 

88 

03/85 

Hardcopy mit einer Zelle (MPS BOI) 

82 

04/88 

VC 20-Programme achooon 

83 

04/88 

84-TBBtaturtnderung 

63 

04/88 

Banc-Befohle lm Gnff 

79 

03/88 

Durch POKEs rum Erfolg: Spiele-POKEa 

78 

06/88 

Formuleno Eingabe 

148 

06/88 

Hl-TBrt (TVrat ln Hirea) 

70 

08/88 

Verbotene Variablen 

66 

09/95 

Verschiedene Routinen für Anfänger und Profis 
(* Fohlenoufel 12/B5) 

B8 

11/85 

Der Trick mit dem Joystick (Joyatlclrabfrage) 

24 

11/98 

Verschiedene Tips für Anfänger und Fortgo- 
achnttone 

106 

12/55 


Software-Grundlagen 


Zompllor 

>Ft) 


Dnickor 

EPROM 

funkbonan 

«rnnn 

«utik 


Areemblor? Aasomblerl (Einführung) 32 

A*ae mbler-Bedlonung lolchl gemacht. Toll 1 160 

So arbelton Compiler 39 

Ein modomos Abonteuoi — Mallbaren ln Deutachlend 43 
Dar anio Kontakt mit DFÜ 40 

Dia Natu» dar Po«: Btt. Detex-P, Talobox 46 

DFÜ — Was 1« das? 44 

Mailbox für Anfängor 30 

Dlo wichtigsten Begriffe dar Dateiverwaltung 43 

Daiaivarwnltung lat nicht gleich Datenbank 44 

>alm Kauf beachten aoUton 40 


fOxtvorarbei- 

ung 


Hardcopy laicht gomacht (wie programmiert man 
HaidcopieB) 

Wio sage Ich es meinem EPROM? (EPROM- 
Gnmdlagen) 

Funktionen für AnOngor 
Bossor leinen mit dam Computor 
Klangpiogrammlorung ohne Ballast 
Taktik- und Stratoglespiole 
Play by Mail und Play by Modem 
Sprachen für Computer 
Sprachen für Computer. Tail 2 
Von dar Schreibmaschine rum Tbxtsyrtom 


164 

166 


. istings zum Abtippen 


Dar C 64 als Handbalitrainer (AüM) 
FarrahanpUnung (AdM) 

Ligatab — ohno Organisation kein Tbr (LdM) 

Cut Ziel mit dem C 64- SchütronrormnsorBohmsse 
(AdM) 

Weiät du. wieviel Stomlom stehen (Sternkarte) 
(AdM) (+Fehlort. 6/B5) 


Baaic- 


Btldflchirm- 

■alte 

DFÜ 

Datei 

Drucker 


Eime der 
Floppy 


g (AdM) S2 

Netrwerkanalyse: Ein Programm für Hobby- 52 

elektroniker (AdM) 

Prtlfungafragen (AdM) 52 

Fit in Latein mit dem C 64 (AdM) 52 

I/fnk-Maschine (AdM) 52 

Hypra-Platos (LdM) 50 

Der Chemie-Assistent (AdM) 52 

SMON Toll 3: Ohne gutes Werks, gehl es nicht 69 

SMON TW1 4 (•» Fohlenoufel 4/85) 72 

SMON Teil 5(*Fehlerteufol 5/85) 64 

Hypra-A» (LdM) 5) 

Neues vom SMON ( + Fehleneufel 11/85) 87 

Reassembler zu HypraAss(.Fehlerteufol 12/BS) 97 

Ergänzungen tu Hypra-A»» (bedingte Vonwoigungen) 96 
Tip* & Tncks rum SMON (inklusive Diskmonitor) 100 

Bofohlaoiwaitening C 64: BildBchirmsteuoiung 80 

Erweiterung und Masken 

«Basic 64: etno Super-Basjc-Erwottorung (LdM) 82 

(t Fohlenoufel 8/8S) 

Auflösung Wettbewerb BUdschlrmaeito 188 

Drei Tbp-Programme 

Tormmalprogramm der Spitzenklasse 149 

(«Fbhlerteufol 10/88) 

SMU - Dor Maflkongcnontor (LdM) 50 

Pnnl-Liat (formatierte Ustingr) 79 

Hl-Eddl-Dnickerroutinen 69 

C 64 5chroiborling — Drucken wie gemalt 84 

JCoalabilder Faibhardcopy auf Epson JX-80 30 

Die nächsten 14 aus d. ElnzeUerwettbeworb 187 

II neue Euurallerl (-rFohlenoufel 5/9/85) 183 

Hypra-Load mal 4 (* Fohlettoufol 3/88) 82 

Nouos vom Hypra-Load: Hypra-Potfekt 75 

Dlskettenmonitoi 83 

Dlak-Deslgnor 70 

Horaoperation (Hypra-Load - Hypra-A« • DOSQ 1 <- 104 

Centronics) 

Oraflk Vier Psoudo-VICi mit 32 Spntes 70 

Hl-Eddl: Zeichen- und Malproggnmm (LdM) 80 

Als dlo Bildor Isufen lomton (Paoudo-ScroU) 88 

Doktrotechmsches Zeichnen mit dem VC 20 71 

SupergieRk in (3D-Grafikon mit dem VC 20) 73 

Funktionen im Nets (JD-Crafik) 69 

Window 64 — Fomtortochiuk für don Conunodora 87 
Mlnl-Craflk VC 20. Otaflkhllfo 69 

Trickfilm mit dem C 64: Bewegte 3D-Craflk (LdM) Bl 
(♦ Fohlonmifol 6/B8) 

Kurvonplotten mit Hardcopy auf dom C 16 68 

Doppelte Gnßkauflöaung für C 128 33 

BÜdor aus einer anderen Dimension (Aptolmännchen) 80 
Intelligent VlC-dan lntoUlgonto Programm 173 

(Wottboworbesiogor) 

Munk Sound Machina (* Fohlenoufel 10/85) 23 

Sound Master (Baslc-Erwolloning) 31 

Schach Schachmeister erweitert 68 

Splelo Du Grab des Pharaoh (LdM) (+Fehleneufel 3/88) 81 

Q - Bort (VC 20) 78 

Gehlmtralning mit Super Momory 81 

6510 - Die Suche nach der ProreBitor 70 

Samurai (Stniegleoplel) 72 

Schach dem C 64:5chachprograrom rum Ab tippen 72 

Spielen auf rwel Bildschirmen: S1 

Zelchensatzsaolling (LdM) 

Pac-Mon unter der Lupe 76 

Block Out 64 

Seekrieg per Telefon (Schiffe versenken por Modem) 02 
Sptelehilfo Die Scroll-Maschlne — n renster rur Spiolewelf 52 

(LdM) (• FOhl ort 11/B5) 

Sprachen Tiny Forth Corapüor (LdM) (* Fehlen. 9/85) 51 

TVjxtveraxbel- Hypra-To» (LdM) (* Fohlenoufel 11/B8) 50 

tung Drucksache — Hypra-Tbxt, 70113 71 

Tips & Tricks Große Buchstaben 83 

Rofltoro für Unterprogramme 90 


01/85 

12/08 

03/85 

04/08 

00/85 

06/85 

06/88 

07/B8 

08/88 

05/BB 

05/B5 

00/85 

07/85 

05/85 

10/85 

09/B5 

03/B5 

09/85 

04/BS 

05/BS 

03/B5 


01/BS 

02/55 

03/83 

03/35 

05/85 

07/85 

08/85 

09/85 

10/83 

11/85 

11/85 

12/85 

01/85 

02/85 

04/85 

07/85 

10/85 

11/85 

11/88 

12/85 

04/85 

04/85 

00/8$ 

07/85 

12/85 

04/85 

06/88 

10/88 

11/85 

01/88 

04/85 

01/88 

04/85 

06/85 

00/85 

11/85 

01/88 

01/86 

02/85 

03/85 

04/85 

04/85 

04/85 

05/85 

06/85 

06/85 

11/85 

11/85 

05/85 

09/85 

09/83 

04/BS 

02/85 

02/88 

Q2/BS 

05/88 

06/65 

06/88 

09/85 

10/85 

li/85 

12/85 

06/B5 

0B/83 

10/83 

11/85 

01/88 

01/85 


Stichwort 

Titel 

Seite 

Ansgabe 

Tip» & Tncks 

Parameterflbergabo an Maschinonspracheproyrammo C-8 

01/05 


Curaoratouerung leicht gemacht 

3G 

02/B5 


Maschinonspracheprogrnmme auf Diak speichern 

91 

02/85 


Basic-Zotlen genau betrachtet 

87 

02/85 


RAM-Floppy 

92 

02/85 


22 Read Error - Theono und Praxis 

41 

03/B5 


Floppy-Listor (. Fohlortcufel 4/85) 

82 

03/85 


Longscraer, beim VC 20 

63 

05/85 


C 16: Help und Traco vorborsen 

84 

05/85 


Ordnung ist das halbe I<oben (Dlroctoty-Sorter) 

(Wettbewerb) 

Uaorport (. FehleiTeufol D/85) 

n 

155 

76 

05/85 

OB/88 

06/88 


Fenster-Befehle für don C 16 

84 

83 

07/85 

07/85 


rUe-CompacInT 

82 

07/85 


REM-Killer (. rohlortoufol 9/85) 

75 

07/85 


BMiC-Start-Goneratnr 

74 

07/85 


Komfortable Ein /Auagaberouuno 

77 

07/85 


Dildschummar.kon leicht eiatoUt 

Bf. 

08/BS 


Dor Bitmup-Compandor (HiHos-Büdor kompnmioren) 61 

OD/BQ 


Hypia-Savo 

79 

09/B3 


’Procodure’ - oder dor C 64 kann lento n 

78 

08/85 


Aufgowickolt - LtBtmgncrolllng für VC 20 

83 

88 

09/85 

10/85 


Croan-Rof optimiert 

83 

10/88 


Splelotralner SpntokiU 

86 

11/85 


Tipp Utility 

90 

13/85 


Dot EPROM Aur.-imat (wio man Module macht) 

SO 

12/85 


OO-Zclchen-Grafik für don C 128 

78 

12/88 


Hyper Scroon (Sprites auf dem BildBchirmrand) 

70 

13/85 

Transfor 

Unter- 

Dor C 64 ala PET PETSlmulalor 

Formatierte Elngabo 

87 

158 

01/85 

01/85 

ptogrammo 

Witz 

Notlandung (Dos luatlgslo Programm) 

150 

02/85 

Epoon bedruckt Ooteroior (AdM) (i Fohlortoufol 5/88) 50 

Software-Tests 

04/85 

Assembler 

AsoomWor im TV»»t TB1I 1 

34 

01/85 


Aaaemhor lm Tb« Toll 2 

30 

02/85 

Basic- 

Bamc-G’ompUo: lm Tbitf + rehlortoufo! B/88) 

34 

02/85 

Compiler 


CBamc - Alles drin 

M 

01/85 

Erweiterung 

Aztoc Basic - von ledern etwa* 

42 

04/85 


Macro-Biunc Dio Unloiprogramm-Bibhoihok 

137 

05/85 


Darf ca otwun mehr »atu? — Test Bunlneso-Boaic 

120 

00/85 


Das Inlolloctool 

138 

09/88 


Formel 64: Das MulUtalont 

158 

12/85 

Compiler 

Basic 64 - ein vielseitiger Baaiccompüor 

36 

04/85 

DFÜ 


24 

02/85 


Tbrminalpiogrammo Ubenuchl 

42 

06/B5 

DatDi 

Voralelchstest - 7 Datoivcnraltur.gcn auf olnen Bbck 113 

07/85 


Aufgeräumt mit MainBlo 11 

157 

10/85 

Grafik 

Ich glaub, mein Drucker pfeif! (Test: Pnntshop) 

34 

04/85 


Malkaaton adol (TVist: Blasing Paddlos) 

40 

04/85 


Malen auf dem Bildschirm (Malprogramme) 

34 

03/85 


Grafikprogramme auf einen Blick: Marktüboreicht 

38 

37 

00/85 

03/8S 

Lernen 

Softloarr.mg - dio weiche Wolle des Leinens 

40 

01/85 


Nachhilfe (Übereicht Lernsoftware) 

26 

02/85 


Vokaboltralnlng mit dem Computor 

39 

03/85 



168 

10/85 

Musik 

Musik für don C 64- Übersicht Musiksoftware 

26 

09/85 


The Music System — Zwo: auf omrn Schlag 

164 

12/85 

Sprachen 

Logo — die Sprache für Einstotgcr 

135 

05/85 


Der Ada Trainingakura auf dom C 64 

129 

05/85 


Promal — dio nouo Sprache für Profis? 

124 

07/85 


Farth-vrirts mit M&T-Forth 64 

126 

07/85 



121 

08/85 


Super-Forth 64 

144 

09/85 


C — die profoBBonello Programmiorepracho für 
den C 64 

140 

09/85 


Basic 7.0 — Das Superbaatc dos C 128 

18 

10/85 


Conal 80 — die umveraeile Programmiersprache 

151 

10/65 


Turbo-Pascal auf dem C 128 

30 

11/B5 

Toxtvoraiboi- 

Homeword - Textverarbeitung zu Hause 

36 

03/85 

tung 

TWl-T0xt — Flexibilität ist Trumpf 

38 

03/BS 


Texte gut lm Gnff (Übereicht Toxtvorarbeitung) 

(♦ Fehlerteufol 5/85) 

28 

04/85 


Protoxt — Tbrrtronfi mit HO Zeichen 

133 

05/85 


Trjrtomat Plus kontra Visawnte 

122 

06/8S 


Der Preiahammer (Tont: StaiTeirtoi) 

135 

09/65 

Papercbp — ausdrücklich gut 

So machen's andere 

44 

11/85 

Lernen 

Gelungener Einntiog (Informatik-Unterricht) 

159 

04/86 

Semmeln 

Sommelaervico nut dom C 64 

147 

06/85 

Sport 

Commodore Spoitservico: Helmcomputer zur 
Tunuorauawortung 

157 

07/85 

Hilfe 

Computer für Behinderte 

182 

12/85 


Auch die bisher 
ersdiieneaen Sonderhefte 
können Sie 
jetzt direkt bestellen: 


SONDERHEFT 01/84: TIPS t TRICKS 

Unentbehrliche Anwendungsiistings tlirC 64 und 
VC 20. _ 

SONDERHEFT 03/85: ABENTEUERSPIELE 1 

Fesselnde Adventures mit zahlreichen Lösungen und 
einem Programmierkurs. 

SONDERHEFT 03/S5: SPIELE 

Heiße Listings Für Spiele-Fans und eine große 
Marktübeisicht. 

SONDERHEFT 04/85: GRAFIK t DRUCKER 

Von der 3D-Darstellung bis zur Hardcopy-Routine. 

SONDERHEFT 05/8S: FLOPPT/DATRSETTE 

Solt-lbois zum komfortablen und noch schnelleren 
Betrieb von Floppy und Datasetle. 

SONDERHEFT 06/85: AUSGiWÜHLTE SUPER-IISTINGS 

Top-Themen aus 64'er bringt eine Auswahl der besten 
64'er Programme. 

SONDERHEFT 07/85: ANWENDUNGEN/DFÜ 

Leistungsfähige Programme für professionelle 
Anwendungen und D atenfernübertragung. 

SONDERHEFT 08/86: ASSEMBLER 

Assembler-Know-how fürAn/änger und Fortgeschrit¬ 
tene. 


SONDERHEFT 01/86: PC 128 

Komplette Beschreibungen von C 128 und C I28D 
und passendem Zubehör. Die Unterschiede zum C 64. 

SONDERHEFT 02/86: TIPS 8 TRICKS 

Super-Listings. ausführliche Grundlagen und die 
besten Tips&Tricks und EinzeUeraus 64'er. _ 

SONDERHEFT 03/86: CI6, CI 16, VC20 UND PUiS 4 

Umfassende Grundlagen und aktuelle Informationen 
zu C16, C116, VC20 und Plus 4. _ 

SONDERHEFT 04/86: ABENTEUERSPIELE 2 

Auf 160 Seiten alles über das Programmieren von 
Abenteuerspielen und Super-Listings zum Abtippen. 

SONDERHEFT 05/86: C64-GRUNDWISSEN 

Für alle Einsteiger umfassende Grundlagen und Hilfe¬ 
stellungen rund um den C64. 



Am besten 
gleich mitbestellen: 
Pie 64 f eiiSqmmelbox 

Für alle Leser, die »64’er« regelmä¬ 
ßig kaufen, sammeln oder im 
Abonnement beziehen, gibt es 
jetzt ein interessantes Service-An¬ 
gebot: die 64’er-Sammelbox! 

Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf¬ 
fen sich gleichzeitig ein interes¬ 
santes und attraktives Nachschla¬ 
gewerk. 

Übrigens: Die Sammelbox ist 
nicht nur ein praktisches 
Aufbewahrungsmittel: Sie 
eignet sich auch her¬ 
vorragend als Ge¬ 
schenk für Freun¬ 
de und Bekannte 
zu vielen 
Anlässen. 


Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.B. 04/85) auf dem Bestellab¬ 
schnitt der hier eingehefteten Bestell-Zahlkar- 
te ein. 













































GRAFIK-ERWEITERUNG 


C64 


das Textfenster wieder aus dem Grafikbildschirm ausgeblen¬ 
det, so daß das aktuelle Grafikfenster wieder in seiner vollen 
Größe erscheint. 

EV,V,V$: Dieser Befehl erlaubt die Auswertung eines mat¬ 
hematischen Ausdrucks in einem String. Dazu ein Beispiel: 
10 A$="100+200-75" 

20 £V,A,A$ 

30 PRINT A 

Dieses Programm wertet den String A$ aus und übergibt das 
Ergebnis in A. Auf dem Bildschirm erscheint als Ergebnis der 
Wert 225. 

EQA: Hier werden die beiden Grafikseiten durch ein logi¬ 
sches UND miteinander verknüpft. Dadurch ist eine subtrak- 


tive Mischung von zwei Grafiken problemlos möglich. 

EQO: Ähnlich dem EQA-Befehl, nur daß hier eine ODER- 
Verknüpfung stattfindet. Die beiden Grafikbildschirme wer¬ 
den also additiv gemischt, wobei ein »Zusammenschneiden« 
von zwei Grafiken möglich ist. 

Soweit zum Befehlssatz der High-Speed-Grafikerweite- 
rung. Wie Sie sehen, erhalten Sie mit diesem zusätzlichen 
Befehlssatz ein wirklich leistungsfähiges Grafik-Basic, das 
sich für viele Anwendungen hervorragend eignet. Wenn Sie 
sich einmal die Mühe machen und eines von den beiden 
Demo-Programmen in Listing 2 und 3 eintippen, bekommen 
Sie eine recht eindrucksvolle Vorstellung davon, wie schnell 
High-Speed-Grafik arbeitet. (Wolfgang Lohwasser/ks). 
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BB 

5F 

85 

5E 

AD 

BF 

9B10 


9B 

97 

85 

A7 

AD 

99 

97 

85 

DB 

9818 


AB 

AD 

9E 

97 

85 

5A 

AD 

9F 

52 

9820 


97 

85 

5B 

20 

FO 

92 

E6 

59 

47 

982B 


A5 

59 

85 

SC 

C6 

AC 

DO 

Dl 

1F 

9830 


60 

20 

4C 

91 

BE 

8E 

9A 

BC 

C6 

9838 


ec 

9A 

BD 

BD 

9A 

20 

BF 

94 

38 

9840 


20 

06 

91 

8D 

90 

9A 

20 

06 

E4 

9848 


91 

8D 

91 

9A 

20 

36 

91 

18 

82 

9B50 


A5 

57 

6D 

90 

9A 

8D 

4C 

9A 

BB 

9858 


8D 

4D 

9A 

A5 

58 

69 

00 

BD 

D3 

9860 


50 

9A 

8D 

51 

9A 

38 

05 

57 

3C 

9868 


ED 

90 

9A 

BD 

4E 

9A 

SD 

4F 

84 

9870 


9A 

A5 

58 

E9 

00 

BD 

52 

9A 

1B 

9878 


8D 

53 

9A 

A5 

59 

BD 

54 

9A 

93 

9880 


8D 

55 

9A 

8D 

56 

9A 

BD 

57 

2F 

9888 


9A 

A9 

08 

BD 

AO 

9A 

A9 

00 

30 

9890 


8D 

BF 

9A 

8D 

58 

9A 

SD 

59 

80 

9898 


9A 

8D 

5A 

9A 

8D 

5B 

9A 

AD 

SC 

98A0 


90 

9A 

8D 

95 

9A 

AE 

AO 

9A 

6A 

98AS 


BD 

6B 

9A 

SD 

92 

9A 

BD 

73 

4F 

98B0 


9A 

BD 

93 

9A 

20 

OA 

9A 

18 

36 

9BB8 


AD 

BC 

9A 

6D 

98 

9A 

BD 

5C 

4D 

98C0 

s 

9A 

BD 

5D 

9A 

AD 

8D 

9A 

69 

50 

98C8 

: 

00 

BD 

60 

9A 

BD 

61 

9A 

38 

B9 

9BD0 

: 

AD 

8C 

9A 

ED 

98 

9A 

8D 

5E 

79 

9BD8 

: 

9A 

BD 

5F 

9A 

AD 

8D 

9A 

E9 

E9 

9SE0 

: 

00 

8D 

62 

9A 

8D 

63 

9A 

AD 

4C 


98E8 


91 

9A 

BD 

95 

9A 

BD 

7B 

9A 

97 

98F0 


8D 

92 

9A 

BD 

83 

9A 

BD 

93 

8F 

98FB 


9A 

20 

OA 

9A 

18 

AD 

BE 

9A 

D7 

9900 


6D 

98 

9A 

8D 

64 

9A 

8D 

67 

32 

9908 


9A 

AD 

BF 

9A 

69 

00 

SD 

68 

4E 

9910 


9A 

BD 

6B 

9A 

38 

AD 

BE 

9A 

FF 

991B 


ED 

98 

9A 

BD 

65 

9A 

BD 

66 

DQ 

9920 


9A 

AD 

8F 

9A 

E9 

00 

8D 

69 

70 

9928 


9A 

QD 

6A 

9A 

A9 

04 

BD 

Al 

AB 

9930 


9A 

AE 

Al 

9A 

BD 

4B 

9A 

B5 

89 

993B 


57 

BD 

4F 

9A 

85 

58 

BD 

53 

4E 

9940 


9A 

85 

59 

BD 

57 

9A 

BD 

9D 

67 

994B 


9A 

BD 

5B 

9A 

85 

5A 

BD 

5F 

CC 

9950 


9A 

B5 

SB 

BD 

63 

9A 

B5 

SC 

15 

9958 


BD 

67 

9A 

BD 

9E 

9A 

20 

A3 

AB 

9960 


9A 

CE 

Al 

9A 

DO 

CB 

A2 

10 

33 

9968 


BD 

5B 

9A 

9D 

4B 

9A 

CA 

DO 

83 

9970 


F7 

CE 

AO 

9A 

FO 

03 

4C 

9F 

El 

9978 


98 

20 

D4 

99 

AD 

58 

9A 

BD 

AC 

9980 


9E 

9A 

AD 

54 

9A 

AE 

4C 

9A 

E7 

99BB 


AC 

50 

9A 

20 

CA 

99 

20 

D4 

AB 

9990 


99 

AD 

5B 

9A 

BD 

9E 

9A 

AD 

BE 

9998 


57 

9A 

AE 

41 

9A 

AC 

53 

9A 

63 

99A0 


20 

CA 

99 

20 

EF 

99 

AD 

59 

C5 

99AS 


9A 

BD 

9E 

9A 

AD 

55 

9A 

AE 

51 

99B0 


4D 

9A 

AC 

51 

9A 

20 

CA 

99 

A9 

99BB 


20 

EF 

99 

AD 

5A 

9A 

8D 

9E 

DA 

99C0 


9A 

AD 

56 

9A 

AE 

4E 

9A 

AC 

3B 

99CB 


52 

9A 

85 

5C 

86 

5A 

B4 

5B 

5B 

99D0 


20 

A3 

9A 

60 

AE 

BC 

9A 

AC 

8B 

99D8 


BD 

9A 

86 

57 

B4 

58 

18 

AD 

06 

99E0 


BE 

9A 

6D 

91 

9A 

B5 

59 

A9 

D7 

99E8 


00 

69 

00 

BD 

9D 

9A 

60 

AE 

DC 

99F0 


BC 

9A 

AC 

BD 

9A 

86 

57 

84 

EA 

99FB 


58 

38 

AD 

SE 

9A 

ED 

91 

9A 

3E 

9A00 


85 

59 

A9 

00 

E9 

00 

BD 

9D 

AC 

9A08 


9A 

60 

A9 

00 

8D 

96 

9A 

8D 

50 

9A10 


97 

9A 

8D 

98 

9A 

8D 

94 

9A 

OB 

9A1B 


AD 

95 

9A 

FO 

2D 

4E 

95 

9A 

25 

9A20 


90 

IC 

18 

AD 

96 

9A 

6D 

92 

93 

9A28 


9A 

BD 

96 

9A 

AD 

97 

9A 

6D 

5F 

9A30 


93 

9A 

BD 

97 

9A 

AD 

9B 

9A 

15 

9A3B 


6D 

94 

9A 

BD 

98 

9A 

OE 

92 

03 

9A40 


9A 

2E 

93 

9A 

2E 

94 

9A 

4C 

B4 

9A48 


18 

9A 

60 

00 

00 

00 

00 

00 

C6 

9A50 


00 

00 

00 

00 

00 

00 

00 

00 

51 

9A58 


00 

00 

00 

00 

00 

00 

00 

00 

59 

9A60 

9A68 


8 E M 


00 

00 

00 

8D 

61 

47 

9A7C 


1B 

B3 

90 

IC 

2C 

57 

80 

A4 

D5 

9A7S 


C4 

DD 

FO 

FC 

IC 

90 

B3 

1B 

52 

9A80 


BD 

00 

BF 

74 

FC 

FO 

DD 

C4 

D8 

9A88 


A4 

BO 

57 

2C 

00 

00 

00 

00 

ca 

9A90 


00 

00 

00 

00 

00 

00 

00 

00 

91 

9A9B 


00 

00 

00 

00 

00 

00 

00 

00 

99 

9AA0 


00 

00 

00 

A9 

00 

8D 

9F 

9A 

F6 


9AA0 

: 

A6 

57 

A4 

58 

20 

FB 

9B 

90 

9F 

9AB0 


OA 

AD 

9F 

9A 

09 

80 

BD 

9F 

D6 

9AB8 


9A 

DO 

OA 

A6 

59 

AC 

9D 

9A 

B8 

9AC0 


20 

09 

9C 

BO-EC 

A6 

5A 

A4 

59 

9AC8 


5B 

20 

FB 

9B 

90 

OA 

AD 

9F 

F5 

9AD0 


9A 

09 

40 

8D 

9F 

9A 

DO 

OA 

D7 

9ADB 


A6 

5C 

AC 

9E 

9A 

20 

09 

9C 

B3 

9AE0 


BO 

EC 

AD 

9F 

9A 

DO 

03 

4C 

3A 

9AEB 


40 

92 

C9 

CO 

DO 

01 

60 

AD 

EE 

9AF0 


9F 

9A 

C9 

40 

FO 

24 

A6 

57 

DO 

9AF8 


A4 

5A 

B6 

5A 

B4 

S7 

A6 

59 

07 

9B00 


A4 

5C 

86 

5C 

84 

S9 

A6 

SB 

5E 

9B0B 


A4 

SB 

86 

5B 

84 

5B 

AE 

9D 

68 

9B10 


9A 

AC 

9E 

9A 

8E 

9E 

9A 

BC 

SD 

9B18 


9D 

9A 

A5 

57 

48 

A5 

58 

48 

FA 

9B20 


A5 

59 

48 

18 

A5 

57 

65 

5A 

E6 

9B28 


BD 

99 

9A 

AS 

58 

65 

5B 

18 

2B 

9B30 


10 

01 

38 

6A 

BD 

9A 

9A 

6E 

11 

9B30 


99 

9A 

90 

16 

AD 

9A 

9A 

10 

3F 

9B40 


11 

1B 

AD 

99 

9A 

69 

01 

8D 

10 

9B4B 


99 

9A 

AD 

9A 

9A 

69 

00 

BD 

FD 

9B50 


9A 

9A 

18 

A5 

59 

65 

5C 

BD 

3F 

9B58 


9B 

9A 

AD 

VD 

9A 

6D 

9E 

9A 

24 

9B60 


18 

10 

01 

38 

6A 

BD 

9C 

9A 

82 

9B6B 


6E 

9B 

9A 

90 

16 

AD 

9C 

9A 

D3 

9B70 


10 

11 

18 

AD 

9B 

9A 

69 

01 

FB 

9B7B 


BD 

9B 

9A 

AD 

9C 

9A 

69 

00 

73 

9B80 


8D 

9C 

9A 

AE 

99 

90 

AC 

9A 

2E 

9B8B 


9A 

20 

FB 

9B 

BO 

39 

AE 

9B 

6B 

9B90 


9A 

AC 

9C 

9A 

20 

09 

9C 

BO 

19 

9B9B 


2E 

AD 

9B 

9A 

FO 

1A 

C9 

C7 

6E 

9BA0 


FO 

16 

AD 

9A 

9A 

OD 

99 

9A 

OB 

9BA8 


FO 

OE 

AD 

9A 

90 

C9 

01 

DO 

FC 

9BB0 


IC 

AD 

99 

9A 

C9 

3F 

DO 

15 

60 

9BBS 


20 

ES 

9B 

68 

85 

59 

68 

85 

8F 

9BC0 


58 

68 

85 

57 

4C 

40 

92 

20 

EA 

9BCB 


E5 

9B 

4C 

23 

9B 

AE 

99 

9A 

BD 

9BD0 


AC 

9A 

9A 

86 

57 

84 

58 

AE 

99 

9BD8 


9B 

9A 

AC 

9C 

9A 

86 

59 

BC 

DB 

9BE0 


9D 

9A 

4C 

23 

9B 

AE 

99 

9A 

OD 

9BE8 


AC 

9A 

9A 

86 

5A 

84 

5B 

AE 

ED 

9BF0 


9B 

9A 

AC 

9C 

9A 

86 

5C 

8C 

FF 

9BFB 


9E 

9A 

60 

1B 

98 

FO 

07 

C9 

BF 

9C00 


01 

DO 

04 

8A 

C9 

40 

60 

38 

4C 

9C0B 


60 

1B 

98 

DO 

FA 

SA 

C9 

C8 

71 

9C10 


60 

C9 

41 

DO 

04 

A9 

31 

DO 

B3 

9C18 


09 

C9 

4F 

FO 

03 

4C 

OB 

AF 

OA 

9C20 


A9 

11 

BD 

48 

9C 

20 

73 

00 

57 

9C28 


A9 

00 

BD 

57 

00 

BD 

5A 

00 

F5 

9C30 


A9 

AO 

8D 

58 

00 

A9 

EO 

BD 

84 

9C38 


5B 

00 

78 

A5 

01 

4B 

A9 

35 

C9 

9C40 


B5 

01 

AO 

00 

A2 

20 

Bl 

57 

OF 

9C4B 


31 

5A 

91 

FB 

CB 

DO 

F7 

E6 

4B 

9C50 


58 

E6 

SB 

EE 

FC 

00 

CA 

DO 

6D 

9C5B 


ED 

68 

85 

01 

SB 

4C 

23 

91 

92 

9C60 


00 

FF 

00 

FF 

00 

FF 

00 

BF 

DF 


Listing 1. Das MSE-Listing von »High-Speed-Grafik«. Für seine Leistung ist das Programm erstaunlich kurz. 


10 £H,0:£E,0:I=10:J=10:POKE 53280,0 <103> 

20 £C,0,16*Ja POKE 532B0,I <041> 

30 FOR X=5 TO 165 STEP Is£K,159,99,X,165-X 

,1:NEXT X <006> 

40 FOR X=5 TO 165 STEP I:fK,159,99,X,165-X 

,0:NEXT X <144> 

50 I=INT<RND<TI>*20>+1:J=INT(RND(TI>*14)+1 <034> 
55 £C,0,16*J:POKE 532B0.I <076> 

60 FOR X=0 TO 149 STEP 10+1 <117> 

70 FOR Y=1B9 TO 0 STEP-10-I <191> 

80 £L,X,Y,310—X,190—Y,1 <223> 

90 NEXT Y,X <251> 

92 FOR Y=1B9 TO 0 STEP-10-I <213> 

94 FOR X=0 TO 149 STEP 10+1 <151> 

96 £L,X,Y,310—X,190—Y,0 <207> 

98 NEXT X,Y <027> 

99 I=INT(RND<TI)*20)+l5J=INT(RND(TI>*14)+1 <083> 

100 £E, 0:GOTO 20 <171> 


Listing 2. Demonstrationsprogramm für die schnellen Linien- 
und Kreisroutinen von »High-Speed-Grafik«. 


4 :£E,0:£H,0sfM,0:Y=100:Xl=69:X2=249:Z=l <131> 

5 PRINT"tCLRJ" <249> 

6 PRINT:PRINT"MIT DEN TASTEN 1-4 WERDEN DI 

E DEMOS" <245> 

7 PRINT"EINGESCHALTET" <087> 

8 PRINT:PRINT"MIT BELIEBIGEN TASTEN WIEDER 

<13SPACEJAUSGESCHALTET" <124 > 

10 :£N <184> 

11 GET A*:A=VAL(AS> <154> 


12 ON A GOTO 20,100,200,300 

<172> 

13 GOTO 11 

<207> 

20 :£E,0:£H,0 

<253> 

25 FOR 1=1 TO 90 STEP 1 

<198> 

30 :£K,X1+I,Y,I,I,Z 

<255> 

35 :£K,X2—I,Y,I,I,Z 

<134> 

40 NEXT 

<050> 

60 GET A*:IF A*<>""THEN 10 

< 179> 

70 Z=l—Z:GOTO 25 

<064> 

100 :X=159:Y=100:Z=1:£E,0:£H,0 

<072> 

105 :X=159:Y=100:Z=1 

<100> 

110 FOR 1=1 TD 99 STEP 2 

<040> 

120 :£K,X,Y,1*1.61,1,Z 

<031 > 

130 NEXT 

< 140> 

140 GET A*:IF A*<>""THEN 10 

<003> 

160 Z=l—Z:GOTO 110 

<009> 

200 :X=159:Y=100:Z=l:fE,0:£H,0 

< 172> 

210 FOR 1=1 TO 90 STEP 10 

<000> 

220 :£K,X,Y,I,I,Z 

<241 > 

230 NEXT 

<240> 

240 GET A*:IF AS< >""THEN 10 

< 103> 

260 Z=l—Z: GOTO 210 

< 113> 

300 :£E,0:£H,0 

<023> 

305 FOR YY=34 TO 160 STEP 25 

<096> 

310/FOR XX=34 TO 290 STEP 25 

<091 > 

320 FOR R=1 TO 20 STEP 2 

<1B4> 

330 :£K,X X,YY,R,R,1 

< 186> 

340 NEXT R,XX,YY 

<246> 

350 GET Ai:IF A*<>""THEN 10 

<215> 

360 GOTO 350 

< 130> 


Listing 3. Programm mit vier verschiedenen Kreisdemonstra¬ 
tionen. Ein Beispiel zeigt das Bild neben der Überschrift. 
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GRAFIK-ERWEITERUNG 


C128 


3D-Funktionsgrafiken 
auf dem C128 


Durch Umwandlung mathematischer Formeln in 
Computergrafik lassen sich verblüffende Bilder 
erzielen. Hier werden Funktionen und Meßwert- 
Reihen in HiRes-Grafik gezeichnet. 

D ieses Programm erzeugt Grafiken im 3D-Format durch 
selbstgewählte Funktionen und eingegebene Stütz¬ 
stellen (Meßwerte). Es ist in Basic 7.0 geschrieben, 
kann also gegebenenfalls auch an andere Basic- 
Erweiterungen angepaßt werden. 

Bedienungsanleitung 

Nachdem Sie das Programm »Flächen im IR t 3« (Listing 1) 
im C128-Modus abgetippt und gespeichert haben, starten 
Sie es durch RUN. Sie sehen nun das Menü mit sieben ver¬ 
schiedenen Auswahlmöglichkeiten: 

1) Dies ist der Unterpunkt »Grafiken speichern«. In diesem 
Menüpunkt können Sie die unter Punkt 6) erzeugten Grafi¬ 
ken auf Diskette speichern. Für den Namen geben Sie bitte 
maximal 14 Buchstaben ein und schließen die Eingabe mit 
< RETURN > ab. 

2) Diese Funktion dient zum Laden der mit Punkt 6) erstell¬ 
ten Grafiken. Dazu müssen Sie nur den Namen der Grafik 
(ohne die Kennung »G>«) eingeben. Schließen Sie die Ein¬ 
gabe mit < RETURN > ab. Der Bildschirm wird auf HiRes- 
Modus umgeschaltet und die Bilddaten langsam von Diskette 
in die Speicherstelien gePOKEt. Ist das Bild fertig aufgebaut, 
erscheint alle 10 Sekunden das Wort »TASTE«. Außerdem 
ertönt ein Gong. Mit einem beliebigen Tastendruck gelangt 
man wieder in das Hauptmenü. 

3) Unter diesem Menüpunkt können Sie eine eigene Meß¬ 
reihe oder sonstige strukturierte zusammenhängende Daten 
eingeben. Zuerst geben Sie Ihrer Meßreihe einen Namen und 
quittieren diesen mit < RETURN >. 

Zum besseren Verständnis werden die folgenden Schritte 
anhand des Beispiels »Windkanal« erläutert: 

Mit einem Luftdruckmeßgerät wird einfach der Durchmes¬ 
ser der Düse entlang der X-Achse abgefahren und alle 10 mm 
der Luftdruck gemessen (siehe Bild 1). Diesen kann man als 
Diagramm auftragen (rechte Kurve im Windkanal, Bild 2). 
Macht man dasselbe noch einmal im Abstand von 10, 20, 
30... cm von der Düse, bekommt man mehrere Meßreihen. 

Im Grunde wird die ganze Fläche vor der Düse abgetastet 
und die Windgeschwindigkeit registriert. Die Fläche wird in X 
und Y aufgeteilt, welche vor jeder Windmessung fest einge¬ 
teilt ist (Parameter). 

Die Meßgröße »Windstärke« kann symbolisch in der er¬ 
zeugten Grafik nach oben aufgetragen werden und man 
erhält dadurch ein Geschwindigkeitsfeld für die ausströ¬ 
mende Luft. 

Ein Beispiel: Sie möchten 20 Messungen in der Düse vor¬ 
nehmen, also geben Sie für den X-Wert 20 ein. 

Die Messung soll aus drei Meßreihen bestehen (0 cm, 20 
cm und 30 cm), demzufolge: Y=3. 

Die nun folgende Frage nach den min/max-Werten müßte 
nun zum Beispiel mit X min =0, X max =20, Y min =0, Y max =30 
beantwortet werden. In die Kommentarzeile geben Sie bitte 
einen Text ein, der während des Ladevorganges ausgegeben 
wird (eine leere Eingabe kann zu Fehlern führen). 


Zu Ihrer Erleichterung sind die zu erwartenden Parameter¬ 
werte schon vorgegeben. Stimmen Sie mit Ihren Werten 
überein, so drücken Sie bitte nur < RETURN >. Andernfalls 
korrigieren Sie die Werte und löschen den Rest mit der 
Space-Taste. Die Eingabe des Meßwertes Z leitet ein Gong ein. 
Erfolgt keine Eingabe, so lautet der jeweilige Meßwert = 0. 

Nach der Abfrage, ob alles korrekt war, werden die Meß¬ 
daten auf Diskette gespeichert und das Programm kehrt in 
das Hauptmenü zurück. 

4) In diesem Unterpunkt liest das Programm die unter 
Punkt 3) erstellten Meßwert-Tabellen in den Speicher ein. 
Sind die Daten komplett eingelesen, so erscheint ein kleines 
Menü. Sie finden folgende Auswahlmöglichkeiten vor: 

T - Hier können Sie noch einmal die aus den Meßwerten 
erzeugte Tabelle einsehen. Ein anschließender Tastendruck 
am Ende bringt Sie wieder in das kleine Untermenü. 

G - Die Meßwerte werden in eine 3D-Netzgrafik umgewan¬ 
delt, die dann in HiRes auf dem Bildschirm erscheint. Die 
Meßwerte der Grafik dienen als Stützstellen, die zweimal 
(parallel zur X- und Y-Achse) abgetastet werden. Damit man 
den räumlichen Effekt besser erkennt, zeichnet das Pro¬ 
gramm den Rand der Nullebene (Z = 0 für alle X, Y) und ver¬ 
bindet die Ecken der Grafik-Fläche zu einem Sockel. Die Sei- 
tenwö- de dieses Sockels werden ausgefüllt, falls die Meß¬ 
werte größer Null sind. Die Grafik ist so dimensioniert, daß sie 
immer komplett auf dem Bildschirm erscheint. 

Alle 10 Sekunden erscheint das Wort »TASTE«. Bei Tasten¬ 
druck gelangen Sie wieder in das kleine Untermenü. Sie kön¬ 
nen beliebig oft zwischen T und G wechseln. Mit E und 
< TASTE > gelangen Sie wieder in das Hauptmenü. 

5) Eine Druckerroutine ist im Programm nicht enthalten, da 
insbesondere für Grafiken die Drucker unterschiedliche Soft¬ 
ware benötigen. Mit der Taste 5 erhalten Sie einen Hinweis, 
wo Sie Druckerroutinen im Programm einbauen können. 

6) Dies ist die interessanteste Funktion des Programms. 
Hier können Sie Funktions-Grafiken berechnen, die ähnlich 
den Bildern 3 und 4 aussehen können. 

Nach Anwahl dieses Unterpunktes fragt Sie das Programm 
zuerst, ob Sie die Funktionsgleichung ansehen wollen (beim 
Start des Programmes ist dies die Nullfunktion). Danach 
erfolgt eine Abfrage, ob die Funktion geändert werden soll. Ist 
dies der Fall, so geben Sie bitte J ein. Ändern Sie nun die 
Funktion, schließen die Zeile mit < RETURN > ab und star¬ 
ten das Programm erneut. Wenn Sie nun die oben erwähnten 
Abfragen jeweils mit N quittieren, dann möchte das Pro¬ 
gramm von Ihnen die Intervalle von X und Y wissen, in denen 
die Funktion gezeichnet werden soll (die Werte der Intervalle 
sollten nicht zu groß gewählt werden - am besten zwischen 
0,5 und 2). Die Intervalle sind symmetrisch, das heißt, wenn 
Sie für XI = 5 eingeben, läuft das Intervall von -5 bis +5. 

Die Grafik ist für den Bildschirm nicht dimensioniert. Mit 
dem Dehnungsfaktor können Sie die Grafikfläche dehnen 
oder stauchen: 

- Stauchen: 0<den<1 

- Dehnen : den > 1 

Wahlweise kann ein Achsenkreuz mit in die Grafik einge¬ 
zeichnet werden. 

Bei Eingabe von »K« wird die Funktion in zwei senkrecht 
zueinander liegenden Geradenscharen abgetastet (Bild 3). 
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Bild 2. Das Meßdiagramm für die Windkanalmessung 


Die Eingabe von »P« tastet die Funktion in Ringen und 
Strahlen ab (Bild 4). 

Danach fehlt nur noch die Anzahl der Linien (2..50) oder, 
falls <P> gewählt wurde, die Anzahl der Kreise und 
Strahlen. 

Um eine Grafik komplett auf den Bildschirm zu bekommen, 
probieren Sie erst einmal mit kleiner Linienanzahl aus, wie die 
Grafik ungefähr aussehen wird und wo sie liegt. Ist dies 
geschehen und die Grafik liegt wie gewünscht, so können 
Sie die Berechnung noch einmal mit höherer Auflösung star¬ 
ten. 

Möchten Sie einen ersten Überblick über die 3D- 
Darstellung erhalten, so lassen Sie erst einmal die Nullfunk¬ 
tion berechnen. Diese Grundfläche wird bei anderen Funktio¬ 
nen im Raum praktisch gedehnt und verzerrt. 

7) Verlassen des Programms. Es wird einfach durch ein 
END beendet. 

Erweiterungsvorschläge 

Die unter Punkt 6) erzeugten Grafiken sind durchsichtig. 
Um verdeckte Flächen nicht zu zeichnen, kann das Pro¬ 
gramm wie folgt abgewandelt werden: 

Definition zweier weiterer Funktionen XX(X) und YY(Y), 
welches die partiellen Ableitungen von Z(X) sind: 

I bZ (x,y) bZ (x,y) \ 

\ 5x 5y ) 

Die Gerade im Raum, die genau in das Betrachterauge zeigt 
(also in der Grafik als Punkt dargestellt werden würde), 
besitzt folgende Koordinaten: 1, 1, 5/6 *]/3. 

Ist das Skalarprodukt zwischen der Betrachtergerade 
(Sichtvektor) und dem Flächennormalenvektor 



[ J i .-g.l)=(-XX(X),-VY(V)-1) 


Bild 3. Die Form einer Halbkugel ist deutlich erkennbar 


kleir:^ Null (Winkel zwischen FVektor und S-Vektor >90°), 
soll die Fläche nicht gezeichnet werden. Also: 

220 IF 5*SQR(3)/6-XX(X)-YY(Y)<0 THEN 250 

Die Funktionen müssen dabei analytisch berechnet wer¬ 
den. Wem die Grafik zu langsam läuft, sollte folgende FAST- 
und SLOW-Befehle eingeben: 

385 FAST 
425 SLOW 
475 FAST 
515 SLOW 
2120 FAST 
2420 SLOW 

Dabei wird, wie bekannt, der Bildschirm für die Dauer der 
Berechnung abgeschaltet. (Wolfgang Hummel/dm) 



Bild 4. Diese Funktion sieht wie ein etwas breiterer 
Frisbee aus 


Listing 1. Programm »Flächen im IR13«. 

Bitte im C128-Modus eingeben. 

150 COLOR 0,7s COLOR 1,2s CGLOR 4,12s GRAPHI 
C ls GRAPHIC 0 

160 BR=320: LE=200s DX=25s DY=25 
170 DIM M(DX,DY,2)s REM MESSWERTE 
180 GOTO 270 
190 s 

200 REM PROCEDURE PUNKTSETZEN 
210 s 

220 IF X=0 AND Y=0 THEN 250 

230 T=LE/2*(l+(X/Xl+Y/Yl)/2-FN Z<X>*«Xl+Yl>* 
DEN)s L=BR/2*(1+Y/<2*Y1)-X/<2*X1> > 

240 IF L>=0 AND L<BR AND T>=0 AND TCLE THEN 
DRAW 1,L,T 
250 RETURN 
260 s 

270 PRINT "<CLR,DOWN> <RVSON,10SPACEJFLAECHE 
N IM IRT3<12SPACE,RVOFF> " 

280 PRINT "<DOWN> GRAFIKAUFLOESUNG :I2SPACE> 


SONDERHEFT 6/86 


103 






















GRAFIK-ERWEITERUNG 


CI 28 


320 * 200” 

300 PRINT “{DOWNJ {RVSONJ1{RVOFFJ = GRAFIKBI 
LDSCHIRM SPEICHERN": PRINT "{DOWNJ {RVSO 
NJ2(RV0FFJ = GRAFIKBILDSCHIRM LADEN": PR 
INT "CDOWN> {RVSONJ3 {RVOFFJ = MESSWERTE 
SPEICHERN": PRINT "{DDWN> {RVSONJ4{RV0FF 
> = MESSWERTE LADEN" 

310 PRINT "{DOWNJ {RVSONJ5{RVOFFJ = DRUCKERR 
OUTINE" 

320 PRINT "(DOWNJ (RVSONJ6{RVOFFJ = GRAFIK D 
URCH 2-PAR. FUNKT. » 

330 PRINT "{DOWNJ {RVSONJ7{RVOFFJ = ENDE{2SP 
ACEJ" 

340 GET Ti: IF Ti="" OR ASC(Ti><49 OR ASC(Ti 
)>55 THEN 340 
350 : 

360 : REM GRAFIK SAVEN 
370 : 

380 IF Ti="l" THEN BEGIN : INPUT "{DOWNJ NAM 
EN DES GRAFIKFILES :" ; Ci 
390 GRAPHIC 2,0,22: PRINT "{14D0WNJ DAS SPEI 
CHERN DAUERT CA 5 MIN": Ci="G>"+Ci 
410 DOPEN #3,(Ci),W 

420 FOR 1=8192 TO 16191: PRINT#3,PEEK(I>: NE 
XT : DCLOSE #3: GRAPHIC 0: Ci=“": Ti= ,,M : 
BEND 

440 : 

450 REM GRAFIK LADEN 
460 : 

470 IF Ti="2" THEN BEGIN : INPUT "{DOWNJ NAM 
EN DES GRAFIKFILES :";Ci: GRAPHIC 1,1: C 
i="B>"+C* 

480 DOPEN #3,(Ci) 

490 FOR 1=8192 TO 16191: INPUT#3,B: POKE I,B 
: NEXT : DCLOSE #3: Ti="": Ci=“" 

510 PRINT "{20DOWN,16RI GHT, RVSON J2LZ. TASTE ZZ 
{RVOFFJ" 

520 DO WHILE Hi="" 

530 GET Hi: GRAPHIC 1,0: SLEEP 8 
540 GRAPHIC 2,0,23: PRINT CHRi(7);"{UPJ“: SL 
EEP 1: GET Hi: LOOP 
550 Hi="": PRINT ”{CLRJ": GRAPHIC 0 
560 BEND 
570 : 

580 REM MESSWERTE SPEICHERN 
590 : 

600 IF Ti="3" THEN BEGIN : Li="D>" 

610 INPUT "{CLR,2D0WNJ NAME DER MESSUNG :";C 

620 IF LEN(Ci)>14 THEN PRINT "{DOWNJ {RVSONJ 
ZZ ZU LANG ü{RVOFFJ": GOTO 610 
630 Ci=Li+Ci 

640 INPUT "{DOWNJ ANZAHL DER X-WERTE:";AX 
650 IF AX<3 OR AX>DX THEN PRINT "{DOWNJ 3 < 
AX <";DX: GOTO 640 

660 INPUT "{DOWNJ ANZAHL DER Y-WERTE:";AY 
670 IF AY<3 OR AY>DY THEN PRINT "{DOWNJ 3 < 
AY <";DY: GOTO 660 

680 INPUT "{DOWNJ X MIN , X MAX";X1,X2 
690 INPUT "{DOWNJ Y MIN , Y MAX";Y1,Y2 
700 PRINT "(DOWNJ SIE KOENNEN EINE ZEILE 'DA 
TENHINWEISE'(2SPACEJEINGEBEN ": Si="*" 
710 INPUT "{DOWNJ>";Si: PRINT "{DOWNJ EINEN 
MOMENT BITTE" 

720 FOR J=1 TO AY: FOR 1=1 TO AX: FOR K=0 TO 
2: M(I,J,K> =0: NEXT : NEXT : NEXT 
730 PRINT "(CLR,DOWNJ X & Y SIND DIE PARAMET 
ER" 

740 PRINT "(DOWNJ Z IST DER MESSWERT (BEACHT 
E GONG)(2D0WNJ" 

750 IF Mi="" THEN BEGIN : FOR J=1 TO AY: 1=1 
: PRINT "(2DOWNJ" 

752 PRINT USING " (RVSONJY{RVOFFJ ={2SPACEJ# 
###.###";Y1+(Y2-Y1)*(J-l)/(AY-1> 

754 INPUT "{UP,5RIGHTJ";M(I,J,1>: PRINT 
756 FOR 1=1 TO AX: PRINT USING " X =(2SPACEJ 
#*##.###";X1+(X2-X1> *(1-1)/(AX-1): INPUT 
"(UP,5RIGHTJ";M(I,J,0): M(I,J,1)=M(1,J, 
1): PRINT CHRi(7) 

758 PRINT USING " Z( ####.###";M(I,J,0) 


760 PRINT USING "(UP,12RIGHTJ ,####.###) = " 
; M (I, J , 1) 

761 INPUT " {14LEFT J";M(I,J,2>: PRINT 

762 PRINT : NEXT I: NEXT J 
764 BEND 

800 IF Mi="J" THEN BEGIN : FOR J=1 TO AY: 1= 
1: PRINT "(2D0WNJ" 

802 PRINT USING " (RVSONJY(RVOFFJ ={2SPACE># 
###.###";M(I,J,1) 

804 INPUT "(UP,5RIGHTJ";M(I,J,1): PRINT 
806 FOR 1=1 TD AX: PRINT USING " X ={2SPACEJ 
#4##.###";M(I,J,0>: INPUT ”(UP,5RIGHTJ" 5 
M(I,J,0>: M(I,J,1> =M(1,J,1): PRINT CHRi( 
7) 

808 PRINT USING " Z( ####.###" 5 M(I,J,0) 

810 PRINT USING "{UP,12RIGHTJ ,####.###) = “ 
;M(I,J,1) 

812 PRINT USING "{UP,28RIGHTJ ####.###";M(I, 
J ,2) 

814 INPUT “(14LEFTJ";M(I,J,2): PRINT 
816 PRINT : NEXT I: NEXT J: BEND 
860 PRINT "{DOWNJ MESSWERTE VERBESSERN = {RV 
SONJJ" 

870 GET Mi: IF Mi="" THEN 870 
880 IF Mi="J" THEN 750 

900 Mi="": PRINT "{DOWNJ SPEICHERN => {RVSON 
iZZ TASTE ZL" 

910 GET Ji: IF Ji="" THEN 910 

920 DOPEN #4,(Ci),W: PRINT#4,Si: PRINT#4,AX: 

PRINT44,XI: PRINT#4,X2: PRINT#4,AY 
930 PRINT#4,Y1: PRINT#4,Y2 

940 FOR J=1 TO AY: FOR 1=1 TO AX: FOR K=0 TO 
2: PRINT#4,M(I,J,K): NEXT K: NEXT I: NE 
XT J 

950 DCLOSE #4: PRINT "{DOWNJ FERTIG": Ci="": 
Ti="": BEND 

970 : 

980 REM MESSWERTE ZEICHNEN 
100t- IF Ti="4" THEN BEGIN 

1010 INPUT "{DOWNJ FILENAME :” S Ci: IF LEN(Ci 
)>14 THEN PRINT " {RVSONJZU LANG{RVOFFJ 
GOTO 1010 

1020 Ci="D>"+Ci: DOPEN #4,(Ci) 

1030 INPUT#4,Si,AX,X1,X2,AY,Y1,Y2: PRINT "(D 
OWNJ “;Si 

1040 FOR J=1 TO AY: FOR 1=1 TO AX: FOR K=0 T 
O 2 

1050 INPUT#4,M(I,J,K>: NEXT : NEXT : NEXT : 

DCLOSE 44: MAX=0: MIN=0 
1060 FOR 1=1 TO AX: FOR J=1 TO AY 
1070 IF M(I,J,2)>MAX THEN MAX=M(I,J,2) 

1080 IF M(I,J,2)<MIN THEN MIN=M(I,J,2> 

1090 NEXT : NEXT 

1100 CX=LE/(MAX—MIN+X2—X1+Y2—Y1): LS=(LE+(MI 
N—MAX > *CX)/2 

1110 PRINT "(CLR,DOWNJ (RVSONJG(RVOFFJ = GRA 
FIK" 

1120 PRINT "{DOWNJ (RVSONJT(RVOFFJ = TABELLE 

1130 PRINT "{DOWNJ {RVSONJE{RVOFFJ = ENDE" 
1140 GET Ii: IF (Ii< >"G" AND IiO"T” AND Ii<> 
"E") THEN 1140 
1150 IF Ii="G" THEN BEGIN 
1160 COLOR 0,7: COLOR 1,2: COLOR 4,12 
1170 GRAPHIC 1,1 

1180 FOR J=1 TO AY: FOR 1=1 TO AX 
1190 X=M(I,J,0>: Y=M(I,J,1): Z=M(I,J,2) 

1200 L=BR/2*<1+(X-X1)/(X2-X1)-(Y-Yl)/(Y2-Y1) 

) 

1210 T=LE+(MIN—Z)*CX-LS*((X-Xl)/(X2-X1)+(Y-Y 
1>/(Y2-Y1)) 

1220 IF HI=J THEN DRAW 1,L2,T2 TO L,T: ELSE 
BEGIN : DRAW 1,L2,T2: DRAW 1,L,T: BEND 
1230 L2=L: T2=T: HI=J: NEXT : NEXT 
1240 FOR 1=1 TO AX: FOR J=1 TO AY 
1250 X=M(I,J,0): Y=M(I,J,1): Z=M(I,J,2) 

1260 L=BR/2*(1+(X—XI)/(X2—XI)—(Y-Y1)/(Y2-Y1) 

> 

1270 T=LE+(MIN-Z)*CX-LS*((X-Xl)/(X2—XI>+(Y-Y 
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1) /(Y2—Y1)) 

1280 IF HI=I THEN DRAW 1,L2,T2 TQ L,T: ELSE 
BEGIN : DRAW 1,L2,T2: DRAW 1,L,T: BEND 
1290 L2=L: T2=T: HI=I: NEXT : NEXT 
1300 CHAR 1,35,22,"X ->”: CHAR 1,1,22,“<- Y" 
1310 T1 =LE+M I N*CX : T3=T1-LS 

1320 T4=LE+(MIN—M(1,1,2))*CX:. T5=LE+(MIN-M(A 
X,1,2)> *CX-LS: T6=LE+(MIN-M <1,AY,2)> *CX 
-LS 

1330 IF T1CLE THEN BEGIN : DRAW 1,0,T3 TD BR 
/2,T1 TO BR—1,T3: DRAW 1,0,T3 TO 0,T6: 
DRAW 1,BR/2,LE-1 TO BR/2,Tis DRAW 1,BR- 
1,T3 TO BR—1,T5 

1340 IF T6<T3 THEN PAINT ,1,T3-1 
1350 IF T5<T3 THEN PAINT ,BR-2,T3-1 
1360 BEND 

1370 IF T1>=LE THEN BEGIN : DRAW 1,0,T3 TO B 
R/2,LE-1 TO BR-1.T3: DRAW 1,0,T3 TO 0,T 
6 : DRAW 1,BR-1,T3 TO BR-1,T5: PAINT ,1, 
T3-1s DRAW 0,BR/2,LE—2 TO BR/2,T4: BEND 

1390 PRINT “C20DOWN,16RIGHT,RVSONJZZ TASTE 2 
ZCRVOFFJ" 

1400 DO WHILE H*="" 

1410 GET H*: GRAPHIC 1,0: SLEEP 8 
1420 GRAPHIC 2,0,23: PRINT CHRSC7) ; "CUPJ": S 
LEEP 1: GET H*: LOOP 
1430 H*="": PRINT "CCLRJ": GRAPHIC 0 
1440 BEND : REM ENDE GRAFIK 
1450 IF I$="T" THEN BEGIN 

1460 PRINT “CCLR,DOWN,2SPACEJWERTETABELLE" 
1470 PRINT "{DOWN} XC9SPACEJYC9SPACEJZC2SPAC 
E,DOWN}": SLEEP 1 
1480 FOR 1=1 TO AX: FOR J=1 TO AY 
1490 PRINT M(I,J,0),M(I,J,1),M(I,J,2) 

1500 NEXT : SLEEP 1: PRINT : NEXT 

1510 BEND : REM ENDE TABELLE 

1520 PRINT "CDOWNJ CRVSONJZZ TASTE 22" 

1530 GET JS: IF J*="" THEN 1530 
1540 IF T*="4" AND ISO"E" THEN 1110 
1550 BEND : REM ENDE MESSWERTE ZEICHNEN 
1560 : 

1570 REM DRUCKER 
1580 : 

1590 IF T*="5" THEN BEGIN 

1600 PRINT “CDOWNJ BITTE AB ZEILE 1600 EINBA 
UEN": SLEEP 2: T*="": BEND : REM ENDE D 
RÜCKER 
1610 : 

1620 REM GRAFIK VON 2-PARAMETR.FUNKT. 

1630 : 

1640 IF T*="6" THEN BEGIN PRINT "CCLRJ" 

1650 PRINT "CDOWNJ FUNKION EINSEHEN (J/N) ?" 
1660 GET K$: IF K*="" THEN 1660 
1665 IF K*=”J" THEN LIST 1780 
1670 PRINT "<DOWN> MOECHTEN SIE DIE FUNKTION 
AENDERN (J/N)“ 

1680 GET G*: IF G*= M " THEN 1680 
1690 IF G*="J" THEN PRINT•"CCLRJ": LIST 1700 
-1780: END 

1700 REM ***************************** 

1710 REM * SIE SIND IM DIREKTMODUS! * 

1720 REM * WAEHLEN SIE FNZ(X) ALS * 

1730 REM * FUNKTION VON X UND Y.POLE * 

1740 REM * UND UNSTETIGE STEL|_EN IN * 

1750 REM * ZEILE 220 AUSSCHLIESSEN. * 

1760 REM ***************************** 

1770 : 

1780 DEF FN Z(X>=0 
1800 : 

1810 : 

1820 REM MENUE 2 
1830 : 

1840 PRINT "CCLR,DOWNJ CRVSONJ PARAMETER DER 
GRAFISCHEN DARSTELLUNG CRVOFFJ" 

1850 INPUT "CDOWNJ INTERVALLGRENZE X:C-X1..X 
13 XI 

1860 IF X1=0 THEN PRINT "CDOWNJ CRVS0NJ##C2S 
PACEJX1O0C2SPACEJ## CRVOFFJ": GDTO 1850 
1870 INPUT "CDOWNJ INTERVALLGRENZE Y:C-Y1..Y 


13 ";Y1 

1BB0 IF Y1=0 THEN PRINT "CDOWNJ CRVS0NJ##C2S 
PACEJY1< J0C2SPACEJ##CRVOFFJ": GOTO 1870 
1890 X1=ABS(XI>: Y1=ABS(Y1) 

1900 INPUT "CDOWNJ DEHNUNGSFAKTOR FUER Z-ACH 
SE:";DEN 

1910 IF DEN<=0 THEN PRINT "CDOWNJ CRVSONJ## 
DENJ0 ## CRVOFFJ": GOTO 1900 
1920 PRINT "CDOWNJ ACHSENKREUZ ZEICHNEN (J/N 
) ?" 

1930 GET A*: IF A*="" THEN 1930 
1940 PRINT "CDOWNJ BITTE WAEHLEN" 

1950 PRINT "CDOWNJ CRVSONJKCRVOFF,2SPACEJ-C2 
SPACEJKARTHESISCHE KOORDINATEN" 

1960 PRINT "CDOWNJ CRVSONJPCRVOFF,2SPACEJ-C2 
SPACE JPOLARE C7SPACEJKOORDINATEN“ 

1970 GET P*: IF P*="" THEN 1970 
1980 IF(P*<>"P" AND P*<>"K") THEN 1970 
1990 IF P$="K" THEN BEGIN 
2000 PRINT "CCLRJ" 

2010 PRINT "CDOWNJ LINIENANZAHL (2..";LE/4 5 " 
)": INPUT "CI 6 LEFTJ" 5 LA 
2020 IF LA<2 OR LAJLE/4 OR LA-INT(LA)<>0 THE 
N PRINT "CDOWNJ CRVSONJ##C2SPACEJ1<LA<” 
;LE/4;”CLEFT,3SPACEJ##CRVOFFJ": GOTO 20 
10 

2030 LA=LA-1: BEND 

2040 IF P*="P" THEN BEGIN PRINT "CCLRJ“ 

2050 PRINT "CDOWNJ RINGANZAHL (2.." 5 BR/2;")“ 
: INPUT "CI5LEFTJ“;RA 

2060 IF RA<1 OR RAJBR/2 OR RA-INT(RA)<>0 THE 
N PRINT "CDOWNJ CRVS0NJ##C2SPACEJ1<RA<" 
;BR/2;“CLEFT,3SPACEJ##": GOTO 2050 
2070 INPUT "CDOWNJ STRAHLENANZAHL (PRO 2*±)" 
j SA 

2080 IF SA<3 OR SA>64 OR SA-INT(SA)<>0 THEN 
PRINT "CDOWNJ CRVSONJ##C2SPACEJ3<SA<64C 
2SPACE J## CRVOFF J“: GOTO 2070 
20' BEND 
2100 : 

2110 REM GRAFIKMODUS 

2160 GRAPHIC 1,1 

2190 IF A*="J“ THEN BEGIN 

2200 CHAR 1,37,24,"Y g" : CHAR l,0,24,"i. X": 
CHAR 1,19,0,"ÄH Z": DRAW 1,BR/4,LE/4 TO 
BR—1,LE—1: DRAW 1,0,LE-1 TO BR*3/4,LE/ 
4 

2250 DRAW 1,BR/2,0 TO BR/2,LE/2: BEND 
2280 REM KARTHESISCH 

2300 IF P*="K" THEN BEGIN 

2310 FOR 1=0 TO LA: FOR K=1 TO BR/2: X=X1*(1 
-4*K/BR): Y=Y1*(1-2*1/LA) 

2320 GOSUB 200: NEXT : NEXT 

2330 FOR 1=0 TO LA: FOR K=1 TO BR/2: X=X1*(1 
—2*1/LA): Y=Y1*(1—4*K/BR> 

2340 GOSUB 200: NEXT : NEXT : BEND 

2360 REM POLAR 

2380 IF P*=“P" THEN BEBIN 

2390 FOR R=1 TO RA: A=R/RA*(BR+LE): Q=2*W/A: 
X2=X1*R/RA: Y2=Y1*R/RA: FOR P=1 TO A: 
X=X2*C0S(Q*P): Y=Y2*SIN(Q*P>: GOSUB 200 
: NEXT : NEXT 

2400 FOR P=1 TO SA: X2=X1/LE*C0S(2*W*P/SA> : 
Y2=Y1/LE*SIN(2*#*P/SA): FOR R=1 TO LE: 
X=R*X2: Y=R*Y2: GOSUB 200: NEXT : NEXT 
: BEND 

2430 GRAPHIC 2,0,23: PRINT "C26D0WN,7SPACEJW 
EITER : CRVSONJZZ TASTE ZJ.CRVOFFJ": SLE 
EP 2 

2440 DO WHILE H*="" 

2450 GET H*: GRAPHIC 1,0: SLEEP 8 
2460 GRAPHIC 2,0,23: PRINT CHR*(7);"CUPJ": S 
LEEP 2: GET H*: LOOP 

2470 H$="": PRINT "CCLRJ": GRAPHIC 0: BEND 

2490 : REM ENDE 

2510 IF T*="7" THEN 2530 

2520 GOTO 270 

2530 END 

Listing 1. Programm »Flächen im IRI3« (Schluß) 
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C 64 


Umblenden wie im Film: 

Random Copy 


Ein Umblenden von hochauflösenden Grafikbil¬ 
dern, anstatt wie bisher ein hartes Wechseln der 
Bilder, ermöglicht dieses kleine und effektive Pro¬ 
gramm, wobei ganz besondere Effekte entstehen. 

H aben Sie sich nicht auch schon öfters daran gestört, 
daß das Wechseln von Grafikbildern auf dem Monitor 
sehr abrupt und übergangslos erfolgt? Dann können 
Sie jetzt aufatmen. Das folgende kleine Programm, »Random 
Copy«, läßt das Wechseln von Grafikseiten sehr langsam und 
»weich« vonstatten gehen. Dadurch wird ein interessanter 
Umblendeffekt erzielt, der das Betrachten von mehreren Bil¬ 
dern hintereinander zu einem kleinen Erlebnis macht. 

In den Bildern 1 bis 4 sehen Sie diesen Effekt dargestellt, 
wobei der Globus in Bild 2 durch Umblenden (in Bild 3 ist das 
etwa zur Hälfte erfolgt) langsam in Bild 4 übergeht. 

Nachdem Sie das kleine Programm (Listing 1) mit dem MSE 
abgetippt und auf eine Diskette gespeichert haben, können 
Sie es mit »LOAD "RANDOM COPY",8,1« wieder in den 
Computer laden. Der Start des Umblendens erfolgt jedesmal 
mit SYS 828. Dabei muß in der Speicherstelle $03F8 (1016) 
das höherwertige Byte der Startadresse des Bildschirms ste¬ 
hen, der kopiert werden soll. Liegt dieser Bildschirm bei 


$2000, so wird dessen Adresse also zum Beispiel mit 
»POKE 1016,32« übergeben (das höherwertige Byte von 
$2000 ist $20, was dem Dezimalwert 32 entspricht). Die 
Speicherstelle $03F9 (1017) enthält das höherwertige Byte 
des Zielbereichs. Hier wird also der Grafikspeicher angege¬ 
ben, in den die Grafik kopiert werden soll. Steht dort schon 
eine Grafik, die auf dem Bildschirm angezeigt wird, so erfolgt 
ein Überblenden mit dem neuen Bild. War dieser Bereich 
jedoch leer, so entsteht der Eindruck eines »Einblenden« der 
gewünschten Grafik. Für Interessierte haben wir in Listing 2 
auch den Source-Code von Random Copy abgedruckt. Es 
dürfte also kein Problem sein, eventuelle Änderungen vorzu¬ 
nehmen, wenn das notwendig sein sollte. 

Wichtig ist: Das Programm Random Copy übernimmt nur 
das »Umschaufeln« der Speicherbereiche, wobei diese auch 
unter dem Betriebssystem ($A000 oder $E000) liegen kön¬ 
nen. Für die Anzeige der Grafiken muß der Benutzer selbst 
sorgen, indem er den jeweiligen Grafikmodus aktiviert. Durch 
die Möglichkeit, auch Bereiche im RAM unter dem Betriebs¬ 
system kopieren zu können, ist Random Copy sehr flexibel 
und arbeitet auch mit Simons Basic zusammen. Durch die 
günstine Lage des Programms geht auch keinerlei Basic- 
Speici.orplatz verloren, so daß keine Schwierigkeiten mit 
Basic-Programmen auftreten dürften. (Stephan Arndt/ks) 
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NAME : RANDOM COPY 033C 03FF 


033C 

8 

A9 

05 

BD 

F6 

03 

20 

D3 

03 

31 

0344 

3 

78 

A9 

35 

85 

01 

AD 

1B 

D4 

22 

034C 

3 

6D 

F5 

03 

85 

FB 

85 

FD 

AD 

65 

0354 

: 

1B 

D4 

6D 

F4 

03 

29 

1F 

85 

D4 

035C 

8 

FC 

85 

FE 

18 

A5 

FC 

6D 

F8 

C7 

0364 

: 

03 

85 

FC 

18 

A5 

FE 

6D 

F9 

68 

036C 

8 

03 

85 

FE 

AD 

1B 

D4 

49 

FF 

25 

0374 

8 

29 

07 

AA 

BD 

EC 

03 

BD 

F7 

90 

037C 

8 

03 

A2 

00 

Al 

FB 

2D 

F7 

03 

14 

0384 

3 

FO 

07 

01 

FD 

81 

FD 

4C 

96 

5E 

038C 

8 

03 

AD 

F7 

03 

49 

FF 

21 

FD 

D9 

0394 

8 

81 

FD 

CE 

F4 

03 

DO 

AE 

CE 

75 

039C 

8 

F5 

03 

DO 

A9 

CE 

F6 

03 

DO 

CE 

03A4 

3 

A4 

AD 

F8 

03 

85 

FC 

AD 

F9 

AB 

03AC 

: 

03 

85 

FE 

A9 

00 

85 

FB 

85 

BE 

03B4 

8 

FD 

AO 

00 

A2 

1F 

Bl 

FB 

91 

EB 

03BC 

: 

FD 

BB 

DO 

F9 

E6 

FC 

E6 

FE 

60 

03C4 

8 

CA 

30 

06 

DO 

FO 

AO 

40 

DO 

F9 

03CC 

: 

EC 

A9 

37 

85 

01 

5B 

60 

EA 

36 

03D4 

t 

A9 

80 

8D 

18 

D4 

A9 

80 

BD 

DB 

03DC 

8 

OE 

D4 

SD 

OF 

D4 

A9 

00 

BD 

4F 

03E4 

8 

12 

D4 

A9 

Bl 

8D 

12 

D4 

60 

78 

03EC 

3 

01 

02 

04 

08 

10 

20 

40 

80 

F5 

03F4 

8 

FF 

FF 

05 

00 

EO 

20 

FF 

FF 

43 

03FC 

3 

FF 

FF 

FF 

FF 

OE 

01 

OD 

05 

22 


Listing 1. MSE-Listing von »Random Copy« 


1 

REM 

* 

RANDDM COPY - 

SOURCE TEXT 

2 

REM 

* 


(PROFIMAT) 

3 

REM 

* 



4 

REM 

* 

<W> 19B5 FRÄS 


5 

REM 

* 



6 

REM 

* 

STEPHAN ARNDT 


7 

REM 

* 

SUEDWESTKDRSQ 

62 

8 

REM 

* 

1000 BERLIN 41 

9 

REM 

* 




10 P0KE53280,1 
20 P0KE532B1,1 
30 PRINT"“ 

40 : 

50 SYS9*4096 
60 .OPT 00 
70 *= 828 

80 ; 

81 RAND = *D41B 

82 BET = *FB 

83 PUT = *FD 

87 ; 

88 s RANDOM COPY 
B9 ; 

90 ; UEBERTRABEN EINER BRAFIKSEITE 

91 j MIT ZUFAELLIBEN PUNKTEN 

92 ; 


100 

LDA 

#*05 


101 

STA 

COUNT+2 


102 

JSR 

RANDOM 


103 

SEI 



104 

LDA 

#53 

;KERNEL UND 

105 

STA 

*1 / 

5 BASIC WEB 

106 

i 



110 

START LDA RAND 

i ZUFALLSZAHL 

115 

ADC 

COUNT+1 

120 

STA 

BET 

j 

130 

STA 

PUT 

5 LOW-BYTES 

140 

LDA 

RAND 

5 ZUFALLSZAHL 

145 

ADC 

COUNT 

150 

AND 

#7.00011111 

5 0-31 

160 

STA 

BET+1 

;FUER HI-BYTE 

170 

STA 

PUT+1 

; 

180 

; 



200 

CLC 


( 

210 

LDA 

BET+1 

5 SOURCE-ADDRESSE 

220 

ADC 

SOURCE 

; BERECHNEN 

230 

STA 

BET+1 

i 

240 

CLC 


; 

250 

LDA 

PUT+1 

5 TARBET-ADRESSE 


260 

ADC 

TARBET 

;BERECHNEN 

270 

STA 

PUT+1 

3 

280 

1 



300 

LDA 

RAND 

; ZUFALLSZAHL 

305 

EOR 

#*FF 


310 

AND 

#7.111 

50-7 FUER 

320 

TAX 


3 

330 

LDA 

BITS,X 

;ZWEIERPOTENZEN 

340 

STA 

MASK 

;PUNKTADRESSIERUNB 

350 

s 



400 

LDX 

#*0 

3 

410 

LDA 

(BET) ,X 

;BYTE HOLEN 

420 

AND 

MASK 

;PUNKT NEHMEN 

425 

BEQ 

CL 


430 

ORA 

(PUT),X 

;EINSCHLUERFEN 

440 

STA 

(PUT),X 

5 UEBERTRABEN 

445 

JMP 

NT 


450 

CL LDA MASK 


455 

EOR 

#*FF 


460 

AND 

(PUT),X 


465 

STA 

(PUT),X 


495 

S 



500 

NT DEC COUNT 


510 

BNE 

START 


520 

DEC 

COUNT +1 


530 

BNE 

START 


540 

DEC 

COUNT+2 


550 

BNE 

START 


560 

3 



600 

LDA 

SOURCE 


610 

STA 

BET+1 


630 

LDA 

TARBET 


640 

STA 

PUT+1 


650 

LDA 

#*0 


660 

STA 

BET 


670 

STA 

PUT 


*** 

LDY 

#0 


690 

LDX 

#31 


700 

LP LDA (BET), 

.Y 

710 

STA 

(PUT),Y 


720 

DEY 



730 

BNE 

LP 


740 

INC 

SET+1 


750 

INC 

PUT+1 


760 

DEX 



765 

BMI 

RD 


770 

BNE 

LP 


775 

LDY 

#64 


780 

BNE 

LP 


782 

3 



785 

RD LDA #55 

5 KERNEL UND 

786 

STA 

*1 

}BASIC NORMAL 

787 

CLI 



790 

i 



795 

RTS 



799 

3 



800 

RANDOM NOP 


810 

LDA 

#*80 

1 ZUFALLSZAHL 

820 

STA 

*D418 

;AUS REBISTER 

830 

LDA 

#*80 

1#27 DES SID 

840 

STA 

*D40E 

5 (RAUSCHBENERATOR 

850 

STA 

*D40F 

5 DER 3. STIMME) 

870 

LDA 

#*0 

3 

875 

STA 

*D412 

; AUS 

BBO 

LDA 

#*81 

; EIN 

885 

STA 

*D412 

3 

890 

RTS 


895 

5 



900 

BITS .BYTE 

*1,*2,*4,*8,*10,*20,*40 

910 

COUNT .BYTE 

♦FF,*FF,*05 

920 

MASK .BYTE 

*0 

930 

SOURCE .BYTE 

*E0 

940 

TARBET .BYTE 

*20 


Listing 2. Der Source Code zu »Random Copy« 



SONDERHEFT 6/86 


107 










GRAFIK-ERWEITERUNG 


C 64 


IRQ-Basic - 
eine Erweiterung für 
Sprite-Fans 


Dieses Programm ist ein Leckerbissen für jeden, 
der gern Spiele programmiert. Neben mehr als 20 
Sprite-Befehien stehen Ihnen Befehle zur Verfü¬ 
gung, die die Programmierung des Video- und 
Sound-Chips erheblich erleichtern. 


I RQ-Basic (Listing 1) unterstützt mit über 70 Befehlen alle 
Möglichkeiten des C64. Es stellt dem Programmierer 
zwei Bildschirmfenster zur Verfügung, deren Größe er 
selbst bestimmen kann. Alle Betriebsarten des Video- 
Prozessors, zwei verschiedene Zeichensätze und Groß-/ 
Kleinschrift lassen sich miteinander mischen. Die zwei Zei¬ 
chensätze sind vollständig. Sie enthalten alle Grafikzeichen 
fürGroß-/Kleinschreibung und können frei programmiert wer¬ 
den (zum Beispiel Multicolor-Zeichen). 

Besonders die Sprite-Programmierung wird unterstützt. 
Diese ist mit fast 20 Befehlen vertreten und läßt keine Wün¬ 
sche offen. 

Die Register des SID lassen sich, soweit sie durch diese 
Befehle angesprochen werden, ab Adresse $8041 aus- 
lesen. 

Für den Programmierer stehen außerdem noch eine Reihe 
von Programmierhilfen zur Verfügung. Die Funktionen 
NORM, ?F@, HLP und RST sind in dieser Reihenfolge über 
die Funktionstasten Fl, F3, F5 und F7 erreichbar. 

Einzelheiten zum Programm 

Das Programm ist für den C64 ohne besondere Peripherie 
geschrieben worden. Lediglich der Befehl ?F@ benötigt ein 
Diskettenlaufwerk. Ist dieses nicht vorhanden, wird 
»7DEVICE NOT PRESENT ERROR« gemeldet. Alle anderen 
Befehle arbeiten auch mit der Datasette zusammen. Vbrsidnt! 
Das Programm (Listing 1) ist in gepackter Form veröffentlicht. 
Es wird mit dem MSE eingegeben und gespeichert. Möch ten 
Sie mit »IRQ-Basic« arbeiten, ist das Programm mit. 

LOAD "IRQ-Basic ", 8 
zu laden und durch 
RUN 

zu starten. 

Die beiden Zeichensätze tragen die Nummern eins und 
zwei. Diese Nummer ist bei den Befehlen »U«-Mode und »D«- 
Mode mit anzugeben. Die Voreinstellung beträgt für beide 
Zeichenfenster »1«. Also gilt Zeichensatz »2«. 

Zur Sprite-Programmierung muß man wissen, daß die 
Spritepointer für Text und Grafik verschieden sind. Für Text 
beginnen Sie bei $CFF8, für HiRes bei $87F8. Auch der zur 
Verfügung stehende Speicherplatz für Sprite-Daten ist unter¬ 
schiedlich. Er beträgt im Textmodus (MODI 0 bis 2) rund 
3000 Byte (von $0000 bis $CC00) und im HiRes-Modus 


384 Byte ($9E80 bis $A000; Block 122 bis 127). Wird der 
Text mit dem HiRes-Modus gemischt, kann auch noch ein Teil 
des Farb-RAMs ($8400 bis $8800) für Sprites genutzt 
werden. 

Wird der HiRes-Modus gewählt, muß gleichzeitig Zeichen¬ 
satz »2« (also Nummer 1!) gewählt werden, da sich das RAM 
für den hochauflösenden Bildschirm sonst verschieben 
kann. 

Hier noch einige Anmerkungen zu den bisher wenig behan¬ 
delten Modi des VIC: 

Modusnummer 1: 

Normale Zeichensatzdarstellung im Multicolor-Modus: 
Ausschlaggebend ist Bit 3 im Farb-RAM. Ist es gesetzt, so ist 
das Zeichen ein Multicolor-Zeichen. Wenn nicht, sieht es nor¬ 
mal aus. Bei einem Multicolor-Zeichen werden jeweils zwei 
Punkte zu einem zusammengefaßt, wobei die möglichen Bit- 
Musw über die Farbe des Punktes entscheiden: 


TYP: 


00 

01 

10 

11 


Farbe im Register für die Hintergrundfarbe 0 
Farbe im Register für die Hintergrundfarbe 1 
Farbe im Register für die Hintergrundfarbe 2 
Übrige Farb-RAM-Bits stellen Farbe 


Modusnummer 2: 

Extended Color Mode: 

Hierbei wird die Hintergrundfarbe des Zeichens von den Bits 
6 und 7 des Video-RAMs bestimmt. Die Bitkombinationen 
sind die gleichen wie bei Typ 1, lediglich bei der letzten (11) 
stammt die Farbe aus dem Register »3« für die Hintergrund¬ 
farbe. 

Modusnummer 4: 

Hochauflösende Farbgrafik: 

In dieser Betriebsart hat der Bildschirm nur eine Auflösung 
von 160*200 Punkten. Auch hier entscheidet die jeweilige 
Bitkombination wieder über die Herkunft der Punktfarbe. Für 
diesen Modus existiert ein eigener Befehl zum Setzen eines 
Punktes. Dieser Befehl heißt CSET. Neben der x- und 
y-Koordinate muß noch die Herkunft der Farbe angegeben 
werden. 

Hierbei bedeutet: 

0: Farbe aus dem Register 0 für die Hintergrundfarbe (also 
kein Punkt sichtbar) 

1: Video-RAM High-Nibble stellt Farbe 
2: Video-RAM Low-Nibble stellt Farbe 
3: Farb-RAM stellt Farbe. 

Speicheraufteilung: 

$0400 bis 07FF: Programmvariable für die Befehle 
SSPRITE und BSPRITE. 

$0800 bis 7FFF: Basic-Speicher 
$8000 bis 83FF: Programm erster Teil (Tabellen, Variable 
und so weiter) 

$8400 bis 87F7: HiRes-Farb-RAM. Achtung: Durch den 
Befehl GCOL werden die Spritepointer 
gelöscht. 
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erledigt werden. Diese Funktionen werden auf Rasterzeilen- 
und Timer-Interrupt aufgeteilt. 

RESET und NMI werden über die Modulkennung CBM 80 
ab $8004 gesteuert. Der Befehl CBASIC zerstört einfach 
diese Kennung und löst einen RESET aus. Der NMI zeigt zu 
Beginn auf eine Start-Routine ab $9821, die diesen Vektor 
auf den eigentlichen ProgrammNMI ab $98B5 umlenkt. 
Anschließend wird zum Programm-RESET verzweigt. 
Dadurch wird erreicht, daß das Programm nach dem Laden 
einfach durch Klopfen auf die RESTORE-Taste gestartet wer¬ 
den kann. Der Programm-RESET beginnt ab Adresse $9938. 

IRQ-Basic ist relativ einfach zu erweitern. Wenn man die 
Speichergrenze noch etwas herabsetzt und die Tabellen für 
Befehlswörter und Adressen in den freien Bereich verlegt, 
können noch eine Menge Befehle hinzugefügt werden (zum 
Beispiel LINE, CIRCLE und so weiter). Die Befehle HSET, 
CSET, BLOT und COFF sind so programmiert, daß sie sich 
ohne weiteres auch in Maschinensprache ansprechen 
lassen. 


VIC. 

a) Grafik 

GLD"Name",g: 

GSV"Name",g: 

GCLR: 

GCOL (Hintergrund, 
Punktfarbe): 

HSET x,y: 

BLOT x,y: 

CSET x,y,c: 


COFF x,y: 

INV: 

b) Blockgrafik: 

FIL (Bildschirm-Code, 
xl, yl, x2, y2, Farbe): 


CUR (x,y): 

BGR (cl, c2, c3): 

c) Sprites: 
NMOVE (Snr): 


EMOVE (Snr): 
WMOVE (Snr): 

SSET 

(Spritenummer, x, y): 
SELS (Snr): 


MULT (Snr): 
OMULT (Snr): 


($9A6C) lädt Grafik vom Gerät G 
nach $A000. 

($9A77) speichert Grafik auf 
Gerät G. 

($9164) löscht Grafik-RAM. 
($917D) setzt Farbe für Grafik. 

($91C2) setzt Grafikpunkte. 
($923D) löscht Grafikpunkte. 
($927A) setzt Farbgrafikpunkt. 
c=Farbe 0 bis 3 
0=kein Punkt 
1 =Video-RAM High-Nibble 
2=Video-RAM Low-Nibble 
3=Farb-RAM 

($9333) löscht Farbgrafikpunkt. 
($9CA4) invertiert Grafik ab 
$AOOO. 

(9B4F) füllt Rechteck mit Zei¬ 
chen des Bildschirm-Codes und 
der Farbe c, wobei xl und yl die 
Koordinaten der linken oberen 
Ecke und x2 und y2 die der 
rechten unteren Ecke sind. 
($9BD8) setzt Cursor an Position 
x, y. 

($924A) Farben der Backround- 
Register 1 bis 3. 

(8BAF) bewegt Sprites der Num¬ 
mern »Snr« nach Norden 
Beispiel: NMOVE (0, 4, 7) 
bewegt Sprites 0, 4, 7 in Rich¬ 
tung Nord. 

Ebenso: SMOVE (Snr): (8BE3) 
Richtung: Süd. 

($8C14) Richtung: Ost. 

($8C69) Richtung: West. 
($8CB3) setzt ein Sprite an die 
Position x y. 

($8D02) schaltet Sprite ein. 
Beispiel: SELS (0, 6) schaltet 
Sprites 0 und 6 ein. 

OSEL (Snr) schaltet Sprites aus. 
($8D63) selektiert Multicolor- 
Sprites. 

(8D8A) selektiert Normalsprites. 
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SCOL (Snr) c: 

($8DB6) setzt Farbe für ein 

Sprite. 

MCOL cl, c2: 

($8DD4) setzt Multicolor-Farben 
für alle Sprites. 

SYSP (Snr): 

($8DEA) vergrößert Sprite in y- 
Richtung. 

OYSP (Snr): 

($8E14) Gegenbefehl zu SYSP. 

SXSP (Snr): 

($8E40) vergrößert Sprite in x- 
Richtung. 

Gegenbefehl: OXSP ($8E64) 

SPRIOR (Snr): 

($8E90) setzt Sprite hinter den 
Hintergrund. 

Gegenbefehl: OPRIOR (Snr) 
($8EB4) 

SSPRITE (Snrl, Snr2) Z: ($8953) 

Bei Kollision mindestens zweier 
Sprites wird das laufende Pro¬ 
gramm unterbrochen und ab Zeile 
»Z« fortgesetzt. Alle Variablen 
bleiben dabei erhalten. Es wird 
also ein Sprung zur Zeile »Z« aus¬ 
gelöst (vergleiche »GOTO«). 

BSPRITE (Snr) Z: 

($89B5) 

Dieser Befehl ähnelt dem Befehl 
SSPRITE. Das laufende Pro¬ 
gramm wird unterbrochen, wenn 
das Sprite der Nummer »Snr« mit 
dem Hintergrund zusammenstößt. 
Es wird dann mit Zeile »Z« fortge¬ 
fahren. 


SID: 

NOISE (st, par, w, an, 
ab, ha, ak, I): 


PULS (st, pl): 

FFILT (ft): 
OFILT (st): 

RESON (r): 

VIB (st, vb): 


SFILT (st): 
SFK (fa): 


d) Sonstiges: 
FUCOL (C): 

FDCOL (c): 

BUCOL (C): 

BDCOL (C): 

UMODE (M, Znr): 


DMODE (M, Znr): 
UGS: 

UKS: 

DGS: 

DKS: 


($8304) setzt die Farbe »C« als 
Rahmenfarbe des oberen Bild¬ 
schirm-Fensters. 

($8316) setzt Farbe »C« als Rah¬ 
menfarbe des unteren Bildschirm- 
Fensters. 

($8328) setzt Farbe »C« als 
Farbe des Bildschirm-Interrupts 
des oberen Bildschirm-Fensters. 
($833A) Farbe des Hintergrun¬ 
des des unteren Bildschirm- 
Fensters. 

($8803) setzt Modus im oberen 
Bildschirm-Fenster. Dabei bedeu¬ 
tet M: 

0: Normaler Textmodus 
1: Normale Zeichendarstellung im 
Mehrfarbenmodus 
2: Erweiterter Farbmodus 
3: Hochauflösende Grafik mit 
320x200 Punkten 
4: Hochauflösende Farbgrafik 
mit 160x200 Punkten 
Znr gibt die Nummer des 
aktuellen Zeichensatzes an. 

0: Zeichensatz 1 
1: Zeichensatz 2 
($88AE) wie UMODE, jedoch für 
den unteren Bildschirmteil. 
($9A90) setzt Großschrift im 
oberen Bildschirmteil. 

($9AA2) setzt Kleinschrift im 
oberen Bildschirmteil. 

($9A99) setzt Großschrift im 
unteren Bildschirmteil. 

($9AAB) setzt Kleinschrift im 
unteren Bildschirmteil. 


FRQ (st, par): 

CIA 2 (Uhr): 

TIME (hh, mm, ss): 

TODON: 

TODBRK: 

RTIME: 

ALARM (hh, mm, ss) Z: 


Floppy 1541: 

?F@: 


Zeichensätze: 

CDEF 

(BC, Dl, D2....D8): 
CHANGE: 


($8F65) 

Tonerzeugung: 
st: Stimme 1 bis 3; 
par: Frequenzparameter (siehe 
Tabelle im Commodore- 
Handbuch; 
w: Wellenform; 
an: Anschlag 0 bis 15; 
ab: Abschwellen 0 bis 15; 
ha: Halten 0 bis 15; 
ak: Ausklingen 0 bis 15; 

I: Lautstärke 0 bis 15; 

Beispiel: NOISE (1, 7493, 33, 0, 
0, 15, 0, 15) erzeugt Dauerton 
von 440Hz auf Stimme 1 
($9025) setzt Tastenverhältnis 
für Stimme 1 bis 3 für Wellenform 
puls. 

($906D) setzt Filtereckfrequenz. 
($9092) Gegenbefehl zu SFILT 
(st). 

($90B6) setzt Resonanz 0 bis 
15. 

($90DF) verändert die Frequenz 
der Stimme st um vb-Einheiten 
bei jedem zweiten Timer-IRQ. Der 
Ton beginnt zu schwanken 
(Geräusche). 

($9145) leitet Stimme über Filter. 
($9A0A) selektiert Filterart 0 bis 
15. 

Bit 0: Tiefpaß 

Bit 1: Bandpaß 

Bit 2: Hochpaß 

Bit 3: Stimme 3 aus 

($9A2E) setzt Frequenz für eine 

Stimme. 

($8A19) setzt Echtzeituhr. Für 
Stunden, Minuten und Sekunden 
sind keine Variable zugelassen. 
($8B07) blendet die Zeit links 
oben in der aktuellen Cursorfarbe 
ein. 

Gegenbefehl: OFFTOD: ($8B13) 
($8B21) hält Uhr an. 

Gegenbefehl: 

TODCONT: ($8B2B) läßt Uhr wie¬ 
der weiter laufen. 

($8B35) druckt Uhrzeit an Cur¬ 
sorposition aus. 

($8ABC) stellt die Alarmzeit. Für 
hh, mm und ss sind Variable 
unzulässig! Bei Erreichen der 
Alarmzeit wird das laufende Pro¬ 
gramm ab Zeile Z fortgesetzt. 


($8EDA) druckt Floppy-Fehlerka- 
nal an der Cursorposition aus. 

($834C) definiert Zeichen mit 
Bildschirm-Code BC im Zeichen¬ 
satz 2 ab $F000. 

($8383) vertauscht beide Zei¬ 
chensätze miteinander. Dabei 
geht eine eventuell vorhandene 
Grafik ab $A000 verloren! 
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CHAR: 

($9ABC) erneuert Zeichensatz 2 
ab $F000. 

LZS"Name", g: 

($9BCD) lädt Zeichensatz ab 
SFOOO. 

SZS"Name", g: 

(S9BF6) speichert Zeichensatz 
ab SFOOO. Da dieser zuerst nach 
SAOOO kopiert werden muß, geht 
eine eventuell vorhandene Grafik 
verloren. 

Sonstige: 

HLP: 

(S9E04) listet alle neuen Befehle 
auf. 

RST: 

(SFCE2) System-Reset. 

CBASIC: 

(S8EF9) Rückkehr ins 



Commodore-Basic. 

RENEW: 

(S8F48) Gegenbefehl zu NEW. 

SCL: 

(SE8EA) Scrolling des Bild¬ 
schirms. 

NORM: 

(S8F04) setzt Normalmodi und 
Farben. 

RAST (RA): 

(S82E7) Bildschirmeinteilung 
(Rasterzeile 0 bis 249). Normal¬ 
einstellung ist 0. 

IRQ: 

(S9AB4) setzt sämtliche IRQ- 
Arten zurück. Die Befehle 

ALARM, SSPRITE, BSPRITE wer¬ 
den rückgängig gemacht. 

(U. Schwickerath/ah) 
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GRAFIK-ERWEITERUNG 


C 64 



Grafik 2000 - 
eine Bask-Erweiterung, 
die es in sidi hat 


Diese sehr schnelle Befehlserweiterung für den 
C64 stellt Ihnen 41 neue Basic-Befehle und zwei 
neue Funktionen zur komfortablen Handhabung 
der mehrfarbigen HiRes-Grafik zur Verfügung. 

D ie Befehle sind, wie die Befehle des Basic V2, abkürz- 
bar, vollkommen in den Interpreter integriert und wer¬ 
den selbstverständlich als Token gespeichert. Selbst 
nach »THEN« ist kein Doppelpunkt notwendig. 

Da die zwei unabhängigen Grafikschirme und das Pro¬ 
gramm selbst außerhalb des Basic-Speichers liegen, stehen 
dem Benutzer weiterhin 38911 Byte für seine Programme 
zur Verfügung. Auch Sprites benötigen keinen Basic- 
Speicherplatz. 

Grafik 2000 (Listing 1) unterstützt die farbige HiRes-Grafik 
des C 64. Diese Grafik ist aus 320 * 200 einzeln ansprech¬ 
baren Punkten aufgebaut. Dabei befindet sich der Punkt mit 
den Koordinaten 0/0 in der linken oberen und der Punkt mit 
den Koordinaten 319/199 in der rechten unteren Ecke des 
Bildschirmes. 

Die Farbinformation für je 8 * 8 Punkte liegt im sogenann¬ 
ten Video-RAM. Hier steht in den oberen vier Bits die Farbe 
für einen gesetzten, in den unteren vier Bits die Farbe für 
einen gelöschten Punkt. Für den Anwender bedeutet dies, 
daß in einem 8 * 8-Punkte-Kästchen nur zwei verschiedene 
Farben Vorkommen können. 

Anmerkung: Hinter dem Befehlsnamen steht die jeweilige 
Abkürzung, wobei»'« bedeutet, daß der folgende Buchstabe 
geSHIFTet eingegeben werden muß. 

CLEAR CL’E 

Löscht den gesamten Grafikbildschirm. Die Farbe bleibt 
dabei unverändert. 

MODE n M’O 


Wenn n=1 ist, wird der Grafikmodus eingeschaltet; ist n=0, 
wird auf den Textbildschirm geschaltet. Dabei wird der 
Groß/Grafik-Modus eingeschaltet. 

COLOR p,h CO’L 

Setzt die Farben im Video-RAM. Dabei steht p für die Punkt¬ 
farbe und h für die Hintergrundfarbe. Es können Werte von 0 
bis 15 für die Farben stehen. 

CHANGE CH’A 

CHANGE wechselt zwischen den beiden Grafikschirmen, 
indem die jeweiligen Punkte ausgetauscht werden. 

INVERS |N-v 

Invertiert die sichtbare Grafik. Das Video-RAM bleibt unver¬ 
ändert. 

COMB n CO’M 

COMB führt eine logische Verknüpfung zwischen den bei¬ 
den Grafikseiten aus. Das Ergebnis wird in die sichtbare Gra¬ 
fik geschrieben. Die Verknüpfungsart ist mit n wählbar: 
n = 1: logisch OR 

n=2: logisch AND 

n=3: logisch EXOR 

GSAVE a$,dv G’S 

GSAVE speichert die verdeckte Grafik mit dem Namen a$ am 
Gerät mit der Nummer dv ab. Die Parameter können entfallen. 
Beispiel: 

GSAVE "BILD 1 ",8 Speichert die Grafik BILD 1 

auf Diskette 

GSAVE Speichert die Grafik ohne 

Namen auf Kassette ab. 

CSAVE a$,dv c’S 

Speichert das Video-RAM, die Farbe der Grafik. 

Die Parameter sind analog zu GSAVE. 

GLOAD a$,dv Q’L 

Mit GLOAD kann man die mit GSAVE gespeicherte Grafik 
oder das mit CSAVE gespeicherte Video-RAM laden. 
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C 64 


GRAFIK-ERWEITERUNG 


Da dieser Befehl keine Basic-Zeiger verändert, eignet er sich 
auch zum Laden von Maschinenprogrammen, auch im Direkt¬ 
modus. 

SPOINT x,y SP’O 

Setzt einen Punkt an die Stelle x/y in der Grafik. 

CPOINT x,y C’P 

Löscht den Punkt x/y. 

IPOINT x,y PS’C 

Invertiert den Punkt x/y 

PSCLINE x,y PS’C 

Setzt den Punkt x/y und löscht ab diesem Punkt eine Linie 
nach unten bis zum Grafikrand. Der Befehl ist besonders für 
3D-Grafiken geeignet. 

HMARK x,y H’M 

Setzt eine waagrechte »Markierung« an den Punkt x/y, das 
heißt, es wird eine fünf Punkt lange Linie gezeichnet, deren 
Mittelpunkt der Punkt x/y ist. 

VMARK x,y V’M 

Analog HMARK, jedoch wird eine senkrechte Markierung 
gezeichnet. 

HÜNE y H’L 

Zeichnet eine durchgehende Horizontale an y. 

VLINE x V’L 

Zeichnet eine durchgehende Vertikale an x. 

Mit den letzten vier Befehlen ist es möglich, schnell und ein¬ 
fach Koordinatensysteme zu zeichnen. 

SLINE x0,y0,x1,y1 S’L 

Zeichnet eine Linie von xO/yO nach xl/yl. Die Richtung 

beziehungsweise Länge ist beliebig. 

CLINE x0,y0,x1,y1 CL’I 

Wie SLINE, die Linie wird jedoch gelöscht 
ILINE x0,y0,x1,y1 l’L 

Wie SLINE, die Linie wird jedoch invertiert. 

SCIRCLE x,y,a,b S’C 

Zeichnet eine Ellipse mit dem Mittelpunkt x/y und den Radien 
a und b. 

CCIRCLE x,y,a,b C’C 

Wie SCIRCLE, die Ellipse wird jedoch gelöscht. 

ICIRCLE x,y,a,b l’C 

Wie SCIRCLE, die Ellipse wird jedoch invertiert. 

SELLIPSE x,y,a,b,dw,sw,ew,s S’E 

Zeichnet einen Ellipsenbogen mit dem Mittelpunkt x/y und 
den Radien a und b. 

Die weiteren Parameter bedeuten: 

dw Drehwinkel der Hauptachse einer Ellipse um den 

Mittelpunkt. Die Ellipse wird mit dw im Uhrzeiger¬ 
sinn um den Mittelpunkt x/y gedreht, 
sw, ew sw und ew geben den Start- und Endwinkel des 
Ellipsenbogens an. 

s gibt den Schrittwinkel an, mit dem die einzelnen 

Bogenpunkte errechnet werden. 

Der Befehl errechnet einzelne Punkte des Ellipsenbogens, 
die mit einer Linie verbunden werden. Die Winkel müssen im 
Bogenmaß angegeben werden. Die Drehungen werden im 
Uhrzeigersinn ausgeführt. 

CELLIPSE x,y,a,b,dw,sw,ew,s C’E 

Wie SELLIPSE, der Bogen wird jedoch gelöscht. 

IELLIPSE x,y,a,b,dw,sw,ew,s l’E 

Wie SELLIPSE, der Bogen wird jedoch invertiert. 

STEXT r,b,h,v,a,x,y,a$ STE’X 

Schreibt einen Text in den Grafikschirm. 

Die einzelnen Parameter bedeuten: 
r Schreibrichtung 

r = 1 von links nach rechts 
r = 2 von rechts nach links 
r = 3 von unten nach oben 
r = 4 von oben nach unten 
Die Schrift ist, der Richtung entsprechend, 
gekippt. 


b Breite eines einzelnen Zeichens; von 1 (normal) 

bis 25 möglich. 

h Höhe eines Zeichens (von 1 bis 25). 

v Verschiebung (Kursivschrift) 

v gibt die Verschiebung eines Zeichens von sei¬ 
ner Spitze zum Fuß an. 

v kann Werte von 0 (normal) bis zum achtfachen 
(45 Grad Schräge) der Höhe h annehmen, 
a Abstand der Zeichen, a kann Werte von Obis 199 

annehmen. Für Normalschrift ist a=8. 
x und y Geben die Startkoordinaten an. 
x/y ist die linke obere Ecke des ersten Zeichens 

eines Strings. 

a$ String- oder numerischer Ausdruck, der ge¬ 

zeichnet werden soll. 

Im String kann zwischen den Zeichensätzen 

umgeschaltet werden: 

ctrl/9 rvs on 

ctrl/O rvs off 

ctrl/a Groß/Klein 

ctrl/b Klein/Groß 

Ohne Umschaltung wird mit dem Groß/Grafik- 
Zeichensatz in Normalschrift gearbeitet. 
Hinweis: Wenn ein String außerhalb des Bildschirmes und 

mit großen Buchstaben gezeichnet wird, kann es 
Vorkommen, daß der Computer bis zu zwei Minu¬ 
ten lang keine Meldung ausgibt. Er ist nicht abge¬ 
stürzt, sondern fährt anschließend mit der Pro¬ 
grammausführung fort. 

CTEXT r,b,h,v,a,x,y,a$ C’T 

Wie STEXT, der Text wird jedoch gelöscht. 

ITEXT r,b,h,v,a,x,y,a$ l’T 

Wie STEXT, jedoch wird der Text invertiert. 

RL* x,y F’l 

Malt ein durch Linien oder den Bildschirmrand begrenztes 
Feld beliebiger Form aus. 
x/y geben die Startkoordinaten an. 

DUPLICATE x0,y0,x1,y1,x,y D’U 

Kopiert einen Grafikausschnitt. 

Dabei geben xO/yO und xl/yl die Eckpunkte (links oben/ 
rechts unten) eines Rechtecks an, das nun so kopiert wird, 
daß x/y die Koordinaten der linken oberen Ecke der Kopie 
angeben. 

Der Ausschnitt wird so kopiert, daß die Kopie exakt dem 
Original entspricht. Das Original kann also überschrieben 
werden. 

SCROLL r,x0,y0,x1,y1 SC’R 

Rolliert einen Grafikausschnitt um einen Punkt. 

Der Ausschnitt wird mit xO/yO und xl/yl analog zu DUPLI¬ 
CATE definiert. 

r bestimmt die Richtung des Rollierens: 
rl = nach rechts 
r2 = nach links 
r3 = nach oben 
r4 = nach unten 

WINDOW y0,y1 W’l 

WINDOW ermöglicht die gleichzeitige Anzeige von Text und 
Grafik. Die beiden Übergangszeilen dazu sind frei wählbar. 
Die Parameter geben die erste (yO) und letzte (yl) Zeile im 
Grafikmodus an. Der restliche Bildschirm wird im Textmodus 
ausgegeben. In den Grenzzeilen sollten keine Textzeichen 
stehen; der VIC kann diese unter Umständen nicht von der 
Grafik unterscheiden und unsinnige Zeichen anzeigen. 
WINDOW hat Vorrang vor MODE n. 

WINDOW yO.yl wird durch WINDOW ohne Parameter abge¬ 
schaltet. Der Groß/Grafik-Textmodus wird eingeschaltet. 
LOWCOL x,y,p,h LO’W 

Mit LOWCOL kann man gezielt ein Byte des Video-RAMs 
ändern. 
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x/y geben die Koordinaten des entsprechenden Grafikpunk¬ 
tes an, p die Punkt- und h die Hintergrundfarbe. 

SPRITE n,x,y SP’R 

Mit Sprite kann man die Form eines Sprites anhand der Grafik 
definieren. 

n gibt die Nummer des Sprites an (0-7) und x/y die Koordina¬ 
ten der linken oberen Ecke eines Grafikausschnittes, nach 
dem die Spriteform gebildet wird (siehe auch DUPLICATE). 
Diese Form wird jedoch nicht einem Sprite zugeordnet; die 
Nummer n zeigt vielmehr die Blocknummer an, in den die 
Spriteform abgelegt wird. Dies sind die Blöcke 120 (n=0) bis 
127 (n=7). 

Die Blockzeiger liegen in den Adressen 50168 bis 50175 
und müssen mit POKE gesetzt werden. 

Hinweis: Die Spriteformen gelten nur im Grafikmodus. Im 
Textmodus gelten die gewohnten Regeln zum Arbeiten mit 
Sprites von Basic aus. 

Das bedeutet, daß man mit WINDOW »gemischte« Sprites 
erzeugen und zwischen den zwei Definitionssätzen umschal¬ 
ten kann. 

SSAVE n,n$,dv S’S 

Speichert einen Spriteblock mit dem Namen n$ auf dv ab. 
Zur Nummer n (0-7) siehe auch SPRITE. 

SLOAD n,n$,dv SL’O 

Lädt den Spriteblock n. Die Nummer, unter der der Block 

gespeichert wurde, ist irrelevant. Siehe auch SPRITE und 

GLOAD. 

Grafik 2000 besitzt vier weitere Befehle, die die meisten übri¬ 
gen Befehle verändern und diese somit auf 140 verschie¬ 
dene Funktionen erweitern. 

PSCREEN n PSC’R 

n = 2 Alle Befehle, die die Grafik verändern, wirken 
nicht mehr auf die sichtbare, sondern auf die 
unsichtbare, zweite Grafik. 

(CLEAR,COMBI,HLINE,INVERS,TEXT,LINE, 
CIRCLE,FILL, etc.) 

n = 1 Die Befehle wirken wieder auf die sichtbare 
Grafik. 

TSCREEN n T ’ S 

n = 2 Die Befehle SPRITE, SCROLL und DUPLICATE 

sowie die Funktionen TEST und CTEST testen 
nicht in der sichtbaren, sondern in der unsicht¬ 
baren Grafik. 

Man kann also mit DUPLICATE Ausschnitte der 
einen in die andere Grafik übertragen, 
n = 1 schaltet zurück in die sichtbare Grafik. 
COLPLOT p,h COL’P 

COLPLOT ermöglicht das mehrfarbige Zeichnen in der 

HiRes-Grafik. 

Parameter: 


owa<i-w?JM3s 

GRAFIK 2O00 
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Bild 1. Der komfortable »Text«-Befehl eignet sich hervorragend 
zur Beschriftung von Grafiken. Aber auch zur Gestaltung 
eigener Videovorspanne ist er bestens geeignet. 


p Punktfarbe (0-15) 

h Hintergrundfarbe (0-15) 

COLPLOT p,h bewirkt, daß die Befehle 
SPOINT SLINE SCIRCLE SELLIPSE 

STEXT FILL SCROLL DUPLICATE 

von nun an das Video-RAM mit der Punktfarbe p setzen. 
Jeder gesetzte Punkt erhält also die Farbe p; die Farbe der 
nicht gesetzten Punkte bleibt erhalten. 

COLPLOT bewirkt außerdem, daß die Befehle 
C POINT CLINE CCIRCLE CELLIPSE 

CTEXT SCROLL DUPLICATE 

das Video-RAM mit der Hintergrundfarbe setzen. 

Jeder gelöschte Punkt erhält die Farbe h; die Farbe der 
gesetzten Punkte wird nicht verändert. 

Die Befehle SCROLL und DUPLICATE setzen sowohl 
Hintergrund- als auch Punktfarbe, je nachdem, ob ein Punkt 
gesetzt oder gelöscht wird. 

Die Option kann mit COLPLOT ohne Parameter abgeschaltet 
werden. 

PLOT n p>L 

n = 2 
Die Befehle 

SPOINT SLINE SCIRCLE SELLIPSE 

STEXT SCROLL DUPLICATE 

arbeiten nicht mehr mit der normalen Punkt-Setzroutine, son¬ 
dern mit der PSCLINE-Routine. 

Es wird also unter jedem gezeichneten Punkt eine Linie bis 
zum Bildschirmrand gelöscht. 

Es lassen sich auf einfachste Weise effektvolle 3D-Bilder auf 
den Bildschirm zaubern. 

Dieser Befehl arbeitet unabhängig von COLPLOT. 

Es wird nur die Farbe des gezeichneten Punktes gesetzt; die 
Lösel ,!in:e verändert keinesfalls das Video-RAM. 
n = 1 Schaltet wieder die normale Punktsetzroutine 
ein. 

Hinweis: Die invertierten Befehle werden weder von COL¬ 

PLOT noch von PLOT beeinflußt. 

Testfunktionen 

var = TEST (x,y) t’E 

Weist der Variablen var den Wert 1 zu, wenn der Punkt x/y 
gesetzt ist, ansonsten den Wert 0. 

var = CTEST (x,y) CTE’S 

Weist der Variablen var die sichtbare Farbe des Punktes x/y 
zu (0 bis 15). 

Siehe auch TSCREEN. 

Damit Sie sehen, was in dem Programm »Grafik 2000« 
steckt, folgen zwei Demo-Listings. Listing 2 demonstriert die 
Vielfalt der Schriftarten, die durch Variation einiger, weniger 
Parameter entsteht. Die so erzeugten Schrifttypen lassen 
sich natürlich in jede Grafik einblenden (Bild 1). Mit nur weni¬ 
gen Befehlen können Sie die schönsten Bilder konstruieren. 
Listing 3 zeigt die Anwendung des »ILINE«-Befehls. Die dazu¬ 
gehörige Hardcopy zeigt Bild 2. Übrigens, in Grafik 2000 ist 
keine Hardcopyroutine integriert. Dafür wurde im 64'er, Aus¬ 
gabe 5/86 das Programm »Super Print« veröffentlicht, das 
ganz hervorragend mit Grafik 2000 zusammenarbeitet und 
zwar auf jedem 8-Nadel-Drucker, der über ESC-Sequenzen 
»CHR$(27)« angesteuert wird. 

Sonstiges 

Grafik 2000 stellt dem Benutzer eine verbesserte SQR- 
Routine zur Verfügung. Sie wurde bereits in den Interpreter 
eingebunden. 

Wenn eine Basic-Fehlermeldung ausgegeben wird, schal¬ 
tet Grafik 2000 den Textmodus ein, und der Befehl WINDOW 
wird abgeschaltet. 

Grafik 2000 verfügt über eine eigene NMI/BREAK-Rou- 
tine. 

Diese schaltet den Textmodus ein, den Befehl WINDOW ab 
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und setzt Rahmen/Hintergrund- und Schriftfarben. 

Diese Farbe kann man durch POKE selbst bestimmen: 
POKE 51071,Hintergrundfarbe 
POKE 51079,Schriftfarbe 

Die Farben werden bereits beim Drücken der RESTORE- 
Taste ohne die RUN/STOP-Taste gesetzt. 


Das Programm wird hierbei nicht unterbrochen. 

Während der Computer Befehle ausführt (ausgenommen 
ELLIPSE), kann man ihn durch nichts in seiner Arbeit stören. 

Auch RUN/STOP-RESTORE ist erst nach dem Ausführen 
eines solchen Befehls möglich. 

(Frank-Rüdiger Brendel/ah) 


Listing 1. 

Programm »Grafik 2000«. Bitte mit 
dem MSE auf Seite 8 eingeben 


name s grafik 2000 0801 2298 


0801 

: 

30 

08 

c 1 

07 

9e 

20 

32 

30 

9b 

0809 

: 

39 

30 

0d 

0d 

0d 

0d 

05 

47 

lf 

0811 

: 

52 

41 

46 

49 

4b 

20 

32 

30 

9d 

0819 

3 

30 

30 

20 

42 

59 

20 

46 

52 

06 

0821 

s 

41 

4e 

4b 

20 

42 

52 

45 

4e 

c9 

0829 

: 

44 

45 

4c 

0d 

0d 

0d 

00 

00 

fe 

0831 

: 

00 

78 

a9 

34 

85 

01 

a0 

if 

7t 

0839 

: 

b9 

34 

0C 

99 

14 

03 

BB 

10 

de 

0841 

: 

f7 

a9 

16 

8d 

00 

03 

a9 

c7 

92 

0849 

: 

Bd 

01 

03 

a0 

07 

b9 

97 

08 

d8 

0831 

: 

99 

04 

03 

BB 

10 

f 7 

cB 

a9 

f5 

0B59 


c4 

85 

15 

84 

14 

a9 

08 

85 

6f 

0861 

: 

fe 

a9 

a0 

85 

f d 

a2 

la 

bl 

cd 

0869 

: 

f d 

91 

14 

88 

dß 

f 9 

e6 

fe 

bb 

0871 

: 

e6 

15 

ca 

d0 

f 2 

a9 

37 

85 

13 

0879 

: 

01 

20 

ed 

c7 

20 

24 

c9 

20 

89 

0881 

: 

ed 

c7 

20 

86 

c7 

20 

22 

e4 

fb 

0889 

: 

a0 

B0 

b9 

2d 

07 

20 

d2 

ff 

6a 

0891 

: 

c8 

d0 

f 7 

4c 

9d 

e3 

00 

c4 

cb 

0899 


la 

c5 

bb 

c4 

99 

c6 

00 

a6 

3a 

08a 1 

: 

7a 

aß 

04 

84 

0f 

bd 

00 

02 

e0 

0Ba9 

: 

10 

07 

c9 

ff 

+ß 

3e 

e8 

d0 

f 5 

08b 1 

: 

f 4 

c9 

20 

fe 

37 

85 

08 

c9 

03 

08b 9 


22 

+ 0 

56 

24 

0f 

70 

2 d 

c9 

2 a 

08c 1 

3 

3f 

d0 

04 

a9 

99 

d0 

25 

c9 

e7 

08c9 

: 

30 

90 

04 

c9 

3c 

90 

Id 

84 

41 


08dl 

: 

71 

aß 

ßß 

84 

Bb 

ae 

B6 

7a 

27 

08d9 

: 

ca 

cB 

eB 

bd 

ßß 

82 

3B 

f 9 

de 

08el 

: 

9e 

aß 

fß 

fS 

c9 

88 

dß 

38 

0e 

0Be9 

: 

05 

ßb 

a4 

71 

eB 

cB 

99 

fb 

fe 

08f 1 

: 

01 

b9 

fb 

ßl 

fß 

57 

38 

e9 

6c 

0Bf 9 

: 

3a 

te 

B4 

c9 

49 

dß 

82 

85 

14 

0901 

: 

0f 

38 

e9 

55 

dB 

9f 

85 

BB 

81 

0909 

r 

bd 

ßß 

82 

fß 

df 

c5 

BB 

fß 

93 

0911 

: 

db 

cB 

99 

fb 

81 

eB 

dß 

fß 

b3 

0919 

: 

a6 

7a 

■6 

ßb 

cB 

b9 

9d 

aß 

29 

0921 

s 

10 

fa 

b9 

9e 

aß 

dß 

b4 

aß 

95 

0929 

: 

ff 

ca 

cS 

■a 

bd 

ßß 

82 

3B 

31 

0931 

: 

f 9 

a2 

c5 

fß 

f 5 

c9 

Bß 

fß 

9c 

0939 

: 

af 

a6 

7a 

e6 

ßb 

c8 

b9 

al 

d8 

0941 

: 

c5 

lß 

fa 

b9 

a2 

c5 

dß 

e4 

69 

0949 

3 

bd 

ßß 

B2 

lß 

9d 

99 

fd 

ßl 

2a 

0951 

: 

c6 

7b 

a9 

ff 

B5 

7a 

6ß 

4c 

85 

0959 

: 

a5 

a9 

28 

73 

ßß 

28 

c4 

c4 

e7 

0961 

3 

4c 

ae 

a7 

fß 

fß 

e9 

BB 

9B 

8e 

0969 

: 

ee 

c9 

23 

bß 

11 

c9 

ßb 

fß 

88 

0971 

3 

27 

ßa 

a8 

b9 

Bd 

aß 

48 

b9 

69 

0979 

3 

0c 

aß 

4B 

4c 

73 

ßß 

c9 

4c 

68 

0981 

8 

90 

13 

c9 

75 

b8 

ßl 

e9 

4b 

7e 

0989 

: 

0a 

a8 

b9 

51 

c5 

48 

b9 

58 

a6 

0991 

3 

c5 

48 

4c 

73 

88 

4c 

ße 

a8 

e8 

0999 

: 

20 

73 

ßß 

28 

9e 

ad 

28 

79 

42 

09a 1 

: 

00 

c9 

B9 

fß 

85 

a9 

a7 

28 

83 

09a9 

3 

ff 

ae 

a5 

61 

dß 

83 

4c 

3b 

62 

09b 1 

: 

a9 

2ß 

79 

ßß 

bß 

ad 

4c 

aß 

b4 

09b9 

3 

a8 

c9 

CC 

bß 

85 

29 

ff 

4c 

cl 

09c 1 

: 

la 

a7 

c9 

ff 

dß 

83 

4c 

f 3 

5f 

09c 9 


a6 

24 

Bf 

3B 

f 9 

38 

e9 

cb 

ec 

09dl 

3 

aa 

84 

49 

aß 

ff 

ca 

fß 

88 

4e 

09d9 

3 

cB 

b9 

a2 

c5 

18 

fa 

38 

f 5 

65 


B9el 

3 

c8 

b9 

a2 

c5 

lß 

83 

4c 

ef 

11 

B9e9 

s 

a6 

20 

47 

ab 

4c 

41 

C5 

ec 

a6 

B9f 1 

3 

c7 

lb 

cB 

78 

ca 

3d 

cB 

4B 

al 

89f 9 

8 

cB 

43 

cB 

53 

c8 

5f 

CB 

6c 

83 

ßaßl 

3 

cB 

cb 

cB 

bc 

c8 

ed 

c8 

14 

C0 

8aß9 

3 

c9 

23 

c9 

29 

c9 

3a 

c9 

85 

9c 

Ball 

3 

c9 

88 

c9 

8b 

c9 

7f 

ca 

B2 

cb 

ßal9 

3 

ca 

85 

ca 

Bf 

cb 

12 

cb 

15 

el 

Ba21 

: 

cb 

83 

cb 

86 

cb 

89 

cb 

28 

fa 

Ba29 

3 

ce 

5d 

c9 

3e 

ce 

7B 

ce 

84 

94 

ßaol 

3 

ca 

cb 

ce 

45 

ca 

41 

cf 

5c 

ec 

8a39 

3 

cf 

6a 

cf 

e 2 

cf 

7c 

cf 

bd 

29 

Ba41 

3 

cf 

43 

4c 

45 

41 

d2 

43 

4f 

c4 

ßa49 

3 

4c 

4f 

d2 

4d 

4f 

44 

cS 

49 

5c 

BaSl 

s 

58 

4f 

49 

4e 

d4 

43 

58 

4f 

ac 

Ba59 

3 

49 

4e 

d4 

53 

SB 

4f 

49 

4e 

aa 

8a61 

3 

d4 

50 

53 

43 

4c 

49 

4e 

cS 

6e 

ßa69 

• 

48 

4c 

49 

4e 

c5 

56 

4c 

49 

c6 

8a71 

3 

4e 

c5 

48 

4d 

41 

52 

cb 

56 

e0 

Ba79 

3 

4d 

41 

52 

cb 

47 

53 

41 

56 

36 

8 a 81 

3 

cS 

47 

4c 

4f 

41 

c4 

43 

4B 

bf 

Ba89 

3 

41 

4e 

47 

c5 

43 

4f 

4d 

c 2 

e5 

ßa91 

3 

4c 

4f 

57 

43 

4f 

CC 

49 

4c 

de 

Ba99 

3 

49 

4e 

c5 

43 

4c 

49 

4e 

c5 

b7 

Baal 

3 

53 

4c 

49 

4e 

C5 

49 

54 

45 

b9 

Baa9 

3 

58 

d4 

43 

54 

45 

58 

d4 

53 

d8 

ßabl 

3 

54 

45 

58 

d4 

49 

43 

49 

52 

dl 

Bab9 


43 

4c 

c5 

43 

43 

49 

52 

43 

4a 

ßac 1 

: 

4c 

c5 

53 

43 

49 

52 

43 

4c 

fa 

Bac9 

: 

c5 

49 

45 

4c 

4c 

49 

58 

53 

05 

Bad 1 

: 

c5 

43 

45 

4c 

4c 

49 

58 

53 

0 a 

Bad 9 

: 

c5 

53 

45 

4c 

4c 

49 

58 

53 

la 

ßael 

3 

c5 

46 

49 

4c 

CC 

49 

4e 

56 

a2 

Bae9 

: 

45 

52 

d3 

53 

43 

52 

4f 

4c 

53 


_ t 
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Bafl : cc 44 55 50 4c 49 43 41 dd 

0af9 : 54 c5 43 4f 4c 50 4c 4f 02 

0b01 : d4 57 49 4e 44 4f d7 50 5c 

0b09 : 4c 4-f d4 54 53 43 52 45 e0 

0b11 : 45 ce 50 53 43 52 45 45 a2 

0bl9 : ce 43 53 41 56 c5 53 50 07 

0b21 : 52 49 54 c5 53 53 41 56 67 

0b29 ! c5 53 4c 4f 41 c4 54 45 ab 

0b31 : 53 d4 43 54 45 53 d4 00 Bc 

0b39 : a9 00 85 0d 20 73 00 0B 93 

0b41 : c9 ba d0 0d 28 20 73 00 Be 

0b49 : 20 fl ae 20 93 cd 4c Bd 05 

0b51 t ad c9 f5 f0 08 c9 f6 f0 0b 

0b59 : 0b 28 4c 8d ae 28 20 ec c4 

0b61 : c6 4c a2 b3 28 20 ec c6 31 

0b69 : a2 0f 9B f0 02 a2 f0 B6 dd 

0b71 : 02 a5 fe 38 e9 e0 20 d2 dB 

0b79 « c7 a0 00 bl fd 25 02 c9 6b 

0bBl s 10 90 04 4a 4a 4a 4a aB 95 

0bB9 : 4c a2 b3 20 73 00 20 fa c5 

0b91 : ae a9 b2 48 a9 47 48 20 00 

0b99 : 26 c7 6B 6B B6 02 20 f7 b3 

0bal : ae 20 el c7 20 f2 cf 85 b4 

0ba9 ! 02 a0.00 bl fd 25 02 f0 25 
0bbl s 01 cB 4c e7 c7 Sa 30 0a cc 

0bb9 : 86 02 20 ce ce a6 02 4c e5 

0bcl : 3a a4 4c 74 a4 20 eb b7 59 

0bc9 : e0 cB b0 0f a5 15 c9 01 47 

0bdl : 90 0B d0 07 a5 14 c9 40 ld 

0bd9 : b0 01 60 68 68 60 a9 33 c6 

0bel s 85 01 bl 6a 85 fc a9 34 f0 

0be9 : B5 01 60 48 Ba 48 9B 48 ee 

0bf 1 s a9 7f Bd 0d dd ac 0d dd 92 

0bf9 : 10 03 4c 72 fe 20 bc f6 be 

0c01 s 20 el ff d0 la a0 lf b9 c2 

0c09 : 94 c7 99 14 03 88 10 f7 0e 

0cll : 20 a3 fd 20 18 e5 20 86 c4 

0c19 : c7 20 ce ce 6c 02 a0 20 17 

0c21 : 86 c7 4c 72 fe a9 06 Bd 5d 

0c29 : 20 d0 8d 21 d0 a9 01 8d b2 
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Listing 1. Programm »Grafik 2000« 
(Schluß) 


1 0 COLOR14,0:MODE1:POKE53280,0:PLGT1:PSC 
REEN1:TSCREEN1:CLEAR 

20 A*="GRAFIK 2000" 

30 FOR1=1TOLEN(A*) 

40 COLPLOTI,0:IFI>6THENC0LPL0T1-1,0 
50 STEXT1,3,3,8,0,1*26-15,60,MID*(A$,1,1 

60 NEXT 

70 COLPLOT:HLINE100:PSCREEN2:CLEAR:TSCRE 
EN2:COMBI 

80 FORI=5T0319STEP5:SCIRCLEI,100,4,4:NEX 
T 

85 DUPLICATE0,95,319,105,0,35:PSCREEN1:T 
SCREEN1:COMBI 

90 COLPLOT13,0 

91 STEXT3,1,1,0,7, 0,190, "äERAFIK 2000" 

92 STEXT4,1,1,0,7,310,110, "sJGRAFIK 2000 

11 

93 STEXT2,2,3,0 ,15,260,20 ,"=J¥CHRIFT- 

EMO" 

100 STEXT1,1,4,0,8,80 , 120, " =J~INE I RAFI 
KERWEITERUNG" 

110 STEXT1,1,1,0,16,130,160,"=JDIE" 

120 STEXT1,2,1,4,14,20,180, " =JIHRESGLEIC 
HEN SUCHT" 

125 COLPLOT 


130 P0KE198,0:WAIT198,1:POKE198,0:WINDOW 
32,110:POKE53280,6:P0KE53281,6 
140 PR I NT " LJ53BITTE 'WINDOW'+RETURN EINGE 
BEN! g WMtWimiliWtftmWM " 

READY. 

Listing 2. Die größten Stärken von »Grafik 2000« sind die 
unterschiedlichsten Schrifttypen. Dieses Demo zeigt eine 
kleine Auswahl. 


0 REM LINES 

10 PLOT1:PSCREEN1:COLPLOT:COLOR1,0:CLEAR 
:MODE1:POKE53280,0 
20 X=319:Y=199 

30 FORI=0TOX:ILINE0,0,I,Y:ILINEX,Y,X—1,0 
: NEXT 

40 WINDOW40,158 

50 FORI=0TO5000:NEXT:WINDOW 

READY. 

Listing 3. Demo-Programm zur Anwendung des 
»ILINE«-Befehls 


120 
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GRAFIK-ANWENDUNG 


064 


80 Zeichen pro 
Zeile auf 
dem C64 mit 
R0M80 


Mit dem folgenden Programm bekommt Ihr C64 
einen 80-Zeichen-Bildschirm, wie er auf größeren 
Personalcomputern selbstverständlich ist. 

W enn man sich ab und zu auch mit anderen Compu¬ 
tern als dem C64 beschäftigt (zum Beispiel dem 
CI28) und sich mit deren höherer Auflösung 
anfreundet, so kommen einem die 40 Zeichen pro Zeile des 
C 64 oft recht mager vor. Für viele Anwendungen wäre es 
praktischer, wenn man wenigstens 80 Zeichen in einer Zeile 
darstellen könnte. 

Textverarbeitungsprogramme auf dem C64 behelfen sich 
oft mit der Möglichkeit des horizontalen Scrolling oder einer 
Doppelzeile auf dem Bildschirm als Notlösung. In beiden Fäl¬ 
len wird zum Beispiel ein Text dadurch jedoch recht unüber¬ 
sichtlich. 

Um dem abzuhelfen, wurde ROM80 entwickelt. Dieses 
Programm verändert das Betriebssystem des C 64 so, daß 
alle Ein- und Ausgaben nun im HiRes-Modus auf 80 Zeichen 
pro Zeile erfolgen. Alle Zeichen haben dadurch zwar nur noch 
die halbe Breite; sie sind jedoch dennoch gut lesbar. 

ROM80 verträgt sich mit den meisten Betriebssystem¬ 
erweiterungen, wie Speeddos oder 64’er Dos, da die Berei¬ 
che der Kassetten- oder RS 232-Routinen, die meistens von 
diesen Erweiterungen verwendet werden, nicht verändert 
werden. 

Nachdem man das Programm in Usting 1 mit dem MSE ein¬ 
getippt und gespeichert hat, startet man es mit »RUN«. Es ist 
nun möglich, zwischen der EPROM- und der RAM-Version zu 
wählen. Wird dabei die Frage »EPROM-VERSION« mit »J« 
beantwortet, so wird das Betriebssystem entsprechend ver¬ 
ändert und mit der Startadresse $2000 auf der Diskette 
gespeichert. Es wird dadurch möglich, sich später eventuell 
ein EPROM zu »brennen«, um dieses in den Computer fest 
einzubauen. 


Das EPROM hat den Vorteil, daß der HiRes-Speicher nicht, 
wie bei der RAM-Version, mitten im Basic-Speicher liegt, 
wodurch 17 KByte verlorengehen. Er wird vielmehr unter 
dem Betriebssystem »versteckt«, was die Verträglichkeit von 
ROM80 mit anderen Programmen beträchtlich erhöht. 

Wird die Frage mit »N« beantwortet, so wird das 80-Zei- 
chen-Betriebssystem sofort generiert und kann ausprobiert 
werden. Es ergeben sich dadurch folgende Unterschiede 
zum normalen Betriebssystem: 

Da im HiRes-Modus des Bildschirms gearbeitet wird, 
können nicht alle Zeichen unterschiedliche Farben erhalten. 
Von einer Farbänderung werden immer alle Zeichen auf dem 
Bildschirm betroffen. 

* Mit ROM80 ist es nun möglich, den Grafik- und den 
Groß-/Kleinschrift-Zeichensatz des C64 gleichzeitig zu ver¬ 
wenden, da sich die schon auf dem Bildschirm stehenden 
Zeichen bei einer Umschaltung mit »SHIFT/Commodore« 
oder »CHR$(14)«, beziehungsweise »CHR$(142)«, nicht 
ändern. 

* Der Bildschirmspeicher ist nun doppelt so groß wie vor¬ 
her und belegt den Bereich von $C800 bis $CFCF. 

ROM80, das zunächst nur durch einen Lader ins RAM oder 
auf die Diskette geschrieben wird, enthält eine erweiterte 
Reset-Routine, die den neuen Zeichensatz generiert, indem 
sie von den alten Zeichen jeweils Bit 0, 2,4 und 6 verwendet. 
Dieser neue Zeichensatz belegt im RAM den Bereich von 
$0400 bis $C7FF. Dabei enthalten die höherwertigen Halb¬ 
byte den Grafik- und die niederwertigen Halbbyte den Groß-/ 
Kleinschrift-Zeichensatz. Zusätzlich werden zwei Routinen 
nach $CFD0 geschrieben. Die eine liest ein Byte aus dem 
Grafikspeicher, die andere scrollt diesen um eine Zeile nach 
oben. Das ist notwendig, da bei der EPROM-Version (beim 
Lesen) nicht direkt aus dem ROM auf das darunterliegende 
RAM gegriffen werden kann (bei einem RAM-Zugriff müßte 
nämlich das ROM weggeschaltet werden). 

Wenn ein Zeichen auf den Bildschirm geschrieben wird, 
wird es sowohl im Grafik-Speicher als auch in dem neuen 
Bildschirmspeicher ab $0800 abgelegt. Das erlaubt ein 
schnelleres Auslesen von Zeichen an bestimmten Positio¬ 
nen, und außerdem kann der Grafikspeicher für Grafiken ver¬ 
wendet werden, ohne daß der Bildschirminhalt verlorengeht. 
Tabelle 1 zeigt noch einmal die komplette Speicherbelegung 
unter ROM80. (H. C. Edelmann/ks) 


Oie Speicherbelegung 

JC400-SC7FF 

Zeichensatz 

SC800-SCFCF 

Bildschirmspeicher 

SCFDO-SCFFB 

Grafik scrollen 

SCFFF 

aktuelle Schrift- und Hintergrundfarbe 

$DCOO-$DFE7 

(bei RAM-Version S5C00-S5FE7) Farbe 

$E000-$FF3F 

(bei RAM-Version $6000-$7F3F) Grafik 

Tabelle 1. Oie 
von »ROM80« 

Speicherbelegung nach dem Einschalten 


Listing 1. »ROM80«. Bitte mit dem 
MSE eingeben. 


namp £ romBO 


OBOl OdB? 


0801 £ 
0809 £ 
0811 £ 
OB 19 £ 
0821 £ 
0829 £ 
0831 £ 
0B39 £ 
0841 £ 
0B49 £ 
0851 £ 


11 OB 
32 20 
00 00 
00 aO 

pO 86 

00 bl 
f 9 c8 
ca dO 
f7 B4 
f 9 20 
B5 f a 


OO 00 

ab 20 
00 00 
aO B6 
f 9 B4 
f7 91 
dO f5 
ee a2 
*8 aO 
6b OB 
20 6b 


9e 32 
48 43 
00 00 
*7 84 
fa a 2 
*7 bl 
e6 f 8 

f 2 aO 
00 bl 
bl f7 
08 bl 


30 37 
45 00 
00 a 2 

fB aO 
20 aO 
f 9 91 
e6 fa 
08 86 
f7 85 
fO 21 
*7 48 


cl 

ee 

57 

2b 

da 

4a 

49 

dd 

45 

Of 

47 


0859 £ 
0861 £ 
0869 f 
0B71 £ 
0879 £ 
0BB1 £ 
0889 £ 
0891 £ 
0899 £ 
08a 1 £ 
08a9 £ 
08b 1 £ 
08b 9 £ 
OBcl £ 
08c9 £ 
08dl £ 
08d9 £ 


20 6b 
91 f 9 
dO eb 
60 a9 
3f Od 
dO *5 
4e dO 
6c fc 
a9 e5 
84 f 7 
86 fa 
c8 dO 
dO f 2 
4f Od 
Oa B5 
eB dO 
a9 03 


08 68 
e6 f 9 
e6 f 7 
e7 65 
fO 06 
20 b 4 
08 78 
ff c9 
85 01 
B6 f 8 
aO 00 
f 9 e6 
a9 37 
85 f 7 
f 8 bd 
ec a2 
a2 42 


c9 62 fO 
dO ef e6 
dO 02 e6 

01 a2 00 

20 d2 ff 
*t fO fb 
a9 e5 B5 
4a dO eb 
aO 00 a2 
a2 20 84 
bl f7 91 
f8 e6 fa 
85 01 58 
bd 62 Od 
76 Od 91 
OB 20 ba 
aO Od 20 


e5 
fa 
fB 
bd 
eB 
c9 
01 
7B 
eO 
f 9 
f 9 
ca 
bd 
fO 
f 7 
ff 
bd 


7d 

06 

92 

fl 

a6 

fb 

32 

80 

Od 

13 

e9 

B5 

91 
fc 

92 
ld 
63 


OBel 
0Be9 
08f 1 
08f 9 
0901 
0909 
0911 
0919 
0921 
0929 
0931 
0939 
0941 
0949 
0951 
0959 
0961 


ff a2 
f8 a9 
60 44 
00 aO 
ad 86 
85 db 

20 c6 
60 a4 
a4 dd 
c9 20 
4B 29 
09 cB 
4d ff 
p6 b6 

07 aO 
60 85 
00 91 


00 aO 
f 7 aO 
e5 a9 
c8 a2 
02 20 
a9 00 
e6 ea 
d3 B4 
bl db 
60 a4 
fO 85 
85 de 
cf 29 
d3 a4 
00 84 
d9 84 
d9 cB 


20 86 
40 20 
20 85 
08 20 
e7 e6 
aO 60 

ea 62 

dd 20 
60 20 
d6 b9 
db 68 
60 ad 
Of 60 
d3 cO 
d3 20 
da a5 
cO fa 


f 7 84 
dB ff 
db a9 
c6 e6 
a9 00 
a 2 20 
6c e5 
7f e5 
6f e5 
fO ec 
29 Of 
21 dO 
62 b6 
50 dO 
2a e8 
db aO 
dO f 9 


65 
30 
13 
3a 
d2 
be 
ea 
f 9 
2c 
88 
be 
3d 
92 
52 
f 2 
Oe 
d4 
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C 64 


GRAFIK-ERWEITERUNG 


0969 

: 

9B 

1B 

65 

d9 

B5 

d9 

90 

02 

Of 

Oadl 


de 

ad 

01 

de 

c9 

fb 

+ 0 

f 9 

94 

0c39 


dO 

cf 

29 

fO 

05 

df 

91 

db 

a7 

0971 


e6 

da 

ca 

dO 

eB 

60 

8e 

B6 

6a 

0ad9 


a2 

50 

aO 

cB 

86 

d9 

84 

da 

e3 

0c41 

3 

cB 

cO 

OB 

dO 

cl 

a5 

dd 

a4 

Bf 

0979 

: 

02 

Ba 

Oa 

Oa 

Oa 

Oa 

85 

db 

43 

Oael 


a2 

00 

B6 

db 

B4 

de 

a 2 

OB 

6a 

0c49 


de 

60 

78 

a9 

e5 

B5 

01 

bl 

9c 

0981 

: 

ad 

21 

dO 

29 

0+ 

05 

db 

B5 

ac 

0ae9 


aO 

00 

bl 

d9 

91 

db 

c8 

cO 

cd 

0c51 

3 

db 

4B 

a9 

e5 

B5 

01 

6B 

SB 

2 a 

0989 

: 

db 

78 

a9 

el 

85 

01 

a9 

OO 

4e 

Oa+l 


+ 0 

dO 

+ 7 

18 

a5 

d9 

69 

fO 

fb 

0c59 

3 

60 

7B 

a9 

e5 

85 

01 

a2 

le 

43 

0991 

3 

4c 

b5 

eB 

00 

a6 

d6 

dO 

07 

64 

Oaf 9 


85 

d9 

90 

02 

e6 

da 

1B 

a5 

cO 

0c61 

3 

aO 

00 

bl 

d9 

91 

db 

cB 

dO 

66 

0999 

3 

86 

d3 

68 

68 

4c 

aB 

e6 

ca 

6b 

ObOl 


db 

69 

fO 

B5 

db 

90 

02 

e6 

96 

0c69 

: 

f 9 

e6 

da 

e6 

de 

ca 

dO 

f 2 

b6 

09a 1 

3 

86 

d6 

aO 

4* 

B4 

d3 

60 

62 

dl 

0bO9 


de 

ca 

dO 

de 

a2 

4+ 

a9 

20 

a5 

0c71 


a9 

e5 

B5 

01 

58 

60 

aB 

a9 

Od 

09a9 

3 

27 

e7 

4c 

a5 

e7 

c9 

Od 

dO 

2e 

Obi 1 


9d 

BO 

cf 

ca 

10 

+ a 

a2 

40 

lf 

0c79 

3 

02 

B5 

cd 

ea 

ea 

ea 

98 

a4 

cO 

09b 1 

3 

03 

4c 

39 

e8 

c9 

20 

90 

10 

46 

Ob 19 


aO 

61 

86 

d9 

B4 

da 

a2 

00 

fO 

OcBl 

3 

d3 

4c 

61 

e9 

a9 

ff 

Bd 

bd 

5c 

09b 9 

3 

c9 

60 

90 

04 

29 

d+ 

dO 

02 

30 

0b21 


aO 

60 

86 

db 

84 

de 

20 

df 

7e 

0c89 

8 

c4 

a9 

99 

an 

be 

c4 

6c 

00 

fe 

09c I 

: 

29 

3+ 

20 

B4 

e6 

4c 

93 

e6 

0+ 

0b29 


Cf 

Ba 

9d 

00 

7e 

9d 

aO 

7e 

f 9 

0c91 

3 

aO 

62 

fO 

ec 

00 

50 

aO 

fO 

23 

09c9 

3 

a6 

dB 

+ 0 

03 

4c 

97 

e6 

c9 

29 

0b31 


eB 

eO 

aO 

dO 

f 5 

a6 

d6 

60 

7c 

0c99 

3 

41 

91 

el 

32 

82 

d2 

23 

73 

94 

09dl 

3 

14 

dO 

21 

98 

dO 

06 

20 

01 

68 

Ob 39 


aO 

5c 

a 2 

04 

20 

c6 

e6 

a9 

5B 

Ocal 

8 

c3 

14 

64 

b4 

05 

55 

a5 

f5 

9b 

09d9 

8 

e7 

4c 

69 

e7 

BB 

84 

d3 

cB 

cb 

Ob41 


e5 

85 

01 

SB 

a5 

db 

8d 

ff 

a4 

0ca9 

3 

46 

96 

e6 

37 

B7 

62 

7d 

e4 

26 

09el 

3 

20 

6+ 

e5 

BB 

20 

61 

e9 

cB 

89 

0b49 


c+ 

60 

62 

ea 

eB 

4c 

49 

eB 

26 

Ocbl 

3 

20 

52 

4f 

4d 

38 

30 

20 

42 

82 

09e9 

: 

cO 

4+ 

dO 

f3 

a9 

20 

20 

61 

e2 

0b51 


78 

a9 

el 

BS 

01 

a 2 

00 

aO 

2d 

0cb9 

3 

59 

20 

48 

2e 

43 

2e 

45 

44 

3d 

09+1 

3 

B9 

4c 

aB 

e6 

a6 

d4 

+ 0 

03 

»2 

0b59 


dO 

86 

d9 

84 

da 

aO 

dB 

B6 

96 

Occ 1 

8 

45 

4c 

4d 

41 

4e 

4e 

20 

62 

44 

09+9 

3 

4c 

97 

e6 

c9 

12 

dO 

02 

85 

be 

0b61 


db 

84 

de 

aO 

c4 

86 

dd 

84 

ca 

0cc9 

8 

06 

e5 

50 

62 

35 

e5 

Ob 

62 

96 

OaO! 

3 

c7 

c9 

13 

dO 

03 

20 

66 

e5 

22 

Ob 69 


de 

•2 

04 

aO 

00 

bl 

d9 

20 

e3 

Ocdl 

3 

02 

e6 

aO 

4f 

84 

dO 

20 

79 

9b 

0a09 

3 

c9 

ld 

dO 

0+ 

cO 

4+ 

+ 0 

06 

cd 

0b71 


26 

e9 

bl 

db 

20 

26 

e9 

a5 

9a 

0cd9 

3 

e5 

ea 

62 

21 

e6 

ea 

ea 

ea 

37 

Oall 

3 

cB 

B4 

d3 

4c 

a8 

e6 

a2 

00 

e6 

Ob 79 


df 

91 

dd 

cB 

dO 

ef 

e6 

da 

8f 

Ocel 

3 

62 

3a 

e6 

20 

6d 

e5 

ea 

62 

94 

0al9 

: 

4c 

41 

eB 

c9 

11 

dO 

03 

4c 

b5 

ObBl 


e6 

de 

e6 

de 

ca 

dO 

e6 

+ 0 

lb 

0ce9 

3 

d6 

eB 

20 

e3 

e6 

62 

44 

ea 

20 

0a21 

3 

43 

e8 

20 

cb 

eB 

4c 

44 

ec 

36 

0b89 


Oe 

B6 

02 

a2 

04 

Oa 

Oa 

26 

b4 

Ocf 1 

3 

20 

6+ 

■s 

ea 

ea 

62 

4f 

ea 

74 

0a29 

3 

29 

7+ 

c9 

7+ 

dO 

02 

a9 

5e 

+ 5 

0b91 


df 

ca 

dO 

+ 9 

a6 

02 

60 

a9 

98 

Ocf 9 

3 

20 

91 

e5 

fO 

06 

ad 

B6 

02 

65 

0a31 

3 

c9 

20 

90 

03 

4c 

91 

e6 

c9 

Of 

0b99 


e5 

85 

01 

58 

a 2 

2+ 

bd 

e7 

f 7 

OdOl 

3 

20 

e7 

e6 

62 

ca 

ec 

bb 

62 

e2 

0a39 

3 

Od 

dO 

03 

4c 

39 

eB 

a6 

d4 

18 

Obal 


e9 

9d 

dO 

cf 

ca 

10 

+ 7 

a9 

e7 

0d09 

3 

dl 

ec 

78 

62 

d9 

ec 

Oc 

Of 

Oe 

0a41 

3 

dO 

2c 

c9 

14 

dO 

24 

aO 

4-f 

6b 

0ba9 


eO 

Bd 

4B 

c4 

a9 

e6 

Bd 

4e 

9f 

Odll 

3 

62 

ff 

fc 

4c 

ed 

eB 

62 

8B 

fc 

0a49 

3 

20 

6+ 

e5 

c9 

20 

dO 

18 

c4 

46 

Obbl 


c4 

a9 

Oe 

Bd 

48 

c6 

a9 

4e 

7d 

Odl 9 

3 

fd 

a 2 

00 

aO 

5c 

62 

cc 

fd 

B3 

0a51 

3 

d3 

+ 0 

14 

BB 

20 

6+ 

e5 

cB 

59 

0bb9 


Bd 

4e 

c6 

a9 

cc 

Bd 

89 

c5 

3f 

Od21 

3 

06 

62 

d6 

fd 

e5 

62 

9d 

e6 

83 

0a59 

8 

20 

61 

e9 

BB 

c4 

d3 

dO 

+ 3 

cb 

Obel 


4c 

21 

ea 

00 

85 

dd 

84 

de 

70 

0d29 

3 

c6 

d8 




20 

13 

ea 

45 

0a61 

3 

a9 

20 

20 

61 

e9 

e6 

dB 

4c 

20 

Obc9 


20 

7+ 

e5 

a5 

dd 

a4 

de 

91 

78 

0d31 

3 

20 

b6 

e6 

a5 

dB 

fO 

02 

46 

c4 

0a69 

8 

aB 

e6 

a6 

d8 

fO 

05 

09 

40 

25 

Obdl 


db 

a5 

de 

29 

07 

09 

1B 

B5 

ff 

0d39 


d4 

68 

aB 

62 

00 

00 

Od 

45 

76 

Oa71 

8 

4c 

97 

e6 

c9 

11 

dO 

09 

a6 

85 

0bd9 


de 

a5 

de 

29 

fe 

18 

65 

db 

63 

0d41 

3 

50 

52 

4f 

4d 

2d 

56 

45 

52 

77 

0a79 

3 

d6 

fO 

02 

c6 

d6 

4c 

aB 

e6 

61 

Obel 


B5 

db 

90 

02 

e6 

de 

06 

db 

dd 

0d49 


53 

49 

4f 

4e 

3f 

00 

ef 

35 

fd 

OaBl 

3 

c9 

12 

dO 

04 

a9 

00 

85 

c7 

4B 

0be9 


26 

de 

06 

db 

26 

de 

a5 

dd 

16 

0d51 

3 

73 

fO 

Oe 

f8 

b6 

bd 

5e 

96 

df 

0aB9 

3 

c9 

ld 

dO 

Of 

98 

fO 

06 

8B 

31 

Ob+l 


09 

BO 

B5 

d9 

a9 

18 

85 

da 

fe 

0d59 

3 

9e 

a9 

ac 

cc 

d6 

88 

89 

8a 

7d 

0a91 

: 

B4 

d3 

4c 

aB 

e6 

20 

01 

e7 

6a 

Obf 9 


06 

d9 

26 

da 

06 

d9 

26 

da 

4e 
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Das MSE-Listing 

von »ROM80«. 



KU-BA-Graf 

Mit diesem Programm können Sie Jahresbilanzen 
in Form von »Fieberkurven« und Blockgrafiken zu 
Papier bringen. Und das mit einer Auflösung, die 
fast siebenmal so hoch ist wie die des C 64, näm¬ 
lich 800 mal 552 Punkte. 

D as Programm kann unterteilt werden in einen Eingabe- 
und einen Ausgabedruckbereich. Zum Ausdruck der 
eingegebenen Werte wird das »Epson-Support«-Pro- 
gramm benötigt, das im Sonderheft 4 (Grafik) veröffentlicht 
wurde. Für diejenigen, die diese Ausgabe nicht haben, brin¬ 
gen wir noch einmal das MSE-Listing (Listing 1) zum »Epson 
Support«. 

Mit »KU-BA-Graf« (Listing 2) können wahlweise ein, zwei 
oder drei Jahreswerte mit jeweils bis zu zwölf Unterwerten in 
Form einer ansteigenden »Fieber«-Kurve und einer Balken¬ 
grafik dargestellt werden. Als Maßstab wird eine sogenannte 
»Soll-Linie« gezogen, die das vorgegebene Monats- bezie¬ 
hungsweise Jahresziel darstellt. Dieses Jahresziel kann für 
alle drei Kurven unterschiedlich oder gleich sein, so daß ein 
absoluter und ein relativer Zahlenvergleich möglich ist. Die 
Jahres- oder Monats-Sollinie ist als dicke Gerade dargestellt. 

Die Kurve 1 ist immer die aktuelle Jahreskurve und wird als 
»dicke« Strichkurve abgebildet. Die zu dieser Kurve gehören¬ 
den monatlichen und laufenden Zahlenangaben werden links 
beziehungsweise rechts neben der Rastergrafik ausge¬ 
druckt (siehe hierzu auch Bild 1). 

Laden des Programms 
LOAD " EPSON SUPPORT ',8,1 


NEW 

SYS 49152 

LOAD "KU-BA-GRAF",8 
RUN 

Als erstes erscheint der Name des Programms. 
Eingabebeschreibung 
Frage: Anzahl der Kurven (1-3)? 

Geben Sie bitte ein, ob Sie eine, zwei oder drei Kurven 
(sprich Jahre) miteinander vergleichen wollen. 

Angaben für Kurve 1 (beziehungsweise 2 oder 3). 

Frage: Sind Daten auf Disk gespeich. (j/n) ? j 
Bestätigen Sie durch < RETURN >, falls »j«, dann müssen 
die Daten auf der Diskette vorher gespeichert worden sein. 
Sie werden dann nach dem Namen der sequentiellen Datei 
gefragt. Die Daten werden jetzt geladen. 

Frage (wird nur bei Kurve 1 gestellt): 

Ausdruck integer oder kaufmännisch (i/k) ? 

Die Beantwortung dieser Frage beeinflußt den Zahlenaus¬ 
druck für die aktuelle Jahreskurve, 
i = (integer) Zahlenbereich von 0 bis 99999999 
k = (kaufmännisch) Zahlenbereich von 0,01 bis 99999,99 
Es werden die im Speicher befindlichen Werte für das 
Jahressoll und die Monate Januar bis Dezember ausgedruckt 
und müssen entweder durch RETURN bestätigt oder durch 
Überschreiben verändert werden. 

Frage: Ausdruck bis Monat (1-12): ? 

Hier können Sie für jede der drei Kurven bestimmen, wel¬ 
che Monate der entsprechenden Kurve ausgedruckt und 
welche unterdrückt werden sollen. 

Frage: Daten auf Disk speichern ? (j/n) ? j 
Durch RETURN bestätigen Sie das »j«, und die Werte wer¬ 
den gespeichert. Haben Sie die Frage nach dem Dateinamen 
vorher noch nicht beantworten müssen, so wird diese Frage 
jetzt gestellt. Für feststehende nicht zu korrigierende Daten 
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GRAFIK-ERWEITERUNG 


C 64 


kann hier auch ein < n > eingegeben werden; eine Speiche¬ 
rung erfolgt also nicht. 

Es erfolgt ein Sprung in den Groß/Grafik-Modus, mit der 

Frage: UEBERSCHRIFT (MAX. 17 ZEICHEN): 

Sollten Sie eine längere als 17 Zeichen umfassende Über¬ 
schrift wählen, so wird die Frage wiederholt. 

Der Drucker arbeitet mit dem in Ausgabe 7/84 und im Grafik- 
Sonderheft 4/85 beschriebenen »Centronics-Schnittstellen- 
Kabel« zusammen. Der »Auto-Line-Feed« am Drucker muß 
ausgeschaltet sein (bei bestimmten Druckern nur im ausge¬ 
schalteten Zustand möglich!). Sollte das Programm mal mit 
RUN/STOP - RESTORE abgebrochen worden sein, so muß 
das »Epson-Support«-Programm mit SYS 49152 neu gestar¬ 
tet werden. (Erhard Witte/ah) 


Bild 1. So erstellt »KU-BA-Graf« eine Jahresbilanz ▼ ► 




Programm : epson Support C000 c54e 
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44 

4f 

54 

6a 

c4e0 

: 

00 

52 

4(5 

53 

45 

54 

44 

4f 

6c 

c4e8 

3 

54 

00 

49 

4e 

56 

44 

4f 

54 

c6 

c4f 0 

3 

00 

4c 

49 

4e 

45 

00 

52 

45 

5b 

c4f 8 

3 

53 

45 

54 

4c 

4‘? 

4e 

45 

00 

a9 

c500 

3 

49 

4r 

56 

4c 

49 

4e 

45 

00 

ac 

c508 

3 

99 

00 

45 

SB 

49 

54 

00 

54 

de 

c510 

3 

45 

58 

54 

00 

49 

4.7 

56 

54 

a0 

c51B 

3 

45 

58 

54 

00 

52 

45 

53 

45 

c6 

c520 

3 

54 

54 

45 

5B 

54 

00 

53 

43 

14 

c528 

3 

41 

4a 

4c 

4 «? 

4e 

45 

00 

00 

de 

c530 

3 

6f 

i-0 

9f 

C0 

58 

c3 

5d 

c3 

a 0 

c538 

3 

09 

c2 

62 

c3 

67 

c3 

5e 

cl 

45 

c540 

3 

6c 

c3 

87 

c3 

81 

c3 

04 

c3 

b8 

c548 

S 

82 

c4 

00 

00 

c9 

00 

00 

00 

c9 

Listing 

1- » 

Epson-Support« wird zum 


Arbeiten mit »KU-BA-Graf« benötigt. 
| Bitte mit dem MSE eingeben. 
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10 POKE 53272,23:POKE 53280,7:POKE 53281,7 <0B7> 
20 PR I NT " (CLR , 2D0WN , BLACK > p- p ' pVp p ' P pVp - pVp - p - pV 

Tp'p-p-p»Vp-p p p-p-p-p-p-p-p-p-p-p-p»-"; <236> 

25 PRINT"<RVSON>************************** 

**************"; <180> 

30 PRINT"***<5SPACE>.5URVEN- U. SALKENBRAPH 

IK15SPACE >***"; <190> 

35 PRINT"********************************* 

*******<RVOFF>"; <198> 

40 PRINT”(2D0WN,11SPACE}<C){2SPACE>£. HITT 

E 1985" <202> 

50 PRINT"C3DQWN,11SPACE>ÜNTERPROGRAMM FUER 


60 PRINT"(DOWN,13SPACE>£PSON—.SUPPORT" 

70 PRINT"{DOWN,14SPACE >(C) C2SPACE>64’ER" 

80 PRINT" <3DQWN,14SPACE,RVSQN,SPACE>* TAS.T 
£ * {SPACE,RVOFF >" 

90 GET X*:IF X*=""THEN 90 

100 INPUT“{CLR,DOWN>MIEVIEL JUJRVEN (1-3) 
:";K 

110 DIM A(12,K—1):FOR X=1 TO KsGOSUB 120:N 
EXT:GOTO 290 

120 PR I NT " {CLR, 9SPACE IflNGABEN FUER JSURVE"; 
X 

130 INPUT"{DOWN>£IND SÄTEN AUF SISK GESPEI 
CH.(J/N)(3SPACEJJ<3LEFT>";X$:IF X*<>“J 
"THEN 160 

140 PRINT" <DOWN>HAME DER »VTEI (MAX. 15 
ICHEN):":INPUT Y*(X) 

150 OPEN 2,B,2,Y*(X)+",S,R":F0R Y=0 TO 12: 

INPUT#2,A(Y,X—1):NEXT:CLOSE 2 
160 IF X=1 THEN INPUT"(2D0WN>AUSDRUCK INTE 
GER OD. KAUFM. (I/K> :“;A* 

170 PRINT"{CLR,9SPACE>flNGABEN FUER JSURVE"; 
X 

180 PRINT" {2D0WN JAHRESSOLL: " ; A (0, X-l ) : PRI 
NT ".JANUAR {4SPACEJ : ";A(1,X-l> : PRINT"£EB 
RUAR {3SPACE >:”A(2,X-1) 

190 PRINT"ßAERZC5SPACE>:“;A(3,X-l):PRINT"fl 
PRIL{5SPACE>:";A(4,X-1):PRINT"HAIC7SPA 
CE>:"A(5,X—1) 

200 PRINT"JUNI<6SPACE>:”;A(6,X-l):PRINT"JU 
LI{6SPACEJ:";A(7,X—1):PRINT“£UGUST {4SP 
ACE>:"A(8,X—1) 

210 PRINT"SEPTEMBER :";A(9,X-l):PRINT"SKTO 
BER {3SPACE>:“;A(10,X-1>:PRINT"HOVEMBER 
{2SPACEJ:"A(11,X—1) 

220 PRINT"SEZEMBER{2SPACEJ:";A(12,X—1):PRI 
NT"{2D0WN>flUSDRUCK BIS flONAT (1-12):" 
230 PRINT"{2D0WNJ2ATEN AUF 2ISK SPEICHERN 
? (J/N)" 

240 PRINT"(HOME,2D0WNJ":FOR Y=0 TO 12:INPU 
T"{10RIGHTJ"5 A(Y,X—1):NEXT 
250 INPUT"{2D0WN,27RIGHT>";M(X) 

260 INPUT"{2D0WN,34RIGHT>J{3LEFT>";Y*:IF Y 
*<>"J"THEN 280 

270 IF X*<>"J"THEN PRINT"{DOWN>HAME DER SA 
TEI (MAX. 15 SEICHEN):":INPUT Y*(X> 

275 OPEN 2,8,2,"@:“+Y$(X)+“,S,W":FOR Y=0 T 
O 12:PRINT#2,A(Y,X—1>:NEXT:CLOSE 2 
280 Y*="":RETURN 

290 POKE 53272,21:PRINT"<CLR,3D0WNJUEBERSC 
HRIFT{3SPACE>(MAX. 17 ZEICHEN):":INPUT 
Y*:IF LEN(Y$)>17 THEN 290 
295 Y=INT((17—LEN(Y*))/2):X*="{9SPACE>":Y* 
=LEFT* (X* , Y > +Y*+LEFT* (X* , Y) 

300 REM RASTER-GRAPHIK 

320 ScCLEAR: ScL INE0,0,799,0: ScL INE799,0,799,5 
31 :8cLINE799,531,0,531:8cLINE0,531,0,0 
330 ScL I NE 1,1,798,1: ScL INE798,1,798,530: ScL IN 
E798.530,1,530:ScLINEl,530,1,1 
340 FOR X=99 TO 699 STEP 10:FOR Y=40 TO 48 
0 STEP 10: ScDOTX ,Y: PRINT".";:NEXT:NEXT 
350 FOR X=104 TO 694 STEP 10:FOR Y=60 TO 4 
80 STEP 30: ScDOTX,Y:PRINT“.";:NEXT:NEXT 
360 FOR X=99 TO 699 STEP 50:FOR Y=45 TO 48 
5 STEP 10: ScDOTX,Y:PRINT"."j:NEXT:NEXT 
370 ScLINE99,480,699, 150: 8cLINE319,30,455,30 
380 X=145: Y=490: ScTEXTX, Y, " J ": ScTEXTX, Y+10, " 
A":ScTEXTX,Y+20,"N" 

390 X=X+50: ScTEXTX , Y , "F" : ScTEXTX , Y+10, ”E" : ScT 
EXTX,Y+20,"B" 

400 X=X+50: ScTEXTX,Y,"M":ScTEXTX, Y+10, “R": 8cT 
EXTX,Y+20,"Z" 

410 X=X+50: ScTEXTX , Y, "A" : ScTEXTX , Y+10 , "P" : 8cT 
EXTX, Y+20, "R" 

420 X=X+50:ScTEXTX,Y,"M":&TEXTX,Y+10,"A":&T 


<137> 

<01B> 

<004> 

< 185> 
<008> 

< 176> 
<176> 
<10B> 

<023> 

<13B> 

<047> 

< 202 > 

< 158> 

<058> 

<063> 

< 112 > 

< 150> 
<241 > 
<226> 

<139> 

< 171 > 

<239> 

< 110 > 

< 114> 

< 066 > 

< 11B> 

< 010 > 

<173> 

<15B> 

<157> 

<233> 

<244> 

<231 > 
<176> 

<091 > 

<009> 

< 115> 
<205> 


EXTX,Y+20,"I" 

430 X=X+50:&TEXTX,Y,"J”:&TEXTX,Y+10,"U“:&T 
EXTX,Y+20,"N" 

440 X=X+50: &TEXTX , Y, " J“ : &TEXTX , Y+10, "U" : ScT 
EXTX,Y+20,“L" 

450 X=X+50: ScTEXTX, Y, "A": ScTEXTX, Y+10, "U“: ScT 
EXTX,Y+20,“G" 

460 X=X+50: ScTEXTX , Y , "S" : ScTEXTX , Y+10, "E“ : ScT 
EXTX, Y+20, "P" 

470 X=X+50: ScTEXTX , Y, "O" : ScTEXTX , Y+10, "K" : ScT 
EXTX,Y+20,"T" 

480 X=X+50: ScTEXTX , Y , "N" : ScTEXTX , Y+10, "O“ : ScT 
EXTX,Y+20,"V" 

490 X=X+50: ScTEXTX, Y, "D": ScTEXTX, Y+10, "E": ScT 
EXTX,Y+20,"Z" 

500 ScINVTEXT40,30, "MTL. “ : ScINVTEXT729,30 , "L 
FD. ":ScINVTEXT319,20,Y* 

510 REM EINZELPUNKT-GRAPHIK 
520 FOR V=1 TO K:X=99:Y=480 
530 FOR Z=1 TO M(V):Xl=X+50:Y1=Y—INT(330*A 
(Z,V—1)/A(0,V-l)>:IF Y1<0 THEN Y1=0 
535 IF V>1 THEN GOSUB 700:GOTO 545 
540 Q=Q+A (Z , V—1) : ScLINEX , Y , XI ,Y1: GOSUB 560 
545 X=X+50:Y=Y1:NEXT:NEXT 

550 ScPRINT: GOSUB 750: PRINT" {CLR, 10DOWN, 13S 
PACE>E N D E":END 
560 REM *** WERTE-DRUCK *** 

565 1=1:IF A*="K"THEN 1=100 
570 X*="{8SPACE>":Z*=RIGHT*(Xt,9-LEN(STR*( 
Q*I)))+STR*(Q*I):V*=".“:V1*=V* 

580 Q*=RIGHT*(X*,9—LEN(STR*(A(Z,V-1)*I)))+ 
STR*(A(Z,V—1)*1>:IF A*="K“THEN 630 
585 IF O<1000 OR A(Z,V-l)<1000 THEN Vl*=" 

590 V*=“.“:IF LEFT*(Z*,3)="{3SPACE>"THEN V 
*= •• •• 

600 Z*=LEFT*(Z*,3)+V*+MID*(Z*,4,3> +V1*+RIG 
HT* (Z*, 3) : ScTEXT699, Yl—4, Z* 

610 V*=".":IF LEFT*(O*,3)="{3SPACE>"THEN V 
*=" " 

620 Q*=LEFT* ( G* , 3) +V*+M ID* ( D* , 4,3 ) + V 1*+R IG 
HT*(Q*,3) :8cTEXT0, Y1—4,Q*:RETURN 
63<" /*=".": IF LEFT* ( Z* , 4) = “ {4SPACE > “ THEN V 
*=" ” 

640 Z*=LEFT*(Z*,4)+V*+MID*(Z*,5,3)+","+RIG 
HT*(Z*,2> :ScTEXT699,Yl—4,Z* 

650 V*=".":IF LEFT*(D*,4> ="{4SPACE>"THEN V 
*—" " 

660 Q*=LEFT* (G* , 4 ) + V*+M ID* ( Q*, 5,3 > + " , " +RIG 
HT* ( Q* , 2) : 8cTEXT0 , Y1-4, G*: RETURN 
700 REM *** PUNKT-KURVE *** 

710 B=Y—Yl:FOR A1=0 TO 50:B1=INT(B/50*A1+. 

5):B2=INT(B/50*(Al+V)+.5) 

720 IF V>2 THEN 740 

730 ScDDTX+Al , Y—Bl: PRINT“*" ; : A1=A1 + 1: NEXT: 
RETURN 

740 ScLINEX+Al , Y—Bl , X+Al+V, Y—B2: Al=Al+V+5: P 
RINT"*“;:NEXT:RETURN 
750 REM *** BALKENGRAPHIK *** 

760 S.CLEAR: S.L INE0,0,799,0: S.L INE799,0,799,1 
80: 8cLINE799, 180,0,180: 8cLINE0,180,0,0 
770 ScL I NE 1 , 1 , 798,1: ScL INE798 , 1,798,179: ScL IN 
E798, 179, 1 , I79:8cLINEl , 179,1,1 
780 FOR X=99 TO 699 STEP 10:FOR Y=20 TO 16 
0 STEP 10: ScDOTX, Y:PRINT". " J:NEXT:NEXT 
790 FOR X=99 TO 699 STEP 50:FOR Y=25 TO 15 
5 STEP 10:ScDOTX ,Y:PRINT“. " 5 : NEXT:NEXT 
800 ScLINE79,90,719,90: 8cTEXT30,86, "SOLL": ScT 
EXT749.86,"SOLL" 

810 X=120:Y=165:ScTEXTX,Y,"J":X=X+50:ScTEXTX 
, Y, "F": X=X+50: ScTEXTX, Y, "M" 

820 X=X+50: ScTEXTX, Y,"A":X=X+50: ScTEXTX, Y,"M 
": X=X+50: ScTEXTX, Y, " J " 

830 X=X+50: ScTEXTX , Y, " J": X=X+50: ScTEXTX , Y, "A 
" :X=X+50: ScTEXTX, Y,"S" 

840 X=X+50: ScTEXTX, Y, "0“: X=X+50: ScTEXTX, Y, "N 
": X=X+50:ScTEXTX, Y, "D" 

850 I=30/K:FOR V=1 TO K:X=109:IF V>1 THEN 
X=X+I:IF V>2 THEN X=X+I 
860 FOR Z=1 TO M(V):Y=160:X1=X+I:Y1=Y—INT( 
B40*A(Z,V—1)/A(0,V—1> >:IF Yl<0 THEN Yl 
=0 

870 FOR Q=Y1 TO Y STEP V:ScLINEX,Q,Xl ,Q:NEX 
T: X=X+50: NEXT: NEXT: ScPRINT: RETURN 


< 119> 
<049> 
<043> 

< 197> 
<039> 
<097> 

< 147> 

<029> 

<201 > 
<048> 
<077 > 

< 146> 
<248> 
<225> 

< 115> 

<082> 

< 181 > 
<076> 

< 136> 
<083> 
<250> 

< 140> 

< 146> 
<016> 

< 193> 
<053> 

< 189> 

< 1B5> 

<236> 

<065> 

<221 > 
<045> 

<115> 

<22B> 

< 118> 

<196> 

<209> 

< 1BB> 

< 112 > 

< 136> 

< 190> 

< 164> 
<056> 

< 121 > 
< 139> 

< 220 > 

<218> 


Listing 2. »KU-BA-Graf«. Bitte beachten Sie die Eingabe¬ 
hinweise auf Seite 6. 
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Sprites: 

Die Bewegung madit's 


Um anspruchsvolle Actionspiele zu schreiben, 
sind bewegte Sprites unerläßlich. Das »Sprite 
Construction Set« ist beim Erstellen von Sprites 
mit Bewegungsabläufen eine wertvolle Hilfe. 

K lar, daß man heutzutage Sprites nicht mehr »von Hand« 
programmiert. Doch die wenigsten Sprite-Editoren 
besitzen die Möglichkeit, Bewegungsabläufe auszu¬ 
testen und daran »herumzufeilen«. Mit dem »Sprite Construc¬ 
tion Set«, im folgenden kurz »S.C.S.« genannt, können Sie 
mühelos die gesamte Sprite-Animation Ihrer Spiele entwer¬ 
fen. 

Kein Papierkram, keine Entwurfsblätter. Konzentrieren Sie 
sich ganz auf die künstlerische Gestaltung. 

S.C.S. besteht aus 3 Teilen: 

- dem Lader »S.C.S. BOOT« (Listing 1) 

- dem Basic-Hauptprogramm »S.C.S.« (Listing 2) 

- und dem Assemblerpaket »S.C.S.OBJ.« (Listing 3) 

Der Lader wird mit »,8« geladen und mit RUN gestartet. Er 
lädt das Maschinenprogramm und verschiebt den Basic-Start 
um eine Seite = 256 Byte nach oben, um 4 weiteren Sprites 
Platz zu machen. Die Daten für die 8 Sprites liegen jetzt in den 
Blöcken 11,13, 14, 15, 32, 33, 34 und 35. Nach dem Lade¬ 
vorgang erscheint auf dem Bildschirm unter anderem ein grü¬ 
ner Rahmen mit Zahlenreihen links und oben. Er umrahmt das 
Feld für die 8fach-Vergrößerung des aktuellen Sprite. Inner¬ 
halb des Rahmens blinkt ein kleiner Cursor in Form eines »+«. 
Die Zahlenreihen hängen mit dem Aufbau des Sprite zusam¬ 
men und dienen zur Orientierung. Auf der rechten Bild¬ 
schirmseite erscheint eine Parameteranzeige. Man verstellt 
die Parameter, indem man die Zahlentaste drückt, die links 


vor dem jeweiligen Display steht. Alle Tasten haben Dauer¬ 
funktion. 

Taste Funktion 

0 schaltet von Normal- in Multicolor(MC-)Modus um 
und umgekehrt. 

4 schaltet einen Sprite weiter (von 0 bis 7, dann wie¬ 
der nach 0) 

5 schaltet Spritefarbe 1 um eins weiter (von 0 bis 15, 
dann wieder nach 0) 

6 wie 5, aber Farbe 2 

7 wie 6, aber Farbe 3 

8 schaltet Hintergrundfarbe jeweils um eins weiter 

9 wie 8, aber Rahmenfarbe 

A wie 8, aber Schriftfarbe 

X vergrößert Sprite in X-Richtung, beziehungsweise 

schaltet zurück. 

Y Wie X, jedoch Y-Richtung. 

Farben 1 und 3 sind die beiden Multicolor-Farben. Sie tau¬ 
chen nur im MC-Modus auf und sind für alle 8 Sprites gleich 
(Hardwarebedingung). Farbe 2 kommt sowohl im Multicolor- 
als auch im Normal-Modus vor und ist für jeden der 8 Sprites 
individuell wählbar. Im Normal-Modus stellt sie die aus¬ 
schließliche Zeichenfarbe dar. 

Der Cursor wird mit Joystick Port 2 innerhalb des Rahmens 
gesteuert. Mit <-> schaltet man auf Punkt löschen, mit 
< + > zurück auf Punkt setzen. Gelöscht oder gezeichnet 
wird aber nur, wenn der Knopf am Joystick gedrückt ist. Das 
Sprite wird natürlich nicht nur als 8fach-Vergrößerung, son¬ 
dern auch im Original in der rechten oberen Bildschirmecke 
gezeigt. 

Im Multicolor-Modus hat der Cursor eine andere Gestalt, da 
man hier nur die halbe Auflösung in X-Richtung, dafür aber 3 
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Zeichenfarben hat. Er ist doppelt so breit und zeigt an, mit 
welcher Farbe er gerade malt (1,2,3, oder <-> für Löschen). 
In den jeweiligen Modus schaltet man mit den Tasten < 1 >, 
<2>, <3> und <->. 

Am besten, man probiert erstmal ein wenig herum, um das 
Zeichnen mit dem Joystick in den Griff zu bekommen. 

Außerdem stehen eine ganze Reihe Befehle zur Verfü¬ 
gung, die teils einfache, teils sehr komplexe Operationen 
bewirken. Um einen Befehl eingeben zu können, muß man 
erst die CTRL-Taste drücken. Jetzt wird in der obersten Bild¬ 
schirmzeile nach dem Befehl gefragt und ein Eingabecursor 
in Form eines Pfeils nach links erscheint. Nun kann man 
Befehlsworte und eventuell benötigte Parameter eingeben. 

Einfache Befehle für... 


Die Eingabe wird mit < RETURN > abgeschlossen. Ungül¬ 
tige Eingaben werden ignoriert. Hier eine Auflistung der 
Befehle und ihrer Wirkung: 

Befehl Wirkung 

CLEAR löscht den aktuellen Sprite 
SWAP stellt ihn auf den Kopf 
FLIP spiegelt ihn 

ROT dreht ihn um 90 Grad im Uhrzeigersinn: die rechten 
3 Reihen gehen dabei verloren, weil die Sprites ein 
Format von 24 x 21 Punkten haben. Dreht man 
einen Multicolor-Sprite, verfälscht sich zwangsläu¬ 
fig dessen Farbinformation, weil er in X- und Y- 
Richtung verschiedene Auflösung hat. 

COPY X (X=Parameter) Sprite Nummer X wird mit all seinen 
Informationen in den aktuellen Sprite kopiert; dient 
zur Sicherung. 

XOR X Sprite Nummer X wird mit dem aktuellen Sprite 
exklusiv- oder verknüpft. Das Ergebnis wird im 
aktuellen Sprite abgelegt. 

OR X wie XOR X, jedoch Oder-Verknüpfung 
AND X wie XOR X, jedoch Und-Verknüpfung 
ROL Jetzt kann man den Sprite mit dem Joystick im Defi¬ 
nitionsfeld verschieben. Drückt man beim Verschie¬ 
ben den Knopf, dann gehen die aus dem Rahmen 
gehobenen Reihen verloren, sonst erscheinen sie 
auf der anderen Seite wieder. Diese Funktion ist im 
Zusammenhang mit OR X und COPY X von ent¬ 
scheidender Wichtigkeit. Zwei Sprites, die später 
ein Objekt bilden sollen, kann man mit COPY X in 
andere Bereiche sichern und sie anschließend so 
verschieben, daß man, wenn man sie mit OR X ver¬ 
knüpft, ausprobieren kann, ob die Nähte passen. 
Will man einen Sprite um 90 Grad drehen, ohne daß 
die rechten 3 Reihen verlorengehen, kann man ihn 
vorher entsprechend verschieben. In den Zeichen¬ 
modus zurück gelangt man durch <X>. 

SEQ ist ein Befehl, um Bewegungsabläufe mit nur einem 
Sprite zu testen. Zuerst wird nach der Sequenz 
gefragt. Jetzt kann man Ziffern von 0 bis 7 in beliebi¬ 
ger Reihenfolge eingeben. Jede der Ziffern ent¬ 
spricht einem der 8 Sprites. Bei der Eingabe rea¬ 
giert S.C.S. interaktiv. Rechts oben und im Rahmen 
wird immer das der Ziffer entsprechende Sprite 
angezeigt. Schließt man die Eingabe der Sequenz 
mit < RETURN > ab, wird nach der Verzögerung 
gefragt. Man muß einen Wert von 0 bis 255 einge¬ 
ben. Bei 0 läuft die Sequenz mit 14 bis 15 Bildern/s, 
bei 255 erscheint 1 Bild/s. Beim Sequenzdurchlauf 
werden die Sprites sowohl als 8fach-Vergrößerung 
als auch im Original dargestellt. Bei geeigneter 
Benutzung kann ein eleganter Film-Effekt entste¬ 
hen. Auch hier entweicht man mit der <X>. 


PUZZLE Hier kann man Bewegungsabläufe mit bis zu 8 ver¬ 
schiedenen Sprites koordinieren. Nun wird der Bild¬ 
schirm gelöscht und Sprite Nummer 0 erscheint. 
Man kann ihn mit dem Joystick plazieren. Auf Knopf¬ 
druck werden die Koordinaten akzeptiert und das 
nächste Sprite kann plaziert werden. Nach Sprite 
Nummer 7 kommt wieder Sprite Nummer 0 an die 
Reihe. Für den Bewegungsablauf werden später nur 
die Sprites verwendet, die momentan plaziert sind. 
Durch <X> verläßt man diese Funktion und kann 
nun die Sequenzen eingeben. Alle Sequenzen müs¬ 
sen genauso lang wie die von Sprite 0 sein, um 
angenommen zu werden. Auch hier reagiert S.C.S. 
interaktiv. Es werden alle Sprites genau in dem 
Sequenz-Stadium angezeigt, in dem das Sprite, für 
das gerade die Sequenz eingegeben wird, steht. 
Wenn sie den letzten plazierten Sprite erreicht 
haben, wird wieder bei Sprite Nummer 0 angefan¬ 
gen. Man kann so lange herumprobieren, bis alles 
stimmt. Auf erneuten Druck von < X > verläßt man 
diese Funktion, um die Bewegungsvorschriften ein¬ 
zugeben. Jetzt wird nach DELTA X und DELTA Y 
gefragt. Der Wertebereich liegt jeweils von -127 bis 
+128. Negativ bedeutet Bewegung nach links 
beziehungsweise oben, positiv nach rechts bezie¬ 
hungsweise unten um X- beziehungsweise Y- 
Schritte. 0 bedeutet keine Bewegung in der jeweili¬ 
gen Richtung. DELTA X und DELTA Y gelten für die 
Bewegung aller plazierten Sprites. Nun fragt S.C.S. 
nach der Verzögerung. 0 ist am schnellsten, 255 
am langsamsten. Hier muß man ausprobieren und 
Erfahrungswerte einsetzen. Zuletzt wird nach RATE 
gefragt. Gemeint ist, nach wieviel Bewegungs¬ 
schritten eine Sequenz-Änderung für alle Sprites 
stattfindet. Dann wird der Bewegungsablauf gestar¬ 
tet. Wenn ein Sprite die zulässigen Koordinaten ver¬ 
läßt, kehren alle Sprites wieder an ihre Ursprungs¬ 
koordinaten zurück. Durch <X> stoppt man den 
Bewegungsablauf und gelangt wieder in den Zei¬ 
chenmodus. Limit für den Zeilenabstand ist 255. 
Hier wird vor den Filenamen automatisch ein »L.« 
gestellt. 

SAVE Speichert ein File ab, das alle Informationen enthält, 
ALL die für S.C.S. wichtig sind: die Daten aller Sprites, 
den gesamten VIC, die Nummer des aktuellen 
Sprites, Schriftfarbe, alle Sequenzen von PUZZLE 
und SEQ und die Koordinaten von PUZZLE. Will 
man die Arbeit mit S.C.S. unterbrechen, um später 
weiterzumachen, sollte man den aktuellen Stand 
durch SAVE ALL speichern. Vor den Filenamen wird 
automatisch ein »A.« gestellt. 

LOAD lädt den gespeicherten Stand wieder. Man braucht 
ALL das »A.« vor dem Filenamen nicht einzugeben. 

Natürlich kann man die Bewegungsabläufe von S.C.S. nicht 
in sein eigenes Programm übernehmen. Sie dienen nur zur 
Planung, da die Programmierung der Bewegungsabläufe fort¬ 
geschrittenen Programmierern Vorbehalten ist, die sich mit 
der Architektur des VIC auskennen. 

...komplexe Operationen 


Und jetzt zu den Diskettenoperationen: Bei allen Disketten¬ 
operationen wird automatisch der Fehlerkanal gelesen und 
die Directory angezeigt. 

CAT zeigt Directory an. 

DISK sendet Disk-Befehle, zum Beispiel Formatieren: »N: 
Name, ID« und ähnliches. 

SAVE das Sprite wird mit all seinen dazugehörigen Daten 
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Bild 1. Der Hubschrauber aus den Demo-Daten 


nen Daten verloren, ist Y > 0, erschei¬ 
nen sie rechts wieder, 
analog nach rechts 
analog nach oben 
analog nach unten 
XORt Inhalt der Speicherzelle X mit 
dem 1-Byte-Wert Y 
druckt Text mit Farbe Z an die Koordi¬ 
naten X und Y 

setzt Sprite Nummer N (0-7) an die 
Koordinaten X(0-360) und Y(0-255); 
Abdeckung des ganzen Bildschirmbe¬ 
reichs! 

zeigt Directory an 

schaltet Schriftfarbe des ganzen Bild¬ 
schirms auf X 

Hier muß man peinlichst darauf achten, keine falschen 
Parameter zu wählen, da das zum Programmabsturz führen 
kann. 


SYS (AN+27)X,Y 
SYS (AN + 30)X,Y 
SYS (AN+33)X,Y 
SYS (AN + 36)X,Y 

SYS (AN+39) 
X,Y,Z, 'Text" 

SYS (AN+51)N,X,Y 


SYS (AN+ 57) 
SYS (AN+60)X 


Manche dieser Befehle können vor allem Anfängern hel¬ 
fen, die entworfenen Sprites im eigenen Programm erfolg¬ 
reich einzusetzen. Außerdem sind die Befehle sehr schnell in 
der Ausführung. 


gespeichert. Vor den Filenamen wird automatisch 
ein »S.« gestellt. 

LOAD lädt ein mit SAVE gespeichertes Sprite. Man braucht 
das »S.« vordem Filenamen nicht extra eingeben, da 
es automatisch vor den Filenamen gestellt wird. 

SAVE sichert nur die Blockdaten des aktuellen Sprite als 

PRG Maschinenprogramm ab. Ein so gespeichertes File 
kann man nur mit »LOAD"Name",8,1« im Direktmo¬ 
dus oder von Basic aus wieder laden. Bei letzterem 
muß berücksichtigt werden, daß automatisch ein 
Start des Basic-Programms ausgeführt wird. Vor 
den Filenamen wird automatisch ein »P.« gestellt. 
Dieser Befehl ist interessant für Assembler- 
Anwender. 

SAVE Hier wird direkt auf Diskette ein Basic-DATA-Lader 

LDR des aktuellen Sprite generiert. Mit der Frage 
»BLOCK« ist gemeint, in welchem Sprite-Block das 
Programm die Sprite-Daten später POKEn soll. 
Anschließend wird nach Anfangszeilennummer und 
Schrittweite gefragt, vor allem, damit man das Pro¬ 
gramm später bequem mit anderen MERGEn kann. 
Bemerkenswerte Nebeneffekte: Wählt man als 
Schrittweite 0, ist das Programm zwar lauffähig, 
aber vor weiteren sinnvollen Eingriffen geschützt. 
Einen absoluten Schutz vor Basic-Laien erreicht 
man, indem man als Anfangszeilennummer eine 
Zahl zwischen 64000 und 65535 bei entspre¬ 
chend geringer Schrittweite wählt. Man kann sogar 
einen Überlauf erreichen, so daß die Numerierung 
plötzlich wieder bei 0 anfängt. 


Sinnvolle Befehle, die Sie aus »S.C.S.OBJ« für eigene Pro¬ 
gramme verwenden können. AN ist die Startadresse 
49152. 


SYS (AN+ 9) X 
SYS (AN+12) X 

SYS (AN+21) X 


SYS (AN + 24)X,Y 


stellt Spriteblock X auf den Kopf, 
spiegelt ihn. Handelt es sich um ein 
MC-Sprite, muß man SYS (AN+15) X 
anfügen. 

dreht Spriteblock X um 90 Grad nach 
rechts. Nur für Normal-Sprites emp¬ 
fehlenswert. Die rechten drei Reihen 
gehen verloren. 

rollt Block X nach links; ist Y=0, 
gehen die aus dem Block geschobe- 


Eine kleine Demonstration 


Geben Sie das Programm »A.DEMO« (Listing 4) mit dem MSE 
ein, und laden Sie es von »S.C.S.« aus mit »LOAD ALL«. 

Die acht Sprites, die jetzt geladen werden, sind Einzelteile 
eines großen Hubschraubers (Bild 1). Da alle Sequenzen mit¬ 
geladen werden, kann man den Hubschrauber durch 
»PUZZLE« über den Bildschirm fliegen lassen. 

W«> i Sie »PUZZLE« eingegeben haben, drücken Sie 
solange den Knopf, bis alle acht Sprites auf dem Bildschirm 
erschienen sind. Mit <X> kommt man in die Sequenz- 
Eingabe. Hier existieren die Sequenzen schon, das heißt, Sie 
können nochmals <X> drücken. 

Empfohlene Werte für DELTA X: 1 
DELTA Y: 0 
VERZOEG: 10 
RATE: 1 

Jetzt fliegt der Hubschrauber so lange über den Bild¬ 
schirm, bis Sie wieder <X> drücken. 

Solche und ähnliche Bewegungsabläufe kann man mit dem 
S.C.S. spielend realisieren. 

(Carsten Führmann/og) 


150 A=A+1:IF A=1 THEN LOAD "S.C.S.OBJ.“,8, 

1 <208> 

160 POKE 44,9s POKE 9*256,0 <090> 

180 POKE 53280,0:POKE 532B1,0:POKE 646,0 <248> 

200 PRINT CHR$(147):FOR 1=0 TO 6:PRINT:NEX 

T <135> 

210 PRINT "LOAD “;CHR*(34);"S.C.S.";CHR*<3 

4)5",B" <240> 

220 FOR 1=0 TO 3:PRINT:NEXTsPRINT "RUN" <136> 

230 FOR 1=0 TO 7:PRINT CHR$ <145);:NEXT <043> 

240 POKE 631,13:POKE 632,13 <000> 

250 POKE 198,2 <159> 

260 NEW <144> 


© &4'er 


Listing 1. Das Ladeprogramm »S.C.S. BOOT« geben Sie bitte 
mit dem Checksummer ein 
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1000 REM 


<044> 

11250 

PRINT RO*;"45";M2S;"8 HINTERGR." 

<239> 

1010 REM ***************************** 

<004> 

11260 

PRINT RO*;"48";M2* 

<201 > 

1020 REM * 


<051 > 

11270 

PRINT RO*;"51";M2*;"9 RAHMEN:<2SPACE 


1030 REM * SPRITE CONSTRUCTION SET 

* 

<0B6> 


>'■ 

<111> 

1040 REM * 

* 

<073> 

11280 

PRINT RO*;"54";M2* 

<216> 

1050 REM * V12.1 

* 

<100> 

11290 

PRINT RO*;"57";M2*;"A SCHRIFT: " 

<035> 

1060 REM * 

* 

<093> 

11300 

PRINT RO*;"60";M2* 

<229> 

1070 REM * C64 GRUNDVERSION 

* 

< 129> 

11310 

PRINT RO*;M1*;"(2SPACE}VERGR.:“ 

<203> 

1080 REM * 

* 

< 113> 

11320 

GOSUB 12042 

<15B> 

1090 REM * BY CARSTEN FUEHRMANN 

* 

<016> 

11325 

RETURN 

<207> 

1100 REM * 

* 

< 133> 

11328 

s 

< 12B> 

1110 REM * HOPFENLEITHE 21 

* 

<219> 

11330 

IF (PEEK(V+28) AND FM) GOTO 14042 

<031 > 

1120 REM * 

* 

< 153> 

11340 

GOTO 13045 

<051 > 

1130 REM * 8521 WEISENDORF-BUCH 

# 

<075> 

12000 

: 

<036> 

1140 REM * 

* 

< 173> 

12020 

REM *** PARAMETERANZEIGE *** 

<020> 

1150 REM * TEL. 01932/4769 

* 

<059> 

12040 

s 

<078> 

1160 REM * 

* 

< 193> 

12042 

FM=2TBI 

< 113> 

1170 REM ***************************** 

<166> 

12045 

F(2)=PEEK(V+39+BI)AND 15 

<066> 

10000 

s 


<070> 

12048 

F <1)=PEEK(V+37)AND 15:F(3)=PEEK(V+38 


10010 

REM *** INITIALISIEREN *** 


< 1B9> 


)AND 15 

<030> 

10015 

s 


<085> 

12050 

SYS (KP) 30,9,CF,RO*; 

<076> 

10025 

GOSUB 10030:GOTO 11330 


<098> 

12055 

MC=(PEEK(V+28) AND FM)/FM 

< 177> 

10028 

: 


<09B> 

12060 

IF MC GOTO 12100 

<045> 

10030 

V=53248 


<001> 

12070 

PRINT "NORMAL<3SPACE>" 

<099> 

10040 

FOR 1=0 TO 7 


<203> 

12080 

GOTO 12130 

< 106> 

10050 

:READ B(I> 


< 195> 

12100 

PRINT "MULTICOL “ 

<100> 

10055 

:SX(I)=160:SY <I)=120 


<130> 

12130 

SYS (KP) 37,10,CF,BI 

< 149> 

10060 

:POKE 2040+1,B(I) 


< 127> 

12150 

SYS (KP) 28,12,CF,STR*(F(l));" ";F*( 


10070 

NEXT 


< 174> 


F(l) ) 

< 138> 

10080 

DATA 11,13,14,15,32,33,34,35 


< 181 > 

12170 

SYS (KP) 28,14,CF,STR*(F(2));" “;F*( 


10150 

DIM F*(15) 


< 150> 


F (2) ) 

< 191 > 

10160 

FOR 1=0 TO 15:READ F*(I):NEXT 


< 165> 

12190 

SYS (KP) 28,16,CF,STR*(F(3));" ";F*( 


10170 

DATA SCHWARZ.,WEISS...,ROT_ 


<015> 


F (3) > 

<244> 

10180 

DATA TUERKIS..VIOLETT.,GRUEN.. 


<010> 

12220 

F=PEEK(V+33) AND 15 

<086> 

10190 

DATA BLAU__GELB.ORANGE. 


<093> 

12230 

SYS (KP) 28,18,CF,STR* < F);" ";F*(F) 

< 106> 

10200 

DATA BRAUN....HELLROT,GRAU 1. 


<254> 

12240 

F=PEEK(V+32) AND 15 

< 104> 

10210 

DATA GRAU 2.,HELLGRN,HELLBL. 


< 109> 

12250 

SYS (KP) 2B,20,CF,STR*(F);" “;F*(F) 

<066> 

10220 

DATA GRAU 3. 


<235> 

12252 

F=PEEK(55296) AND 15 

<050> 

10230 

FR=54272:J2=56320:CF=5 


<006> 

12260 

SYS (KP) 28,22,CF,STR*(F);“ ";F*(F) 

<092> 

10240 

POKE 650,128 


<253> 

12270 

SYS (KP) 37,23,CF,"(2SPACE>“;BK*;BK* 


10290 

: 


< 106> 


5 

< 115> 

10300 

REM *** MAPRO-ADRESSEN *** 


<082> 

12.: ’■) 

EX=(PEEK(V+29) AND FM)/FM 

<029> 

10310 

: 


<126> 

122t>0 

IF EX THEN PRINT "X"; 

<038> 

10320 

NF=49152 


<059> 

12285 

EY=(PEEK(V+23) AND FM)/FM 

<255> 

10330 

MF=NF+3:CO=NF+6:HQ=NF+9:NM=NF+12 

<209> 

12290 

IF EY THEN PRINT "Y"; 

<067> 

10340 

MM=NF+15:CL=NF+18:TU=NF+21 


<005> 

12300 

POKE V+21.FM 

< 174> 

10350 

RL=NF+24:RR=NF+27:RU=NF+30 


<205> 

12999 

RETURN 

<101> 

10360 

RD=NF+33:XR=NF+36:KP=NF+39 


<251 > 

13000 

- 

<020> 

10370 

BS=NF+42:PS=NF+45:SQ=NF+4B 


< 167> 

13020 

REM *** NORMAL-EDITIEREN *** 

<229> 

10372 

SP=NF+51:PU=NF+54:CT=NF+57 


<077> 

13040 

- 

<060> 

10374 

SR=NF+60 


<037> 

13045 

MO*=RO*+"+" 

<087> 

10380 

s 


<196> 

13050 

SYS (NF) BI 

< 121 > 

10390 

FOR 1=0 TO 15 STEP 2 


<120> 

13060 

J=PEEK(J2) 

<045> 

10400 

:POKE V+I,15:POKE V+I+1,60 


<056 > 

13070 

IF (J AND 1) GOTO 13090 

<045> 

10410 

NEXT 


<004> 

13080 

:IF Y THEN Y=Y-1 

<110> 

10420 

POKE V+16,255 


<247> 

13090 

IF (J AND 2) GOTO 13110 

<009> 

10440 

MO*=RO*+"+“:FI=2 


< 168> 

13100 

:IF Y<20 THEN Y=Y+1 

<066> 

10450 

CL*=CHR* <147):RO*=CHR*(18) 


<208> 

13110 

IF (J AND 4) GOTO 13130 

< 190> 

10460 

RF*=CHR*(146):HO*=CHR*(19) 


<177> 

13120 

:IF X THEN X=X-1 

<069> 

10470 

BK*=CHR*(157):CR*=CHR*(13) 


< 105> 

13130 

IF (J AND 8) GOTO 13160 

<003> 

10480 

DE*=CHR*(20) 


<078> 

13140 

:IF X< 23 THEN X=X+1 

<209> 

11000 

■ 


<052> 

13150 

s 

< 172> 

11020 

REM *** BILDSCHIRM-MASKE *** 


< 185> 

13160 

SYS (KP) 2+X,2+Y,F(2),MO* 

< 159> 

11030 

: 


<084> 

13180 

GET X*:IF X*="" GOTO 13230 

<025> 

11050 

M1*=RO*+"C27SPACE>"+RF*+" "+RO* 

< 156> 

13190 

:IF X*="+" THEN MO*=RO*+X*:GOTO 1323 


11060 

M2*=RF*+" (24SPACE> " +RO*+ 11 “+RF*+" 

" + 


0 

<036> 


RO* 


< 186> 

13200 

:IF X*="- u THEN MO*=X*:GOTO 13230 

<109> 

11070 

M3*="76543210":M3*=R0*+"{2SPACE>' 

+M3 

13210 

:GOTO 15050 

< 195> 


*+M3*+M3*+" "+RF* 


< 196> 

13230 

IF PEEK(653)=4 GOTO 16042 

<097> 

11080 

SYS (KP) 0,0,CF,CL* 


<210> 

13240 

IF (J AND 16) GOTO 13400 

< 123> 

11090 

PRINT M3* 


<047> 

13250 

:DE=B(BI)*64+3*Y+INT(X/8) 

< 123> 

11100 

PRINT RO*; u 0";M2* 


< 114> 

13260 

:M=2t(7—(X AND 7)) 

<098> 

11110 

PRINT RO*;" 3";M2* 


<127> 

13270 

:IF MO*="—" GOTO 13350 

<254> 

11120 

PRINT RO*;" 6";M2* 


<140> 

13280 

: POKE DE,PEEK(DE) OR M 

<004> 

11130 

PRINT RO*;" 9";M2* 


< 153> 

13290 

: GOTO 13400 

<0B2> 

11140 

PRINT RO*;"12";M2* 


<066> 

13300 

. 

<066> 

11150 

PRINT RO*;"15";M2* 


<082> 

13350 

: POKE DE,PEEK(DE) AND (255-M) 

< 199> 

11160 

PRINT RO*;"18";M2* 


<098> 

13400 

GOTO 13050 

<013> 

11170 

PRINT RO*;"21";M2*;"0 " 


<006> 

14000 

. 

<004> 

11180 

PRINT RO*;"24“;M2*;"4 NUMMER:" 


<238> 

14020 

REM *** MULTICOLOR—EDITIEREN *** 

< 197> 

11190 

PRINT RO*;"27";M2*;"5 FARBE 1: 

" 

< 159> 

14030 


<034> 

11200 

PRINT RO*;"30";M2* 


<124> 




11210 

PRINT RO*;"33";M2*;"6 FARBE 2: 

" 

<047> 




11220 

PRINT R0*;"36";M2* 


< 156> 




11230 

PRINT RO*;"39";M2*;"7 FARBE 3: 

" 

<209> 

Listing 2. Das Hauptprogramm »S.C.S.«, mehr als nur 

11240 

PRINT R0*;"42";M2* 


<169> 

ein Sprite-Editor 
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14042 

X=X AND 254 

<016> 


B 36030 

<222> 

14046 

MO*=RO*+"0"+RIGHT* <STR*(FI>,1) 

< 185> 

16270 

GOSUB 38030 

<072> 

14048 

: 

<052> 

16980 

GOSUB 12042 

<230> 

14050 

SYS (MF) BI 

<0B9> 

16990 

IF MC GOTO 14042 

< 165> 

14060 

J=PEEK(J2> 

<027> 

16995 

GOTO 13045 

< 118> 

14070 

IF <J AND 1) SQTO 14090 

<031 > 

20000 

s 

< 194> 

14080 

sIF Y THEN Y=Y—1 

<094> 

20010 

REM *** KOPIEREN *** 

<036> 

14090 

IF <J AND 2) GGTO 14110 

<253> 

20020 


<1B4> 

14100 

sIF Y<20 THEN Y=Y+1 

<050> 

20030 

SYS (CO) B(BI),B(RI),4 

<096> 

14110 

IF (J AND 4) GOTO 14130 

< 17B> 

20040 

IF (PEEK(V+23) AND 2tRI)/2TRI = 

(PEE 

14120 

sIF X THEN X=X-2 

<057> 


K(V+23) AND FM)/FM GOTO 20050 

<238> 

14130 

IF (J AND 8) GOTO 14160 

<247> 

20045 

SYS (XR) V+23,FM 

<048> 

14140 

sIF X<22 THEN X=X+2 

<097> 

20050 

IF (PEEK(V+29) AND 2tRI)/2tRI = 

(PEE 

14150 

: 

< 156> 


K(V+29) AND FM)/FM GOTD 20060 

<201 > 

14160 

SYS (KP) 2+X,2+Y,F(FI),MO* 

< 170> 

20055 

SYS (XR) V+29,FM 

<082> 

14180 

GET X*:IF X*= UM GOTO 14220 

<073> 

20060 

IF (PEEK(V+28) AND 2tR)/2tRI = 

(PEEK 

14190 

IF X*>=“1" AND X*<="3" THEN MO*=RO*+ 



(V+28) AND FM)/FM GOTO 20070 

< 106> 


"0"+X*:FI=VAL(X*):GDTO 14220 

<210> 

20065 

SYS (XR) V+28,FM:MC=1—MC 

< 145> 

14200 

IF X*="-" THEN MO*="—":GOTO 14220 

< 117> 

20070 

POKE V+39+BI , PEEK (V+39+RI ) 

< 161 > 

14210 

GOTO 15050 

<093> 

20999 

RETURN 

<229> 

14220 

IF PEEK(653)=4 GOTO 16042 

<071 > 

27000 

: 

<050> 

14225 

IF (J AND 16) GOTO 14400 

<100> 

27020 

REM *** VERSCHIEBEN *** 

<091> 

14230 

:DE=B(BI)*64+3*Y+INT(X/8) 

<0B7> 

27040 

g 

<090> 

14240 

: M=21 (7— (X AND 7) ) 

<062> 

27050 

J=PEEK(J2> 

<063> 

14250 

:POKE DE,PEEK(DE) AND (255-M*1.5) 

<038> 

27060 

MO=(J AND 16) 

<015> 

14260 

:IF MO*="—" GOTO 14400 

<059> 

27070 

IF (J AND 1) GOTO 27080 

<075> 

14270 

: POKE DE,PEEK(DE) OR M*(FI/2) 

<21B> 

27075 

SYS (RU) B(BI),MO 

<226> 

14400 

GOTO 14050 

<013> 

27080 

IF <J AND 2) GOTO 27090 

< 165> 

15000 

: 

<244> 

270B5 

SYS (RD) B(BI),MO 

<202> 

15020 

REM *** PARAMETER VERSTELLEN *** 

<046> 

27090 

IF (J AND 4) GOTO 27100 

<16B> 

15040 

a 

<028> 

27092 

SYS (RL) B (BI) ,MO 

<210> 

15050 

IF X*="0" THEN SYS (XR) V+28.FM 

<050> 

27095 

IF MC THEN SYS (RL) B(BI),MO 

< 119> 

15070 

IF X*="4" THEN BI=(BI+1> AND 7 

<068> 

27100 

IF (J AND 8) GOTO 27110 

< 195> 

15080 

IF X*="5" THEN POKE V+37,(PEEK(V+37) 


27102 

SYS (RR) B(BI),MO 

< 157> 


+1)AND 15 

<208> 

27105 

IF MC THEN SYS (RR) B(BI),MO 

< 141 > 

15090 

IF X*="6" THEN POKE V+39+BI,(PEEK(V+ 


27110 

IF MC=0 THEN SYS (NF) BI 

<062> 


39+BI)+1)AND 15 

<246> 

27115 

IF MC THEN SYS (MF) BI 

<091 > 

15100 

IF X*="7" THEN POKE V+38,(PEEK(V+38) 


27120 

GET A*:IF A*="X“ THEN POKE 198, 

0: RET 


+1> AND 15 

<103> 


URN 

<017> 

15110 

IF X*="8" THEN POKE V+33,(PEEK(V+33) 


27130 

GOTD 27050 

<097> 


+1)AND 15 

< 112> 

29000 

: 

<018> 

15120 

IF X*="9" THEN POKE V+32,(PEEK(V+32) 


29010 

REM *** BASIC LADER SAVEN *** 

<100> 


+1)AND 15 

<122> 

29020 

• 

<03B> 

15130 

IF XS="X" THEN SYS (XR) V+29,FM 

< 156> 

29030 

GOSUB 38030 

< 132> 

15140 

IF X*="Y" THEN SYS (XR) V+23,FM 

<014> 

29040 

PRINT HO*;" NAME:" 

< 103> 

15150 

IF X*="A" THEN CF=(CF+1> AND 7:SYS (S 


29050 

GOSUB 50025:F*="L."+BE* 

<000> 


R) CF 

<226> 

29060 

GOSUB 38030 

< 162> 

15990 

GOSUB 12042 

<000> 

29070 

PRINT HO*;" BLOCK:" 

<035> 

15995 

POKE 198,0 

< 155> 

290B0 

GOSUB 50025:IF VB<0 OR VB>1023 

GOTO 

15998 

IF MC GOTO 14042 

< 189> 


29080 

< 196> 

15999 

GOTO 13045 

< 138> 

29085 

SB=VB 

<099> 

16000 

s 

<228> 

29090 

GOSUB 38030 

< 192> 

16020 

REM *** BEFEHLE *** 

<067> 

29100 

PRINT HO*;" 1.ZEILE:" 

<090> 

16040 

s 

<012> 

29102 

GOSUB 50025:IF VB<0 OR VB>65535 

GOTO 

16042 

GOSUB 38030 

<098> 


29102 

<238> 

16050 

SYS (KP)1,0,CF," BEFEHL:" 

<044> 

29105 

ZN=VB 

<243> 

16060 

GOSUB 50025 

<070> 

29110 

GOSUB 38030 

<212> 

16065 

LE*=LEFT*(BE*,3):RI*=RIGHT*(BE*,3):R 


29120 

PRINT HO*;" SCHRITTW:“ 

< 137> 


I=VAL(RIGHT*<RI*,2>>AND 7 

<022> 

29125 

GOSUB 50025:IF VB<0 OR VB>255 GOTO 2 

16070 

IF LE*="ROL" THEN GDSUB 27050 

<069> 


9125 

<052> 

16080 

IF LE*=“COP" THEN GOSUB 20030 

<201 > 

29130 

S=VB 

<059> 

16090 

IF LE*="XOR" THEN SYS (CO) B(BI),B(R 


29135 

OPEN 1,6,1,F* 

< 108> 


I) ,81 

<061 > 

29140 

SYS (BS) SB, B (BI) ,ZN, S 

< 195> 

16100 

IF LE*="OR " THEN SYS (CO) B(BI),B(R 


29150 

CLOSE 1 

<203> 


I) ,17 

<213> 

29152 

PRINT CL*: GOSUB 40050 

<222> 

16110 

IF LE*="AND" THEN SYS (CO) B(BI),B(R 


29155 

GOSUB 41040 

<218> 


I) ,49 

<003> 

29158 

GOSUB 37030 

<244> 

16120 

IF LE*="SWA" THEN SYS (HO) B(BI) 

< 173> 

29160 

GOTO 11080 

< 184> 

16130 

IF LE*="FLI" THEN SYS (NM) B(BI):IF 


30000 

s 

<002> 


MC THEN SYS (MM) B(BI> 

<066> 

30010 

REM *** SAVE PROGRAMM *** 

<0B3> 

16140 

IF LE*="ROT" THEN SYS (TU) B(BI> 

<010> 

30020 

s 

<022> 

16150 

TF LE*="CLE" THEN SYS (CL) B(BI> 

<049> 

30030 

GOSUB 38030 

< 116> 

16170 

IF LE*="SAV" AND RI*="LDR" THEN GOSU 


30040 

PRINT HO*;“ NAME:" 

<087> 


B 29030 

<021 > 

30050 

GOSUB 50025:F*="P."+BE* 

< 113> 

16180 

IF LE*="SAV" AND RI*="PRG" THEN GOSU 


30060 

GOSUB 38030 

< 146> 


B 30030 

<221 > 

30070 

PRINT HO*;" STARTADR:" 

<022> 

16190 

IF BE*="SAVE" THEN GOSUB 31030 

<217> 

30075 

GOSUB 50025:IF VB<0 OR VB>65535 

GOTO 

16200 

IF BE*="LOAD" THEN GOSUB 32030 

< 157> 


30075 

<022> 

16210 

IF LE*="SEQ" THEN GOSUB 33070 

<022> 

30080 

SA=VB 

<070> 

16220 

IF LE*="DIS" THEN GOSUB 42022 

<224> 

30090 

OPEN 1,8,1,F* 

<047> 

16229 

IF LE*="PUZ" THEN GOSUB 34070 

<235> 

30100 

SYS (PS) SA,B(BI) 

<021> 

16230 

IF LE*="CAT" THEN GOSUB 41030:GOSUB 


30110 

CLOSE 1 

< 147> 


40050:GOSUB 37030:GOSUB 110B0 

<242> 

30112 

PRINT CL*:GOSUB 40050 

<166> 

16250 

IF LE*="SAV" AND RI*="ALL" THEN GOSU 


30115 

GOSUB 41040 

< 162> 


B 35030 

<017> 

30118 

GOSUB 37030 

< 1B8> 

16260 

IF LE*="LOA" AND RI*="ALL" THEN GOSU 


30120 

GOTO 11080 

< 128> 
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31000 

s 

<242> 

34040 


<233> 

31010 

REM *** SAVE *** 

< 121 > 

34050 

REM *** PLAZIEREN *** 

<244> 

31020 

s 

<006> 

34060 

5 

<255> 

31030 

GOSUB 38030 

<100> 

34070 

FOR 1=0 TO 7 

< 102> 

31040 

PRINT HD*;" NAME:" 

<071 > 

340B0 

:SYS (SP) I,SX(I),SY(I> 

<217> 

31050 

GOSUB 50025:F*="S."+BE* 

< 193> 

34090 

NEXT 

<063> 

31060 

OPEN 1,8,1,F* 

<001> 

34100 

3 

<039> 

31070 

FÜR 1=0 TD 62 

<071 > 

34110 

PRINT CL*;" PLAZIEREN SPRITE";SN 

< 130> 

31080 

:PRINT#1,CHR*(PEEK(64*B(BI)+I)); 

< 127> 

34120 

POKE V+21,2tSN*2—1 

< 149> 

31090 

NEXT 

<110> 

34130 

J=PEEK(J2) 

<032> 

31110 

PRINT01,EY;CR*;EX;CR*;MC;CR*;F(l);CR 


34140 

IF (J AND 1) GOTO 34160 

<000> 


*; F <2);CR*;F(3) 

<125> 

34150 

IF SY(SN)> 30 THEN SY(SN)=SY(SN)-1 

<007 > 

31120 

CLOSE 1 

< 141 > 

34160 

IF (J AND 2) GOTO 34180 

< 116> 

31125 

PRINT CL*:GOSUB 40050 

< 163> 

34170 

IF SY(SN)<249 THEN SY(SN)=SY(SN)+1 

<044> 

31130 

GOSUB 41040 

< 161 > 

34180 

IF (J AND 4) GOTO 34200 

< 145> 

31140 

GOSUB 37030 

< 194> 

34190 

IF SX(SN)> 1 THEN SX(SN)=SX(SN)-1 

<051 > 

31999 

GOTO 11080 

<229> 

34200 

IF (J AND 8) GOTO 34220 

< 198> 

32000 

s 

<226> 

34210 

IF SX(SN)<343 THEN SX(SN)=SX(SN)+1 

<040 > 

32010 

REM *** LOAD *** 

< 152> 

34220 

IF (J AND 16) GOTO 34240 

< 132> 

32020 

3 

<246> 

34230 

SN=(SN+1>AND 7:GOTO 34110 

< 104> 

32030 

GOSUB 41030 

<236> 

34240 

SYS (SP) SN,SX(SN),SY(SN) 

<064 > 

32040 

PRINT HO*;" NAME:" 

<055> 

34250 

GET A*:IF A*<>"X" GOTO 34130 

< 121 > 

32050 

GOSUB 50025:F*="S.”+BE* 

< 177> 

34260 

• 

< 199> 

32060 

OPEN 1,B,0,F* 

<113> 

34270 

REM *** SEQ.EINGEBEN *** 

< 155> 

32061 

CLOSE 1 

<066> 

34280 

s 

<219> 

32062 

GOSUB 40050 

< 125> 

34285 

SS=-1 

<203> 

32063 

IF EN*<>"00" THEN GOSUB 37030:GOTO 1 


34290 

GOSUB 38030 

<057> 


1080 

< 131 > 

34295 

SS=SS+1 

<216> 

32064 

OPEN 1,8,0,F* 

< 117> 

34300 

POKE V+21,2 tSS*2—1 

< 113> 

32070 

FOR 1=0 TO 62 

<055> 

34310 

A*= " " 

<04B> 

32080 

:GOSUB 39030 

<205> 

34320 

PRINT HO*;" SEQ.";SS;":" 

<045> 

32110 

:POKE 64*B(BI)+I,D 

<091> 

34330 

LS(SS)=LEN(S*(SS)) 

<248> 

32120 

NEXT 

< 124> 

34340 

IF LS(SS) = 0 GOTO 34380 

<227> 

32130 

INPUT#1,EY,EX,MC,F(1),F<2>,F<3> 

< 146> 

34350 

FOR 1=0 TO SS 

<225> 

32140 

POKE V+23,PEEK < V+23) AND 255-FM GR E 


34355 

:M*=MID*(S*(I),LS(SS),1) 

<222> 


Y*FM 

< 175> 

34360 

:POKE 2040+1,B(VAL(M*)) 

<057> 

32160 

POKE V+29,PEEK(V+29) AND 255-FM OR E 


34370 

NEXT 

<0B9> 

32180 

X*FM 

POKE V+28 , PEEK C V+28) AND 255-FM OR M 
C*FM 

<005> 

< 168> 

34380 

34390 

SYS (KP) 10,0,CF,S*(SS);"+";STR*(LS( 
SS)) ; “ <I2SPACE>" 

GET A* 

<237> 

<053> 

32200 

POKE V+37,F(1) 

< 104> 

34400 

IF A*<"0" OR A*>"7" GOTO 34440 

< 140> 

32220 

POKE V+39+BI,F(2) 

<097> 

3* I 

IF LS(SS)>22 GOTO 34440 

<092> 

32240 

POKE V+3B,F(3) 

<217> 

34420 

:S*(SS)=S*(SS)+A* 

<211 > 

32250 

CLOSE 1 

<255> 

34440 

LS(SS)=LEN(S*(SS)) 

< 102> 

32999 

GOTO 11080 

<214> 

34460 

IF A*=CR* AND LS(SS)=LS(0) GOTO 3450 


33000 

s 

<209> 


0 

<23B> 

33020 

REM *** SEQUENZ *** 

<244> 

34470 

IF A*=DE* AND LS(SS) THEN S*(SS)=LEF 


33040 

s 

<251 > 


T*(S*(SS),LS(SS)—1) 

< 165> 

33050 

REM *** SEQ.EINGABE *** 

<22B> 

34480 

IF A*="X“ GOTO 34540 

<200> 

33060 

3 

<015> 

34490 

GOTO 34340 

<084> 

33070 

A*="" 

<078> 

34500 

IF SS<SN GOTO 34290 

<040> 

33080 

GOSUB 38030 

< 119> 

34505 

GOTO 34285 

< 198> 

33090 

PRINT HO*;“ SEQUENZ:" 

<002> 

34510 

s 

< 195> 

33100 

LS=LEN(S*> 

<230> 

34520 

REM *** WEITER PARAMETER *** 

<038> 

33110 

SYS (KP) 10,0,CF,S*; "+“;STR*(LS); " 12 


34530 

- 

<215> 


SPACE!“ 

<204> 

34540 

PRINT CL*;“ DELTA X:" 

<255> 

33120 

IF LS=0 GOTO 33130 

<071 > 

34550 

GOSUB 50025 

<017> 

33122 

B2=VAL(MID*(S*,LS,1)) 

<092> 

34560 

IF VB<—127 OR VB>128 GOTO 34550 

< 155> 

33124 

POKE V+21.2TB2 

<242> 

34570 

DX=VB 

< 113> 

33126 

IF MC=0 THEN SYS (NF) B2 

<041 > 

34580 

PRINT CL*;" DELTA Y:“ 

<073> 

33128 

IF MC THEN SYS (MF) B2 

< 152> 

34590 

GOSUB 50025 

<059> 

33130 

GET A* 

<063> 

34600 

IF VB< — 127 OR VB>128 GOTO 34590 

<068> 

33140 

IF A*<"0" OR A*>"7" GOTO 33170 

< 170> 

34610 

DY=VB 

< 161 > 

33150 

:IF LS>22 GOTO 33170 

<039> 

34620 

PRINT CL*;“ VERZOEG:“ 

<153> 

33160 

::S*=S*+A* 

<241 > 

34630 

GOSUB 50025 

<099> 

33170 

IF A*=CR* GOTO 33230 

< 143> 

34640 

IF VB<0 OR VB>255 GOTO 34630 

<079> 

33180 

IF LS AND A*=DE* THEN S*=LEFT* (5*,LS 


34650 

D=VB 

<1B8> 


-1) 

<110> 

34660 

PRINT CL*;“ RATE:“ 

<0B0> 

33190 

GOTO 33100 

<229> 

34670 

GOSUB 50025 

< 139> 

33200 

8 

< 155> 

346B0 

IF VB<1 OR VB>255 GOTO 34630 

< 183> 

33210 

REM *** KOMPILIEREN *** 

<045> 

34690 

R=VB 

<028> 

33220 

3 

< 175> 

34691 

PRINT CL* 

<090> 

33230 

FOR 1=1 TO LS 

<020> 

34692 

s 

< 123> 

33240 

:POKE 51199+1,VAL(MID*(S*,I,1)) 

< 118> 

34695 

REM *** KOMPILIEREN *** 

<006> 

33250 

NEXT 

<239> 

34698 

s 

< 129> 

33260 

POKE 51199+1,99 

<097> 

34699 

POKE V+21,2tSN*2—1 

<220> 

33270 

3 

<225> 

34700 

FOR 1= 0 TO LS(0)—1 

<247> 

33280 

GOSUB 38030 

<065> 

34710 

:FOR 12=0 TO SN 

< 186> 

33290 

PRINT HO*;" VERZOEG:" 

< 181 > 

34720 

::M*=MID*(S*(12),1+1,1) 

< 165> 

33300 

GOSUB 50025 

<039> 

34725 

:: PW=B(VAL(M*)) 

< 151 > 

33310 

IF VB<0 OR VB>255 GOTO 33300 

<000> 

34730 

::POKE 51200+(SN+1)*I+I2,PW 

<017> 

33320 

SYS (SQ) VB 

<254> 

34740 

: NEXT 

< 191 > 

33330 

POKE 198,0 

<219> 

34750 

NEXT 

<215> 

33340 

34000 

RETURN 

< 123> 

< 193> 

Llsting 2. Das Hauptprogramm »S.C.S.«, mehr als nur ein 

34020 

REM *** PUZZLE *** 

<251 > 

Sprite-Editor (Fortsetzung) 
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34760 PDKE 51200+(SN+1)*1,99 <210> 
34770 : <201> 
34780 SYS (PU) DX AND 255,DY AND 255,R,SN, 

D <133> 
34970 FOR 1=0 TO 7:P0KE 2040+1,B<I):NEXT <076> 
349B0 BOSUB 10390 <067> 
34985 POKE 198,0 <094> 
34990 RETURN <249> 
35000 s <177> 
35010 REM *** SAVE ALL *** <172> 
35020 : <197> 
35030 BOSUB 38030 <035> 
35040 PRINT HO»;" NAME:” <006> 
35050 BOSUB 50025:F*="A."+BE* <062> 

35060 OPEN 1,8,1,F* <192> 

35061 CLOSE 1 <017> 

35062 PRINT CL*:BOSUB 40050 <035> 

35065 IF EN*< >"00" THEN BOTO 35230 <074> 

35066 OPEN 1,8,15,"S:"+F*:CLOSE 1 <132> 
35068 OPEN 1,8,1,F» <200> 
35070 FÖR 1=704 TO 1023 <032> 
35080 PRINT#1,CHR»(PEEK <I)); <133> 
35090 NEXT <047> 
35100 FOR 1=2048 TO 2303 <097> 
35110 PRINT#1,CHR»(PEEK(I)); <163> 
35120 NEXT <077> 
35130 FOR I=V TO V+46 <20B> 
35140 PRINT#1,CHR»(PEEK(I)); <193> 
35150 NEXT < 107> 
35160 PRINT#1,BI;CR»;CF;CR»;MC;CR»;S» <150> 
35170 FOR 1=0 TO 7 <186> 
35180 PRINT#1,SX(I);CR»|SY(I);CR»;S»(I) <196> 
35200 NEXT <157> 
35215 CLOSE 1 <173> 
35230 BOSUB 41040 <198> 
35240 BOSUB 37030 <231> 
35250 BOTO 11080 <179> 
36000 : <161> 
36010 REM *** LOAD ALL *** <203> 
36020 : <181> 
36030 BOSUB 41030 <171> 
36040 PRINT HO»;" NAME" <049> 
36050 BOSUB 50025:F»="A."+BE* <046> 
36060 OPEN 1,8,0,F»:CLOSE 1 <049> 
36070 BOSUB 40050 <06B> 
36080 IF EN»<>"00“ THEN BOSUB 37030:BOTO 1 

1080 <083> 
36090 OPEN 1,8,0,F» <078> 
36100 FOR 1=704 TO 1023 <048> 
36110 BOSUB 39030:POKE I,D <168> 
36120 NEXT <061> 
36130 FOR 1=2048 TO 2303 <111> 
36140 BOSUB 39030:POKE I,D <198> 
36150 NEXT <091> 
36160 FOR I=V TO V+46 <222> 
36170 BOSUB 39030:POKE I,D <228> 
36180 NEXT <121> 
36190 INPUTttl,BI,CF,MC,S» <014> 
36195 SYB (BR) CF <233> 
36200 FOR 1=0 TO 7 <200> 
36210 INPUT#1,SX(I),SY(I),S»(I) <063> 
36220 NEXT <161> 
36228 CLOSE 1 <170> 
36230 BOTO 11080 <143> 


37000 

37010 

37020 

37030 

37040 

38000 

38010 

38020 

38030 

38040 

39000 

39010 

39020 

39030 

39040 

39999 

40000 
40010 
40020 
40050 
40060 
40070 
40080 

40090 

40999 

41000 
41010 
41020 
41030 
41040 
41050 
42000 
42010 
42020 
42022 
42030 
42040 
42050 
42060 
42070 
42080 
42090 
42100 
42110 
42999 
50000 
50010 
50020 
50025 

50028 

50029 

50030 
50040 
50050 
50060 
50070 
50120 

50140 

50150 

50999 


: <145> 
REM *** AUF TASTE WARTEN *** <004> 
5 <165> 
POKE 198,0:WAIT 198,1:P0KE 198,0 <046> 
RETURN < 011> 
5 <129> 
REM *** OBERE ZEILE LOESCHEN *** <131> 
5 <149> 
PRINT HO»;"<39SPACE>" <216> 
RETURN <251> 

! <113> 
REM *** DISK-BET *** <060> 

! <133> 
BET#1,D*:IF D*="" THEN D»=CHR*(0) <180> 
D=ASC(D») <020> 
RETURN < 178 > 
! <097> 
REM *** FEHLERKANAL *** <091> 
5 <117> 
OPEN 1,8,15 <083> 
INPUT#1,EN»,E»,SP»,SE» <209> 
BOSUB 38030 <251> 
PRINT HO»;" ” ;EN»; “ , ■■; E»; ••, “; SP»; “ , • 

»SE* <124> 
CLOSE 1 <222> 
RETURN <162> 
: <0B1> 
REM *** KATALOE *** <052> 
= < 101 > 
PRINT CL» <079> 
SYS CT:CLOSE 1 <113> 
RETURN <213> 
= <065> 
REM *** DISK-BEFEHLE *** <063> 
ä <0B5> 
BOSUB 41030 <067> 
BOSUB 38030 < 179> 
PRINT HO»;" DISK-BEF:" <009> 
BOSUB 50025 <153> 
OPEN 1,8,15,BE» <010> 
CLOSE 1 < 170> 
PRINT CL»:BOSUB 40050 <197> 
BOSUB 41040 <200> 
BOSUB 37030 <233> 
BOTO 11080 <181> 
RETURN <128> 
s <191> 
REM *•* EINBABE *** <119> 
s <211> 
BE»=“" <084> 
A»="":PRINT HO»,"<14SPACE>" <066> 
SYS (KP) 11,0,CF,BE»; “ <228> 
BET A»:IF A»="" BOTO 50030 <167> 
LS=LEN(BE»> <201> 
IF A»<" " OR A»>"Z" BOTO 50120 <135> 
IF LS>26 BOTO 50120 <026> 
:BE*=BE»+A» <063> 
IF LS AND A»=DE* THEN BE»=LEFT*(BE», 

LS—1) < 181 > 
IF A*< >CR» BOTO 50029 <250> 
VB=VAL(BE») <023> 
RETURN <000> 


Llsting 2. Das Hauptprogramm »S.C.S.« (Schluß) 


Programm ; 

: s. 

. C. 1 

b. ab j. 


t 


1 c72b 

cW 

1 

4c 

b4 

C0 

4c 

lb 

cl 

4c 

aa 

2 c 

ceee 

1 

cl 

4c 

cB 

cl 

4c 

06 

c2 

4c 

42 

cfllB 

X 

49 

c 2 

4c 

B4 

c2 

4c 

91 

c2 

b8 

c#lB 

X 

4c 

03 

c3 

4c 

3B 

c3 

4c 

64 

12 

c# 2 # 

X 

c3 

4c 

ad 

c3 

4c 

eb 

c3 

4c 

b9 

C02B 

: 

49 

c3 

4c 

13 

c4 

4c 

f 9 

c4 

98 

C030 

i 

4c 

24 

c5 

4c 

7a 

c5 

4c 

ad 

ec 

C03B 

X 

cS 

4c 

a5 

c6 

4c 

0d 

c7 

a 0 

43 

C040 

X 

52 

84 

50 

a 0 

04 

B4 

51 

aB 

b7 

C04B 

X 

44 

* 

o 

53 

B4 

4c 

6H 

B6 

4e 

da 

c050 

X 

a5 

53 

1B 

0a 

0a 

0 a 

90 

02 

Id 

C0SB 

3 

e6 

4b 

18 

65 

50 

48 

aS 

♦ e 

4c 

C060 

1 

65 

51 

B5 

f e 

68 

18 

65 

4b 

B4 

C068 

X 

B5 

fd 

90 

02 

e6 

fe 

60 

20 

78 

C070 

: 

4d 

ae 

20 

■f 4 

b7 

Bo 

29 

4c 

d9 

C078 

x 

4a 

4a 

B5 

44 

8a 

29 

B3 

0a 

45 

cBBB 

X 

0a 

0a 

0a 

0a 

Ba 

85 

4e 

85 

64 


C088 

3 

52 

60 

20 

72 

C0 

4c 

41 

b7 

06 

C098 

3 

20 

44 

b7 

Ba 

48 

bd 

48 

07 

ce 

C098 

X 

aa 

20 

76 

C0 

68 

aa 

60 

B0 

66 

C0a0 

X 

40 

20 

10 

08 

04 

02 

01 

C0 

cb 

cBaB 

X 

C0 

30 

30 

8c 

0C 

03 

03 

80 

44 

cBbB 

X 

01 

40 

02 

20 

04 

10 

08 

08 

47 

c 0 bB 

X 

10 

04 

20 

02 

40 

01 

80 

20 

61 

C0C0 

3 

90 

C0 

bd 

27 

dB 

85 

52 

20 

c7 

c0cB 

t 

34 

C0 

a6 

53 

cB 

C0 

03 

d0 

cc 

C0d0 

X 

Bd 

aB 

00 

a5 

50 

18 

69 

10 

6e 

c0dB 

3 

85 

50 

90 

02 

m6 

51 

a9 

00 

89 

C0E0 

3 

85 

4b 

a6 

4b 

bd 

94 

C0 

B5 

73 

cBeB 

3 

4c 

a2 

00 

20 

4a 

C0 

al 

4e 

48 

C040 

3 

25 

4c 

dB 

07 

a9 

20 

81 

4d 

46 

C048 

X 

4c 

0 a 

cl 

a9 

cf 

81 

4d 

a9 

43 

cl00 

3 

d4 

1B 

65 

4e 

85 

fm 

aS 

52 

a5 

C10B 

8 

Bl 

fd 

e6 

fb 

aS 

4b 

c9 

08 

32 

C110 

3 

dB 

dB 

e6 

4e 

a5 

53 

c9 

3e 

64 

cl 18 

3 

d0 

bB 

60 

20 

90 

cd 

bd 

27 

bl 

cl20 

X 

dB 

Bd 

01 

c9 

ad 

25 

dB 

8d 

93 


C12B 

3 

BB 

c9 

ad 

26 

dB 

8d 

02 

c9 

52 

cl30 

3 

20 

34 

C0 

e6 

53 

e6 

fc 

aS 

aB 

C13B 

X 

4c 

c9 

03 

dB 

04 

a9 

00 

85 

3d 

cl40 

X 

4c 

■S 

50 

18 

69 

10 

85 

50 
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08 

80 

5a 

aeda 

e 

00 

00 

00 

00 

00 

00 

00 

00 

db 

aad2 

8 

08 

aa 

00 

BB 

80 

00 

08 

B0 

5a 

abda 

3 

00 

aa 

aa 

80 

55 

55 

80 

55 

97 

ace2 

8 

00 

00 

00 

00 

00 

00 

0f 

3c 

97 

aada 

3 

00 

aa 

aa 

80 

55 

55 

80 

55 

97 

abe2 

3 

56 

00 

aa 

aB 

00 

00 

02 

aa 

55 

acea 

3 

0f 

3c 

Bf 

3c 

0f 

3c 

0f 

3c 

ea 

aae2 

3 

56 

00 

aa 

aB 

00 

00 

Bb 

e3 

ee 

abea 

3 

aa 

00 

00 

00 

00 

00 

00 

00 

95 

aef 2 

3 

Bf 

3c 

Bf 

3c 

0f 

3c 


lb 

74 

aaea 

3 

83 

a4 

7c 

a5 

la 

a7 

e4 

a7 

55 

abf 2 

3 

00 

01 

30 

00 

01 

40 

00 

01 

93 

aefa 

3 

14 

•« 

f 2 

80 

CB 

00 

15 

7b 

2a 

aaf 2 

3 

86 

ae 

00 

00 

00 

00 

4c 

48 

91 

abf a 

8 

5c 

00 

01 

5a 

aa 

aa 

42 

a0 

2c 

ad02 

8 

f0 

00 

ff 

00 

00 

80 

f0 

f0 

9c 

aafa 

8 

b2 

00 

31 

ea 

66 

fe 

47 

fe 

cf 

ac02 

3 

20 

30 

28 

88 

bb 

02 

aa 

00 

10 

ad0a 

3 

fl 

f 2 

f 3 

fb 

fl 

fc 

fc 

fc 

e5 

ab 02 

3 

4a 

f 3 

91 

f 2 

0e 

f 2 

50 

f 2 

a8 

acBa 

8 

00 

08 

00 

00 

22 

00 

00 

22 

75 

adl2 

8 

fc 

fc 

fc 

f 7 

f 2 

20 

30 

20 

fc 

abBa 

3 

33 

f 3 

57 

fl 

ca 

fl 

ed 

f 6 

2d 

acl2 

3 

00 

00 

22 

bb 

00 

22 

M 

00 

ac 

adla 

3 

0d 

20 

32 

20 

Bd 

20 

31 

20 

9f 

ab 12 

3 

3e 

fl 

2f 

f 3 

66 

fe 

a5 

f 4 

72 

acla 

8 

22 

00 

2a 

aa 

00 

25 

55 

00 

9b 

ad22 

3 

Bd 

30 

33 

0d 

20 

31 

30 

31 

65 

abla 

8 

ed 

f 5 

00 

00 

00 

00 

00 

00 

02 

ac22 

3 

09 

55 

00 

02 

aa 

00 

00 

01 

c3 

ad2a 

8 

20 

0d 

20 

31 

31 

32 

20 

0d 

3e 

ab22 

3 

00 

00 

00 

00 

00 

00 

00 

0a 

37 

ac2a 

3 

50 

00 

00 

40 

00 

00 

40 

00 

84 

ad32 

3 

30 

33 

Bd 

20 

37 

37 

20 

0d 

0b 

ab2a 

3 

aa 

00 

00 

00 

00 

00 

00 

00 

d5 

ac32 

8 

00 

60 

00 

00 

68 

00 

00 

6b 

C0 

ad3a 

8 

20 

31 

31 

32 

20 

0d 

31 

34 

ld 

ab32 

8 

00 

01 

C0 

00 

01 

4c 

00 

01 

57 

ac3a 

3 

00 

00 

6a 

00 

00 

02 

00 

00 

e5 

ad42 

3 

Bd 

20 

35 

33 

20 

0d 

20 

31 

60 

ab3a 

3 

50 

00 

01 

6a 

aa 

aa 

52 

a0 

a2 

ac42 

8 

03 

00 

00 

00 

00 

00 

00 

00 

46 

ad4a 

8 

31 

33 

20 

0d 

32 

35 

0d 

20 

00 

ab42 

8 

20 

0c 

28 

88 

00 

02 

aa 

00 

3e 

ac4a 

3 

00 

00 

00 

00 

00 

00 

00 

00 

4b 

ad52 

3 

31 

31 

3B 

20 

0d 

20 

3B 

33 

47 

ab4a 

3 

00 

0B 

00 

00 

22 

00 

00 

22 

b5 

ac52 

3 

00 

00 

00 

00 

bb 

00 

00 

00 

53 

ad5a 

8 

20 

Bd 

33 

30 

0d 

20 

39 

34 

f 3 

ab52 

3 

00 

00 

22 

00 

00 

22 

bb 

00 

ec 

ac5a 

3 

00 

Bo 

00 

00 

00 

00 

00 

00 

5b 

ad62 

3 

20 

Bd 

20 

3B 

33 

20 

0d 

34 

e9 

abSa 

3 

22 

00 

2a 

aa 

00 

25 

55 

00 

db 

ac62 

8 

00 

00 

00 

00 

00 

00 

00 

00 

63 

ad6a 

3 

31 

0d 

20 

37 

31 

20 

0d 

20 

99 

ab62 

3 

09 

55 

00 

02 

aa 

00 

00 

01 

03 

ac6a 

3 

00 

00 

00 

00 

00 

00 

00 

00 

6b 

ad72 

3 

38 

34 

20 

0d 

35 

32 

Bd 

20 

c7 

ab6a 

8 

50 

00 

00 

40 

00 

00 

40 

00 

c4 

ac72 


00 

00 

00 

00 

00 

aa 

00 

00 

73 

ad7a 

8 

31 

34 

33 

20 

Bd 

20 

3B 

34 

bl 

ab72 

3 

00 

60 

E0 

00 

6B 

00 

00 

6a 

fe 

ac7a 

3 

00 

00 

00 

00 

00 

00 

00 

00 

7b 

ad82 

3 

20 

0d 

36 

37 

Bd 

20 

31 

32 

98 

ab7a 

3 

00 

00 

6b 

00 

00 

02 

00 

00 

65 

acB2 

3 

00 

00 

00 

00 

00 

bb 

00 

00 

83 

adBa 

3 

37 

20 

Bd 

20 

31 

31 

31 

20 

ba 

ab82 

3 

02 

00 

00 

03 

00 

00 

00 

00 

e5 

ac8a 

8 

80 

00 

20 

00 

00 

aB 

00 

00 

5B 

ad92 


0d 

37 

36 

0d 

00 

00 

00 

00 

6a 

abBa 

ab 92 

1 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CS 

00 

03 

00 

00 

00 

00 

8b 

93 

ac92 

ac9a 

3 

22 

00 

bb 

bb 

00 

00 

08 

00 

00 

00 

00 

00 

00 

00 

bb 

00 

b6 

9b 

Llsting 4. Ein paar Demo-Daten 


ab9a 


00 

00 

00 

00 

00 

00 

00 

00 

9b 

aca2 

= 

00 

00 

00 

00 

00 

00 

00 

00 

a3 

zum ADscniu» 
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C 64 


Neue Zeichen braucht dos Land 


Dieses Programm ist mehr als nur ein einfacher Zeichensatzgenerator. 

Es unterstützt das Erstellen von Spielplänen und Bildern. 

Zur Bearbeitung des Zeichensatzes stehen Ihnen über 100 Befehle zur Verfügung. 



cpl*7DQft 
|dqt + 8ER& 
ier4-,9FS 
'fs _ - : OT| • 


LivftOf JH 
3jW$i>KX 
JkxX2?LV 
7ly63—MZ 
Ghz' 4AN+ 
anCCSBQfc: 


Zeichenbuffer Zeichenfeldein- Modusfeld 

Stellungen 

Bild 1. Die Erklärung des Bildschlrmaufbaus von »CHARSET-MASTER« 


momentan 

bearbeitetes 

Zeichen 


■•ODOOM 

lOOMOO» 

•DOIOOO* 

•008000» 

8O088B8» 

•00B8808 

»»00001t 


D as Programm »BOOT CHARSETM.« (Listing 1) wird mit 
dem MSE eingegeben und erzeugt dann beim Starten 
ein Autostart-File auf Diskette. Dieses wird mit LOAD 
" CHARSETM ASTER" ,8,1 geladen und startet automatisch. 
Dabei gehen eventuell vorhandene Basic-Programme oder 
Spiele, die im Bereich von $0400 bis $D000 liegen, nicht 
verloren, und auch die Programmzeiger bleiben erhalten! 
Wegen dieser Eigenschaft kann man im Speicher stehende 
Spielprogramme mit diesem Programm durch Zeichensatz¬ 
änderungen und Zeichenfeldänderungen manipulieren und 
hinterher ganz normal speichern. Das aktivierte Programm 
belegt den Bereich von $E000 bis $FC20 und der jeweils zu 
bearbeitende Zeichensatz liegt im Bereich $D000 bis 
$D800. Das vom Programm benutzte Video-RAM liegt unter 
dem Farb-RAM im RAM-Bereich von $D800 bis $DCOO. 
Weiterhin benutzt das Programm beim Arbeiten Speicher¬ 
stellen in den Bereichen $0000 bis $0400, $DCOO bis 
$E000 und $FEOO bis $FFFF! Das Programm befindet sich 
somit unter dem Kernel-ROM in dem dort befindlichen RAM. 
Deswegen ist der erneute Aufruf im Basic-Modus etwas 
schwierig. Im Bereich ab dezimal 760 wird deshalb von der 
Autostart-Routine eine 8 Byte lange Initialisierungs-Routine 
hinterlassen, so daß das Programm mit »SYS 760« erneut 
gestartet werden kann. Fehlt aus irgendwelchen Gründen 
diese Routine (zum Beispiel durch Überschreiben, oder weil 
man nur ein absolutes Programmfile vom »CHARSETMA- 
STER« ohne Autostart benutzt), so kann man es auch mit 


einer kurzen Zeile wieder aufrufen. Sie müssen die folgenden 
Tasten drücken: 

(H0ME)SYS1031{CBM UjFAFAjSHIFT L](RVS ON]X[CBM G] (RETURN] 

Diese etwas merkwürdige Initialisierung schreibt die 8 Byte 
lange, oben erwähnte Routine in den Bildschirmbereich und 
startet sie. Die eigentliche Startadresse des Programmes ist 
$E598. Nach dem Start sieht man links oben den Zeichen¬ 
satz, rechts oben ist ein Fenster, welches später jeweils 
einen Ausschnitt der Zeichenfelder darstellt. In dem grau 
umrandeten Kasten unten befindet sich links das Zeichenedi¬ 
tierfeld, rechts unten das momentan bearbeitete Zeichen (zu 
Anfang gelöscht, deshalb nicht sichtbar) und in der Mitte eine 
weiße Zahlenkolonne. Außerdem befindet sich noch neben 
dem Zeichen ein Feld, in dem die verschiedenen Modi des 
Programmes abgelesen werden können. 


Befehlsüberskht 


Um bei den folgenden Befehlen nicht die Übersicht zu verlie¬ 
ren, können sie sich an Bild 1 und 2 orientieren, in denen alle 
wichtigen Elemente des Programmes und deren im folgen¬ 
den benutzten Bezeichnungen enthalten sind. Die hervorge¬ 
hobenen Ausdrücke geben die Tasten an, die gedrückt wer¬ 
den müssen. 
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C 64 


GRAFIK-ANWENDUNG 


Allgemeine Befehle: 

Q dient zum Verlassen des Programmes mit 

nachfolgender Sicherheitsabfrage für den 
Fall des versehentlichen Betätigens dieser 
Taste. 

SHIFT Q startet das Programm (nach Sicherheitsab¬ 
frage) noch einmal, womit gleichzeitig der 
Ursprungszustand aller Einstellungen wie¬ 
derhergestellt wird. 

SHIFT HOME löscht den im Puffer vorhandenen Zeichen¬ 
satz (Sicherheitsabfrage vorhanden). 

SHIFT : holt den Original Commodore Groß/Grafik- 

Zeichensatz in den Zeichensatzpuffer. 
SHIFT ; holt den Original Commodore Groß/Klein- 
Zeichensatz in den Zeichensatzpuffer. 
SPACE nachfolgendes Betätigen der RUN/STOP- 

Taste führt zurück in den Normalmodus; das 
Betätigen einer Funktionstaste schaltet den 
LN-Modus (Lernmodus) ein (sichtbar im 
Modusfeld). 

Bis zu 63 nachfolgende Tastendrücke (auch ungültige!) 
werden gespeichert und der entsprechenden Funktionsta¬ 
ste zugeordnet. Diesen Vorgang kann man mit der 
RUN/STOP-Taste beenden. Beim Betätigen dieser Funktions¬ 
tasten zu späterer Zeit werden die gespeicherten Tasten aus¬ 
geführt. Man kann im LN-Modus auch schon definierte Funk¬ 
tionstasten aufrufen, eine enorme Erleichterung beim 
Umgang mit diesem Programm. Betätigt man im LN-Modus 
die Funktionstaste, der die Definition gerade zugeordnet 
wird, so entsteht eine Endlosschleife, die man mit der 
RUN/STOP-Taste jederzeit verlassen kann. 

L lädt ein durch Namenseingabe bestimmtes 

Programmfile von Diskette. Tippt man nach 
der Namenseingabe ein »N«, so wird an die 
Adresse geladen, die auf Diskette gespei¬ 
chert ist (absolut); tippt man ein »Y«, so wird 
an eine vom Benutzer zu bestimmende 
Adresse geladen. 

S erwartet eine Namenseingabe und nachfol¬ 

gende Eingabe von Start- und Endadresse. 
Danach wird der so bestimmte Bereich 
unter dem Namen als Programmfile auf Dis¬ 
kette gespeichert. Voraussetzung ist, daß 
ein File gleichen Namens auf der Diskette 
nicht existiert, sonst wird der Speichervor¬ 
gang abgebrochen und der Fehler ist am 
Blinken der LED des Laufwerkes zu erken¬ 
nen. Gespeichert werden grundsätzlich nur 
die RAM-Bereiche (auch unter dem ROM). 

T Verschieben eines durch Start-, End- und 

Zieladresse angegebenen Speicherberei¬ 
ches. 

P Auffüllen eines durch Start- und Enda¬ 

dresse angegebenen Speicherbereiches 
mit dem Bildschirm-Codewert des Zeichens 
im Zeichensatzcursor. 

1 Inkrementieren der Rahmenfarbe. 

2 Inkrementieren der Hintergrundfarbe 0. 

3 Inkrementieren der Hintergrundfarbe 1. 

4 Inkrementieren der Hintergrundfarbe 2. 

5 Inkrementieren der Hintergrundfarbe 3. 

6 Inkrementieren der Zeichenfarbe. 

Zeichensatzbefehle: 

Y,G,H,B Diese vier Tasten bewegen den Zeichen¬ 
satzcursor über den dargestellten Zeichen¬ 
satz. 

Z kopiert den ab Z-ADR. befindlichen Zei¬ 

chensatz in den Zeichensatzbuffer. 


SHIFT Z 

SHIFT Fl 
SHIFT F3 
SHIFT F5 
SHIFT F7 
CBM Fl 
CBM F3 
CBM F5 
CBM F7 


schreibt den Zeichensatz im Puffer in den 

Speicher ab Z-ADR. 

erhöht Z-ADR. um 1. 

erhöht Z-ADR. um 8. 

erhöht Z-ADR. um 104. 

erhöht Z-ADR. um 2048. 

erniedrigt Z-ADR. um 1. 

erniedrigt Z-ADR. um 8. 

ernierigt Z-ADR. um 104. 

erniedrigt Z-ADR. um 2048. 


Befehle zum Verändern eines Zeichens: 

Gesteuert wird der Zeichencursor durch die Cursortasten. 
+, SHIFT + setzt einen Punkt im Zeichen. 

SHIFT - löscht einen Punkt im Zeichen. 

HOME löscht das Zeichen (ohne Veränderung der 

Cursorstellung). 

DEL invertiert das Zeichen. 

C holt das Zeichen unter dem Zeichensatz¬ 

cursor in den Zeichenpuffer. 

SHIFT C schreibt das Zeichen im Zeichenpuffer in 

den Zeichensatz unter den Zeichensatzcur¬ 


N 

SHIFT N 


A 

SHIFT A 

ncMüf 

o 

SHIFT O 
X 

SHIFT X 

I 

: und; 


SHIFT - 

f 

SHIFT t 


sor. 

holt das Zeichen unter dem Zeichenfeldcur¬ 
sor in den Zeichenpuffer, 
schreibt das Zeichen im Zeichenpuffer in 
den Zeichensatz an den Platz, der von dem 
Zeichen unter dem Zeichenfeldcursor 
bestimmt wird. 

bitweise AND-Verknüpfung mit dem Zeichen 
im Zeichenpuffer und dem unter dem Zei¬ 
chensatzcursor. 

wie zuvor, jedoch wird das Ergebnis unter 
den Zeichensatzcursor in den Zeichensatz 
geschrieben. 

wie unter A, jedoch bitweise OR- 
Verknüpfung. 

wie unter SHIFT A, jedoch bitweise OR- 
Verknüpfung. 

exklusiv-Oder-Verknüpfung wie unter A. 
exklusiv-Oder-Verknüpfung wie unter SHIFT 
A. 

horizontales Spiegeln des Zeichens, 
vertikales Spiegeln des Zeichens, 
diagonales Spiegeln des Zeichens in den 
beiden Diagonalen. 

horizontales Scrollen des Zeichens nach 
links. 

horizontales Scrollen des Zeichens nach 
rechts. 

vertikales Scrollen des Zeichens nach 
oben. 

vertikales Scrollen des Zeichens nach 
unten. 

Drehung des Zeichens entgegen dem Uhr¬ 
zeigersinn. 


Zeichenfeldbefehle: 

l,J,K,M Cursorsteuerung des Zeichenfeldcursors. 

£ kopiert das Zeichen unter dem Zeichen¬ 

satzcursor in das Zeichenfeld unter den 
Zeichenfeldcursor. 

Inkrementieren von V-WID. 

, Dekrementieren von V-WID. V-WID. gibt die 

Breite des Feldes eines Zeichens im Spei¬ 
cher an, aus dem in das Zeichenfeld gele¬ 
sen und geschrieben werden kann. 

0 anhand der Farbgebung der Zahlen bei V- 

ADR. und F-ADR. kann man sehen, ob die 
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7 

SHIFT 7 

8 

SHIFT 8 
9 

SHIFT 9 
SHIFT 0 


F 

SHIFT F 
V 

SHIFT V 
U 

SHIFT U 

CBM U 


folgenden Befehle zur Veränderung dieser 
Adressen auf V-ADR. oder F-ADR. wirksam 
sind. Dieser Befehl erlaubt es, alle mögli¬ 
chen Kombinationen einzustellen. 
Inkrementieren der unter 0 spezifizierten 
Adressen. 

Dekrementieren der unter 0 spezifizierten 
Adressen. 

Inkrementieren der unter 0 spezifizierten 
Adressen um V-WID. 

Dekrementieren der unter 0 spezifizierten 
Adressen um V-WID. 

Inkrementieren der unter 0 spezifizierten 
Adressen um V-WID. mal 13. 
Dekrementieren der unter 0 spezifizierten 
Adressen um V-WID. mal 13. 

Da der Farbcode nur 4 Bits benötigt und 8 
Bits zur Verfügung stehen, kann man mit 
dieser Funktion auswählen, ob die 4 
unteren (LO) oder die 4 oberen (Hl) oder 
sogar beide (LH beziehungsweise HL) 
benutzt werden sollen. Die Anzeige im 
Modusfeld gibt Auskunft über die aktuelle 
Darstellungsart. Wenn jeweils 2 Farben in 8 
Bit dargestellt werden sollen, so erhöhen 
oder erniedrigen die Befehle 7 bis SHIFT 9 
die Adressen nur noch um die Hälfte, wenn 
die FADR. verändert werden soll. 

Lesen der Farbe des Zeichenfeldes aus 
dem Speicher ab F-ADR. 

Schreiben der Farbe des Zeichenfeldes in 
den Speicher ab FADR. 

Lesen der eigentlichen Zeichen des Zei¬ 
chenfeldes aus dem Speicher ab V-ADR. 
Schreiben der eigentlichen Zeichen des 
Zeichenfeldes in den Speicher ab V-ADR. 
Auffüllen des Zeichenfeldes mit den 
Zeichenfeld-Cursor-Koordinaten als Gren¬ 
zen mit dem Zeichen unter dem Zeichen¬ 
satzcursor. 

Auffüllen des Zeichenfeldes mit der aktuel¬ 
len Zeichenfarbe mit den Zeichenfeld- 
Cursor-Koordinaten V-XKO und V-YKO als 
Grenzen. 

vereint die Befehle U und SHIFT U. 


Beschreibung der Einstellungsgrößen 

Z-ADR.: 

Gibt die Adresse im Speicher an, ab der ein Zei¬ 
chensatz In den Zeichensatzpuffer eingelesen 
beziehungsweise an die ein im Zeichensatzpuffer 
vorhandener Zeichensatz geschrieben werden kann. 

Z-CHAR: 

Gibt den Bildschirmcode des Zeichens aus dem Zei¬ 
chensatz im Puffer unter dem Zeichensatzcursor an. 

Er ergibt sich aus der Position des Zeichens im Zei¬ 
chensatz! 

V-ADR.: 

Gibt die Adresse im Speicher an, ab der die Zeichen 
für den Zeichenfeldpuffer stehen. 

F-ADR,:. 

Gibt die Adresse Im Speicher an, ab der die Farben 
für den Zeichenfeldpuffer stehen. 

V-XKO.: 

X-Koordlnate des Zeichenfeldcursors, 

V-YKO.. 

Y-Koordinate des Zeichenfeldcursors. 

V-WID.: 

Gibt die Breite des Zeichenfeldes an, aus dem gele¬ 
sen beziehungsweise in das geschrieben werden 
soll. Um zum Beispiel aus dem normalen Bildschirm 
von $0400 bis $0800 zu lesen, muß man die Zahl 
$0028 bei V-WID einstellen (dezimal 401). 

V-CHAR.: 

Gibt den Bildschirmcode des Zeichens unter dem 
Zeichenfeldcursor an. 

V-CLR.: 

Gibt den Farbcode des Zeichens unter dem Zei¬ 
chenfeldcursor an. 

BORDER: 

Gibt die Rahmenfarbe an. 

BKGND0 - 

Geben die 4 Hintergrundfarben des VIC an. 

BKGND 3: 

(BKGND1 bis 3 werden zum Beispiel beim Extended 
Color Mode benötigt). 

CHRCLR: 

Gibt die Farbe des Zeichensatzes und des Zeichens 
in natura an. Mit dieser Farbe wird auch bei einigen 
Befehlen in das Zeichenfeld geschrieben. 

Bedeutungen im Modusfeld: 

Feld ' 

Hier sind die Zustände der 5 verschiedenen Modi 
(CZNVF) aufgeführt. Ein gesetztes Zeichen bedeu¬ 
tet Modus aktiviert. 

Feld 2: 

Hier wird dargestellt, wie die Farben für das Zei¬ 
chenfeld aus dem Speicher gelesen und in ihn 
geschrieben werden. 

Feld 3: 

Hier wird angezeigt, ob Normal Color Mode, Multi 

Color Mode oder Extended Color Mode vorliegt. 

Feld 4: 

Hier wird der Zustand der Hauptmodi: Write-Modus, 
Copy-Modus und Learn-Modus aufgeführt. 


Bild 2. Erläuterung der Einstellparameter und des Modusfeldes 


Es existiert ein Puffer zum Zeichenfeld, auf den mit folgender 

neun Befehlen zugegriffen werden kann: 

R liest die Zeichen des Puffers in das Zei¬ 

chenfeld in dasjenige Rechteck, das der 
Zeichenfeldcursor mit der linken oberen 
Ecke des Zeichenfeldes bestimmt (siehe 
auch U, SHIFT U, CBM U). 

SHIFT R liest die Farben des Puffers in das Zeichen¬ 
feld. 

CBM R vereint die Befehle R und SHIFT R. 

W,SHIFT entsprechende Schreibbefehle zu den obe- 

W,CBM W ren drei Lesebefehlen. 

E,SHIFT vertauscht den Inhalt des Puffers mit dem 

E,CBM E Zeichenfeld in der bei R, SHIFT R, CBM R 
beschriebenen Art. 

Modusbefehle: 

CBM C schaltet den C-Modus an und aus. Dieser 
Modus kopiert das Zeichen unter dem Zei¬ 
chensatzcursor bei dessen Bewegung. 

CBM N dient zum An- und Ausschalten des N- 


Modus, der das durch den Zeichenfeldcur¬ 
sor bestimmte Zeichen automatisch in den 
Zeichenpuffer kopiert, wenn der Zeichen¬ 
feldcursor bewegt wird. 

CBM F,CBM V dienen zum An- und Ausschalten des F 
und V-Modus. Bei diesen Modi wird das 
Zeichenfeld bei folgenden Befehlen auto¬ 
matisch aus dem Speicher gelesen: 7, 
SHIFT 7, 8, SHIFT 8, 9, SHIFT 9, SHIFT 0, 
Komma, Punkt. 

CBM Z dient zum An- und Ausschalten des Z- 

Modus. Dieser Modus kopiert den Zeichen¬ 
satz automatisch aus dem Speicher in den 
Zeichensatzpuffer, wenn Z-ADR. verändert 
wird. 

RETURN An- und Ausschalten des Copymodus. Bei 
jeder Veränderung des Zeichens im Zei¬ 
chenpuffer wird das Zeichen vor dem Aus¬ 
führen von bestimmten Befehlen zu dem 
nach der Ausführung entstandenen Zeichen 
hinzukopiert. Der Modus gilt für folgende 
Befehle: 

=, /, *, :, -, SHIFT t, SHIFT t. 
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CTRL dient zum Anschalten des WRT-Modus. Bei 

diesem Modus kann man das Zeichenfeld 
editieren wie im normalen Basic-Editier¬ 
modus: HOME, SHIFT HOME, DEL, SHIFT 
DEL, RETURN und die Cursorsteuerung 
funktionieren ähnlich wie im Basic-Modus. 
Der Reversmodus läßt sich jedoch nur mit 
CBM 9 und CBM 0 an- und ausstellen. 
Farbänderungen sind in diesem Modus 
nicht möglich. Ansonsten werden alle Zei¬ 
chen wie im Basic-Modus in das Zeichen¬ 
feld gedruckt. Die anderen Befehle des 
CHARSETMASTERs sind in diesem Modus 
nicht wirksam. 


Vom Basic nutzbar 


Als letztes besitzt dieses Programm noch drei Befehle zur 
DATA-Zeilen-Erzeugung. Es werden Speicherbereiche mit 
Hilfe einer gewissen Art von DATA-Zeilen in Basic- 
Programme integriert. Dies sind jedoch keine eigentlichen 
Basic-DATA-Zeilen, sondern eine spezielle Art der Datenable¬ 
gung, die nur durch eine Interpreter-Erweiterung in den Spei¬ 
cher gebracht werden kann. Die Daten werden nach einem 
Sonderzeichen als Hexadezimalzahlen ohne Leerzeichen 
getrennt in einer Basic-Zeile gespeichert. Dabei werden die 
Sonderzeichen am Anfang einer solchen Spezial-DATA-Zeile 
durch die Interpreter-Erweiterung zu Befehlen, die die Auf¬ 
gabe haben, diese Hexadezimaldaten in den Speicher zu 
schreiben: 

D schreibt die 8 Byte des Zeichens im Zei¬ 

chenpuffer als spezielle DATA-Zeile, ab der 
Zeilennummer, die um eins größer ist als 
die letzte Basic-Zeilennummer. 

SHIFT D wie unter C, jedoch wird der Bildschirm¬ 
code des Zeichens (angegeben durch die 
Position des Zeichensatz-Cursors) vorweg 
als Hexadezimalzahl gespeichert. Diese 
DATA-Art benötigt zwar mehr Speicherplatz 
als die unter C, doch kann man so willkür¬ 
lich Zeichen anordnen, die an ihren 
ursprünglichen Platz im Zeichensatz wieder 
zurückgeschrieben werden. 


1BB0 SU=B:FOR I=B28 TO 11921:READ A:SU=SU+A 
:POKE I,A:NEXT:IF SU=23429 THEN RETUR 
N <174> 

JB10 PRINT"FEHLER IN DATAS!“:END <B74> 

1B2B REM AUFRUF: SYS828,SPEICHERADRESSE,HI 

GH-BYTE VOM CHARSET <192> 

1B3B REM AUSSCHALTEN: SYS58451 <868> 

1B99 REM INTERPRETERERWEITERUNG: <BB3> 

11BB DATA 32,253,174,32,235,1B3,165,28,133 

,25B,165,21,133,251,138,41,248,133 <BBB> 

11B1 DATA 252,169,9B,141,8,3,169,3,141,9,3 

,96,32,115,B,2B1,35,248,66,281,93 <168> 

1182 DATA 248,76,281,33,248,185,32,121,8,7 

6,231,167,281,48,144,48,233,48,281 <249> 

1183 DATA 18,144,6,233,7,281,18,144,2B,96, 

32,115,8,248,25,32,111,3,18,18,18 <174> 

1184 DATA 18,133,253,32,115,8,248,8,32,111 

,3,5,253,168,8,96,76,8,175,184,184 <BB7> 

1185 DATA 76,185,3,32,12B,3,145,258,238,25 

8,288,247,238,251,76,163,3,32,128 <B93> 

1186 DATA 3,133,254,152,6,254,42,6,254,42, 

6,254,42,5,252,133,255,32,128,3,145 <061> 

1187 DATA 254,238,254,288,247,238,255,76,1 

96,3,32,128,3,133,21,165,252,133 <233> 

1188 DATA 255,168,8,132,28,132,254,162,B,1 

28,169,51,133,1,177,28,145,254,288 <B85> 

1189 DATA 2BB,249,238,21,238,255,282,288,2 

42,169,55,133,1,88,76,225,167 <139> 


e &♦'«- 

Listlng 2. »CHAR-ERWEITERUNG« zum Einbinden der 
eigenen Zeichensätze 


CBM D erzeugt DATA-Zeilen eines anzugebenden 
Speicherbereiches, wobei angegeben wer¬ 
den kann, wieviel Byte pro Zeile genommen 
werden sollen. 

Bei diesen Befehlen wird der Vorgang der DATA-Zeilen- 
Erzeugung abgebrochen, wenn das Basic-Programm sich 
dem Speicherende für Basic-Programme nähert, so daß das 
Schreiben unter den Basic-Interpreter verhindert wird. Die 
Interpreter-Erweiterung »CHAR-ERWEITERUNG« (Usting 2) 
kann man als normale DATA-Zeilen in das Basic-Programm 
aufnehmen und mit SYS 828,AN,CH starten (initialisieren), 
wobei AN die Anfangadresse der zu speichernden Daten und 
CH das High-Byte des Zeichensatzes, in den die mit SHIFT 
C definierten DATA-Zeilen kopiert werden sollen, sein müs¬ 
sen. Die Interpreter-Erweiterung kann mit SYS 58451 wieder 
deaktiviert werden. (M.Rose/og) 
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19 

16 
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28 
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52 

Of 

4d 

09 

06 

03 

63 
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47 

44 

77 

74 

6f 

6c 

67 

64 

Bf 
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5f 

Oe 
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10 

14 

13 

OB 

lc 

61 
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07 

04 

37 

34 

2f 

2c 

27 

24 

aO 
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lf 

12 

Od 

SO 

Oa 

53 

48 

4e 

80 
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6d 

71 

6a 

65 

62 

Bd 
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5e 

5d 

5a 

55 

5b 

58 

59 

56 

fa 
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41 

6e 

72 
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61 

60 

76 

68 

2f 
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66 

73 

57 

94 

54 

49 

Be 

43 

Oa 
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9a 
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97 

9b 

Bf 

63 
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4f 

98 

81 
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b5 

89 
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a2 

9d 

95 

a6 

al 

b8 
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99 
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aa 

ab 

a8 

aO 

a3 

00 

dl 
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C 64 


GRAFIKAN WENDUNG 


Busineß-Grafik 
mit dem C128 

Ein nützliches Unterprogramm für jeden Entwick¬ 
ler von Programmen aus dem Geschäftsbereich. 
Es dient zur Erstellung farbiger Balkengrafiken. 

E ine ünterroutine, die für die Programmierer von Anwen¬ 
dersoftware, speziell die aus dem Geschäftsbereich, 
gedacht ist. Sie eignet sich etwa zum Einbau in demos- 
kopische Programme, Wirtschaftsbilanzen oder ähnliches. 
Die Vorteile dieser in Listing 1 abgedruckten Routine: 

- automatische Wertanpassung 
- variable Höhe und Breite der Grafik 
- variable Positionierung der Grafik 
- variable Balkenfarbe 
- frei definierbarer Balkenabstand 
Dieses Programm läuft auf dem CI28 im 80-Zeichen- 
Modus und arbeitet unter Basic 7.0. 

Programmhinweise 

Um mit der Routine arbeiten zu können, müssen Sie erst 
über die Variablen und Werte Bescheid wissen: 


- Die Variable »A« (Farbwiederholzyklus): Sie bestimmt, nach 
wieviel verschiedenen Farben die Farbreihenfolge wieder 
von vorne beginnt (zum Beispiel: A=6 - Nach sechs ver¬ 
schiedenen Farben werden diese wieder in der gleichen Rei¬ 
henfolge wiederholt). 

- Variable »B« (Anzahl der Balken): Hier wird die Zahl der be¬ 
nötigten Balken abgelegt. Diese Zahl ist abhängig von der 
Position der Grafik. Je weiter rechts sie steht, desto geringer 
ist die Zahl der möglichen Balken (maximal 70). 

- Die Balkenbreite »C« ist ebenfalls abhängig von der Zahl der 
Balken und der Bildschirm-Ausgabeposition (Breite maxi¬ 
mal 74). 

- In der Variablen »D« ist die Höhe der Balken anzugeben 
(maximal 22). 

- Der Rasterabstand »E« gibt die Zahl der freien Pixels zwi¬ 
schen den Balken an. Auch dieser Wert ist wieder von der 
Anzahl und Bildschirmposition abhängig (maximal 74). 

- Für die Bestimmung der Anfangsposition der Grafik vom lin¬ 
ken Bildschirmrand dient die Variable »S«. 

Zusammenfassung: Es muß beachtet werden, daß die 
Anzahl der Balken * Balkenbreite + Rasterabstand + Seiten¬ 
abstand links den Wert 75 nicht überschreiten darf! Die 
Steuerparameter werden am Anfang der jeweiligen Pro¬ 
gramme vom Anwender definiert, beziehungsweise vom 
Hauptprogramm an die Unterroutine übergeben. 

(Thomas Spitzhorn/dm) 


10000 A =14: REM *** FARBWIEDERHOLZYKL.(1 

LTIPL. 

4) 

10255 FOR H=D TD 1 STEP -1: IF H<10 THEN PRI 

10010 B =22: REM *** ANZAHL BALKEN <70> 

NT TAB(S—4)"(WHITE>“H"(GREENifi" : ELSE 

10020 C =2 : REM *** BALKENBREITE 1-74 

PRINT TAB(S—4)"(LEFT,WHITE}"H"tGREEN>0 

10030 D ”20s REM *** HOEHE BALKEN ( 22 ) 

*1 

10040 E =3 : REM *** RASTERABSTAND 1-74 

10^0 NEXT H 

10050 S =4 : REM *** ANFANG DER BRAPHIC L 

10270 SYS 52332,,23,S-l 

INKS (50) 

10280 FOR H=1 TO (B*E)+(C-E)+2: PRINT “<GREE 

10060 REM BENUTZTE VARIABLEN ****** WECX) / 

N>T"; : NEXT H: PRINT : REM **** NUMMER 

LW(X) / IV(X> / A-V 

IERUNG X-ACHSE 

10070 DATA 164,175,185,162,184,183,163 

10290 PRINT TAB(S+l): FOR T=1 TO(B*E)+S: IF 

10080 DATA 28,150,30,153,31,154,155,5,129,15 

E>1 THEN FOR U=1 TO 10: V=2: IF U=10 T 

6,151,159,149,158 

HEN U=0 

10090 REM ***** t FARBE DER BALKEN 

10300 IF E<2 THEN 10330 

10100 FAST : DIM WE(B),LW<B>,IV<B> 

10310 DO WHILE V<E AND T>1: PRINT “ V=V+ 

10105 FOR T=1 TQ B: WE(T)=INT(RND(1>*350): N 

1: LOOP : T=T+E: PRINT "{WHITE,LEFT>"U 

EXT : REM **** ZUFALLSGEN. 

;: IF T>B*E THEN 10350 

10110 SCNCLR : PRINT TAB(20)"BALKENDIAGRAMM 

10320 NEXT U,T : REM **** EINTEILUNG BEI BAL 

WIRD ERRECHNET": 

KENABSTAND <1 

10120 G=0: FOR H=1 TO B : REM **** ANPASSUN 

10330 1=0: FOR H=1 TO E*B: 1=1+1: PRINT "(WH 

G DER WERTE 

ITE>" MID*("1234567890",1,1);: IF 1=10 

10130 1=0: LW(1)=146 

THEN 1=0 

10140 IF WE(H)/(10tl)>D THEN I=I+.3 : IF G< 

10340 NEXT H 

I THEN G=I: REM ** +.3=AUFL0ESUNG 

10350 N=0: 0=0: RESTORE 10080: FOR H=1 TO(B* 

10150 IF WE(H)/(10tl)>D THEN 10140 

E) STEP E: READ R: 0=0+1: IF 0=A THEN 

10160 NEXT H 

0=0: RESTORE 10080 : REM **** BALKENFA 

10170 FOR H=1 TO B: WE(H>=(WE(H)/(10tG>): J= 

RBE LESEN 

INT(WE(H>): REM **** TEILER 

10360 N=N+1 

10180 FOR K=0 TO 6: IF WE(H>>J+(.142*K> THEN 

10370 FOR P =22 TO WE(N> STEP -1 

READ L: IV(H)=146: IF K>3 THEN IV(H)= 

10380 SYS 52332,,P,H+S 

18 

10390 IF WE(N)>22 THEN 10400: ELSE PRINT CHR 

10190 NEXT K: RESTORE 10070: LW(H)=L: L=0: N 

*(R);CHR*(18);: FOR F=1 TO C: PRINT CH 

EXT H : REM **** LETZTES GRAPH. ZEICH 

R*(32);: NEXT F : REM **** GRUNDBALKEN 

EN 

DARSTELLEN 

10200 FOR H=1 TO B: FOR M=0 TO 23 

10400 NEXT P: IF WE(N>=23 THEN Q=P+1: ELSE 0 

10210 IF INT(WE(H>)=M THEN WE(H)=23-M: GOTO 

=P 

1023 : REM **** REZIPROGWERT DER ZAHLE 

10410 SYS 52332,,Q,H+S: PRINT CHR*(R>;CHR*(I 

N 

V(N)) 5 : FOR F=1 TO C: PRINT CHR*(LW(N) 

10220 NEXT M 

);: NEXT F,H : REM **** GRAPH. ZEICHEN 

10230 NEXT H 

AUFSETZEN 

10240 SCNCLR : REM **** NUMMERIERUNG Y-ACHSE 

10420 GET KEY W*: SCNCLR : FOR H=1 TO B: LW( 

10250 SYS 52332,,22-D,2: PRINT TAB(S)"(WHITE 

H)=0: WE(H)=0: IV(H)=0: NEXT H : REM * 

>> INDEXMULTIPLIKATOR =" INT((10tG)*2+ 

*** VARIABLE LOESCHEN 

.5)/2;"<(GREEN>": REM **** ANZ. DES MU 

10430 REM * RETURN BEI UNTERROUTINE 

Listing 1. »Balkengrafik« - eine Unterroutine zum Einbau in Geschäftsprogramme. 
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C 64/CI 28 


Grafikbikher für 


C64: Wunderland 
der Grafik 

ln erfreulich lockerer und ver¬ 
ständlicher Sprache gibt das 
Buch eine ausführliche Darstel¬ 
lung, was mit dem Grafikchip 
des C64 alles möglich ist und 
wie man ihn programmiert. 
Theoretische Grundlagen und 
praktische Anwendungen sind 
so verständlich geschrieben, 
daß man das Buch jedem emp¬ 
fehlen kann, der sich ohne 
unnötige Mühe in dieses hoch¬ 
interessante Thema einarbeiten 
möchte. Alle Kenntnisse, die 
man zur Grafikprogrammierung 
benötigt, werden dem Leser auf 
einfache Weise nahegebracht. 
Nichts wird als selbstverständ¬ 
lich vorausgesetzt. So wird die 
gesamte Speicherorganisation 
des C64 gründlich durchleuch¬ 
tet, das binäre und hexadezi¬ 
male Zahlensystem als Grundla¬ 
gen von Bitmanipulationen wird 
erläutert und die allgemeinen 
Grundlagen der Grafik-Pro¬ 
grammierung werden erklärt. 

Auf diesem soliden Funda¬ 
mentaufbauend, beschreibt der 
Autor in einem separaten Kapi¬ 
tel das Arbeiten mit »Hires-3«, 
einer zum Buch gehörenden 
Grafik-Erweiterung für das 
C64-Basia Diese Basic-Erwei- 
terung stellt zahlreiche neue 
Befehle zur Verfügung, mit de¬ 
nen das Schreiben guter Gra¬ 
fik-Programme fast zum Kinder¬ 
spiel wird. Neben oft vermißten 
Befehlen wie RENUMBER, 
AUTONUMBER, DUMP oder 
MERGE gibt es in Hires-3 unter 
anderem einfache Möglichkei¬ 
ten, um Linien, Rechtecke, 
Kreise und Ellipsen im hochauf¬ 
lösenden Modus zu zeichnen. 

Ein zusätzlicher Leckerbissen 
für Besitzer eines Farbmonitors 
ist ein Programm, um 70 (!) 
unterschiedliche Farben auf 
den Bildschirm zu bringen. 

Der Wert des Buches wird 
durch die beiliegende Diskette 
ganz beträchtlich erhöht. Man 
bekommt zum Nulltarif die Gra¬ 
fikerweiterung Hires-3, alle im 
Buch vorgestellten Programme 
und viele überzeugende Bei¬ 
spiele verschiedenartiger Grafi¬ 
ken. (D. Hein/ev) 

Heimo Ponnath: C64: Wunderland der Gralik. 
Markt «Technik. 232 Selten. 

ISBN 3-89090-130-1, Prela 49 Mark ein- 
schlieBlich Programmdiskette 

Grafik und Musik auf 
dem Commodore 64 

Dieses für den Anfänger wirk¬ 
lich empfehlenswerte Buch ver¬ 


mittelt Kenntnisse aus allen 
Bereichen der Grafikprogram¬ 
mierung, die mit vielen in Basic 
geschriebenen Beispielen er¬ 
klärt werden. Mit Hilfe eines 
Selbsttests am Ende jedes 
Kapitels kann man sein bisher 
gewonnenes Wissen überprü¬ 
fen und feststellen, ob man 
gegebenenfalls etwas nachle- 
sen muß. 

Schwerpunkt der ersten vier 
Kapitel ist die Programmierung 
von Sprites, wobei alle notwen¬ 
digen Schritte ausführlich erläu¬ 
tert werden. Aber auch die 
Umdefinierung des Zeichensat¬ 
zes und die hochauflösende 
Grafik werden in einer auch für 
den Anfänger verständlichen 
Weise angesprochen. Der 
Schwerpunkt liegt aber, wie 
gesagt, in der Spritepro- 
grammierung. 

So beschäftigt sich dann auch 
das letzte Grafikkapitel mit der 
Verknüpfung von Sprites und 
Hintergrund. 

Der Musikteil des Buches, auf 
den in diesem Zusammenhang 
allerdings nicht näher eingegan¬ 
gen werden soll, führt den Leser 
schrittweise an die SID-Pro- 
grammierung heran. 

Im Anhang findet man schließ¬ 
lich nochmals alle Registerbele¬ 
gungen, die man im Zusammen¬ 
hang mit Ton und Grafik benö¬ 
tigt, tabellarisch zusammenge¬ 
faßt. Mehrere Entwurfsblätter 
für Sprites und Sonderzeichen, 
die man bei Bedarf abzeichnen 
oder herauskopieren kann, run¬ 
den dieses Buch ab. 

(Christoph Sauer/ev) 

Slan Krute: Grafik und Musik auf dam Commo¬ 
dore 64, Markt « Technik Verlag, 336 Seiten, 
ISBN 3-89090-033-X, Preis 38 Mark 

Commodore 64 - 
Grafik und Design 

Wer mit Vorliebe Spiele pro¬ 
grammiert, sollte sich dieses 
Buch anschaffen. Denn es 
beschreibt nicht nur die Pro¬ 
grammierung von Sprites oder 
das Arbeiten mit hochauflösen¬ 
der Grafik, sondern geht auch 
auf alle im Zusammenhang mit 
Spielen notwendigen Dinge ein. 
Dazu gehört zum Beispiel ein 
Kapitel über die Optimierung 
von Basic-Programmen, die 
Besonderheiten des PRINT- 
Befehls und die Erzeugung von 
großen Überschriften und Titel¬ 
bildern (gerade letzteres nimmt 
in diesem Buch großen Raum 
ein). Auch hier werden alle The¬ 
men durch ausführliche Bei¬ 
spiele verdeutlicht. 

Natürlich kommen auch wich¬ 
tige Themen wie die Erzeugung 


eigener Zeichensätze und die 
Programmierung bewegter Gra¬ 
fik nicht zu kurz. Auch hier wird 
neben einer Erläuterung der 
Grundlagen viel Wert auf die 
spätere praktische Anwendung 
in eigenen Programmen gelegt. 

Im fast 10Oseitigen Anhang (!) 
finden sich dann noch weitere 
Listings, mit denen man Zeichen 
und Sprites oder überdimensio¬ 
nale Programmtitel editieren 
kann. Aber auch bereits fertige 
Zeichensätze sind dort in Form 
von ausgefüllten Entwurfsblät¬ 
tern zu finden. Gut gefallen 
haben auch acht Hochglanz- 
Farbseiten, auf denen verschie¬ 
dene Effekte durch Bildschirm¬ 
fotos verdeutlicht werden. 

Im Vergleich zu anderen Gra¬ 
fikbüchern wird hier mehr Wert 
auf die Beschreibung der Spiel¬ 
programmierung gelegt, was 
nicht unbedingt negativ zu beur¬ 
teilen ist. 

(Christoph Sauer/ev) 

Charles Platt Commodore 64 Grafik und 
Design. Sybex Verlag. 280 Seiten, ISBN 
3-88745-073-6. Preis 39 Mark ’ 

Grafik-Programmierung 

C128 

Wie man es von Heimo Pon¬ 
nath nicht anders erwartet, ist 
auch das vorliegende Buch wie¬ 
der eine wahre Fundgrube so¬ 
wohl für den Einsteiger in die 
Grafikwelt, als auch für den fort¬ 
geschrittenen Anwender, der 
alle Fähigkeiten seines C128 
ausschöpfen möchte. 

Die Möglichkeiten und Gren¬ 
zen der im Basic 7.0 bereits vor¬ 
gesehenen Grafikbefehle wer¬ 
den detailliert besprochen. Ein 
weiteres Kapitel beschäftigt 
sich mit der Programmierung 
von Sprites und Shapes und 
zeigt den sinnvollen Umgang mit 
den entsprechenden Basic- 
Befehlen auf. Viele Tabellen, Bil¬ 
der und Beispielprogramme 
erleichtern dabei das Verständ¬ 
nis der im Text erklärten Zusam¬ 
menhänge. 

Wo das Basic 7.0 nicht mehr 
ausreicht, da wird zur Maschi- 
nenspracheübergegangen. Ein¬ 
steiger brauchen aber deshalb 
vor diesem Buch nicht zurück¬ 
zuschrecken, denn die zumeist 
nur kleinen, aber sehr wertvol¬ 
len Hilfsprogramme werden auf 
der dem Buch beiliegenden Dis¬ 
kette mitgeliefert - sie brauchen 
nur noch angewendet zu wer¬ 


den. Zu diesen Programmen 
gehören einige auch im Basic 
7.0 leider fehlende Program¬ 
mierhilfen wie eine OLD- 
Routine zum Retten von Basic- 
Programmen nach einem Reset 
oder eine MERGE-Funktion 
zum Aneinanderhängen von 
Programmen. Interessant ist 
auch ein Verfahren, mit dem die 
Befehle des eingebauten Ma¬ 
schinensprache-Monitors direkt 
in Basic-Programmen verwen¬ 
det werden können. 

Ein weiteres für den C 128-Be- 
sitzer sehr wichtiges Thema ist 
der für den 80-Zeichen-Modus 
verwendete VDC-Chip, der weit 
mehr kann, als nur Buchstaben 
auf dem Bildschirm erscheinen 
lassen. Dieses Buch zeigt, was 
alles im 80-Zeichen-Modus 
möglich ist, von hochauflösen¬ 
der Grafik bis zum selbstdefinier¬ 
ten Zeichensatz. 

Ein interessantes Thema aus 
der neuesten Forschung sind 
die Fractals - merkwürdige geo¬ 
metrische Gebilde. Wie sie zu¬ 
stande kommen, was sie bedeu¬ 
ten und wie man sie program¬ 
miert, das erfährt man in einem 
weiteren Abschnitt. 

Alles in allem handelt es sich 
bei diesem neuesten Werk von 
Heimo Ponnath wieder um ein 
bemerkenswert informatives 
Buch zum Thema Grafik. 

(Anne Barth/ev) 

Heimo Ponnath: Gralik-Programmierung CI28, 
Markt «Technik, 240 Selten. 

ISBN 3-89090-202-2, Preis 52 Mark eln- 
schlioßlich Programmdiskette 

Commodore 128 - 
Dos große Grafik-Budi 

Mit diesem runde 370 Seiten 
umfassenden Buch rückt ein 
Team von vier Autoren den 
Grafikeigenschaften des Com¬ 
modore 128 zu Leibe. Drei 
große Schwerpunkte werden 
abgehandelt: der VIC-ll-Chip, 
der 80-Zeichen-VDC-Chip und 
schließlich allgemeine Grundla¬ 
gen und Anwendungen der Gra¬ 
fikprogrammierung. 

Besondere Schwerpunkte im 
ersten Teil des Buches bilden 
die Sprites, Zeichensatz-Modifi¬ 
kationen sowie natürlich die 
hochauflösende Grafik, insbe¬ 
sondere deren Programmierung 
in Maschinensprache. Leider 
orientiert sich dieser Teil des 
Buches recht stark am C64- 
Modus, wie man überhaupt bei 


142 


SONDERHEFT 6/86 








C 64/CI 28 


BÜCHER 


C64undC128 


einer Reihe von Programmen in 
diesem Buch den dezenten Hin¬ 
weis findet: »Achtung, dieses 
Programm läuft nur im 64er- 
Modus«. 

Für den mehr an speziellen 
Eigenschaften seines C128 
interessierten Leser wird dann 
aber das folgende Kapitel über 
den VDC-Chip zur wahren 
Fundgrube an Informationen. 
Neben einer grundsätzlichen 
Darstellung der Arbeitsweise 
und Programmierung des VDC 
wird detailliert auf den Aufbau 
des internen VDC-Video-RAM, 
den Attribut-Speicher und den 
Zeichengenerator eingegangen. 

Der letzte Teil des Buches lie¬ 
fert neben einigen allgemeinen 
Grundlagen auch eine ganze 
Reihe von Anwendungen der 
Grafikprogrammierung auf dem 
C128. Als Stichworte seien hier 
nur Laufschrift, Sprite-Anima- 
tion, Balken-, Kurven- und 
Kuchengrafiken genannt. 

Fazit: Ein ausführliches und 
umfangreiches Werk, das alle 
Seiten der Grafik mit dem C128 
beleuchtet und insbesondere 
durch die vielen Beispiel-Pro¬ 
gramme auch für den Einsteiger 
sehr wertvoll ist. Eine Diskette 
mit allen Programmen kann zu¬ 
sätzlich angefordert werden. 

(Anne Barth/ev) 

Axel Plenge, Rail Durben, Klaus Lßflelmann. 
Dieter Vollere: Commodore 128 - Das große 
Grafik-Buch. Data Becker. 370 Seilen. ISBN 
3-89011-164-8, Preis 49 Mark. Programmdis¬ 
kette 29 Mark 

Grafik in Maschinen¬ 
sprache auf dem 
Commodore 64 

Gerade komplexere Pro¬ 
gramme im Zusammenhang mit 
Grafik sind in Basic sehr lang¬ 
sam. Da bleibt dann oft nur noch 
der Wechsel der Programmier¬ 
sprache, also statt Basic »Grafik 
in Maschinensprache auf dem 
Commodore 64«. 

Zunächst einmal muß man das 
Problem »wo speichere ich 
was« in den Griff bekommen. 
Das Buch gibt dabei in seinem 
zweiten Kapitel eine Hilfestel¬ 
lung, indem es aufzeigt, wie die 
einzelnen Register des Grafik¬ 
chips programmiert werden 
müssen. Nach und nach werden 
nun alle Betriebsarten des 
Videochips angesprochen und 
anhand von Beispielen in 
Maschinensprache erläutert. 

03 ( 3 ? 


Gleichzeitig wurden zum besse¬ 
ren Verständnis auch die analo¬ 
gen Basic-Programme abge¬ 
druckt. 

Nachdem man nun erfahren 
hat, wo man seine Grafik im 
Speicher unterbringen kann, 
geht es weiter mit der Definition 
von Sonderzeichen, sowohl ein¬ 
farbig, als auch in Multicolor. 
Das nächste Kapitel wird von 
der hochauflösenden Grafik 
beherrscht. Eine größere 
Maschinenroutine, die das Set¬ 
zen und Löschen von einzelnen 
Punkten erlaubt, bildet dabei die 
Grundlage. So bereiten auch 
kompliziertere Grafiken keine 
Schwierigkeiten mehr. 

Aufgrund dieses ausführli¬ 
chen Teils kommen die Sprites 
in diesem Buch etwas zu kurz. 
Der Autor beschränkt sich bei 
seinen Ausführungen auf die 
Beschreibung der Register. 
Interessant wird es dann noch 
einmal im 6. Kapitel, wo es um 
die Besonderheiten des Video¬ 
chips geht. Dazu gehört unter 
anderem das Softscrolling, die 
Rasterregister und die Be¬ 
schreibung des Rasterinter¬ 
rupts. 

Dieses Buch kann man allen 
empfehlen, die von Basic auf 
Maschinensprache umsteigen 
wollen, denn durch die Zweiglei¬ 
sigkeit (Maschinenprogramm 
und dazu die analoge Basic- 
Routine) wird das Umdenken 
bei der neuen Form der Pro¬ 
grammierung geübt. 

(Christoph Sauer/ev) 

Jürgen Hegner: Grafik ln Maschinensprache 
auf dem Commodore 64. IWT-Veriag, 140 Sei¬ 
len, ISBN 3-88322-051-5, Preis 38 Mark 


Einführung in CAD 
mit dem 
Commodore 64 

Das rechnerunterstützte Kon¬ 
struieren (Computer Aided De¬ 
sign, kurz CAD) macht Ge¬ 
brauch von den Fähigkeiten des 
Computers zu rechnen, Daten 
zu verwalten und auf dem Bild¬ 
schirm zu zeichnen. Gleich zu 
Beginn des Buches wird betont, 
daß im Vergleich mit wirklich 
professionellen CAD-Systemen 
die relativ geringe Grafik-Auflö¬ 
sung von 320 x 200 Punkten 
der einzige echte Nachteil des 
C64 sei. Die geringe Speicher¬ 
kapazität und Rechengeschwin¬ 
digkeit sei durch geschickte 


Organisation und Geduld wett¬ 
zumachen. 

Und so wird Schritt für Schritt 
eine Reihe von kleinen Baustei¬ 
nen zusammengestellt (zeich¬ 
nen von Punkt, Linie, Rechteck, 
Kreis, Bogen etc.), aus denen 
dann wiederum »Makroelemen¬ 
te« (Quader, Pyramide, Kegel, 
Kugel) gebildet werden können. 

Techniken wie Vergrößerung, 
Verkleinerung, Zoomen, Dupli¬ 
zieren, Drehen oder Spiegeln 
werden ausführlich behandelt 
und gehören sicherlich zu den 
interessantesten und nützlich¬ 
sten Ausführungen dieses 
Buches. So hat man schließlich 
einen Satz von Bausteinen mit 
den entsprechenden Program¬ 
men zur Verfügung, mit denen 
man eigene Aufgaben angehen 
kann. Grundlage aller Pro¬ 
gramme ist die Basic-Erwei- 
terung Simons Basic für den 
Commodore 64. 

Wer mit diesem Buch wirklich 
nutzbringend arbeiten will, der 
sollte sich also mit Simons Basic 
schon etwas auskennen, um 
den logischen Aufbau der Pro¬ 
gramme nachvollziehen zu kön¬ 
nen. Auf dem Weg dorthin bietet 
das Buch letztlich aber doch 
eine Reihe von nützlichen Hilfs¬ 
mittel!., Anregungen und Lö¬ 
sungsansätzen, so daß man es 
jedem an technischer Grafik 
Interessierten wirklich empfeh¬ 
len kann. 

(Dr. Wolfgang Bunse/ev) 

Werner Helft: Einführung ln CAD auf dem Com¬ 
modore 64, Data Becker, 320 Seiten, ISBN 
3-89001-067-3, Preis 49 Mark 

Mini-CAD mit Hi-Eddi 
plus auf dem C 64 

Mit Hi-Eddi plus kann der 
Benutzer alle grafischen Mög¬ 
lichkeiten des C64 voll und 
bequem ausnutzen. Die erstell¬ 
ten Grafiken lassen sich auf Dis¬ 
kette speichern und mit grafik¬ 
fähigen Druckern ausdrucken. 
Beim Druck können nahtlos 
zwei Bilder nebeneinander und 
beliebig viele untereinander 
ausgedruckt werden. Zur Bear¬ 
beitung stehen dem Anwender 
im Schwarzweiß-Betrieb sieben 
und im Farbbetrieb bis zu sechs 
Bildschirmspeicher, zwischen 
denen Bilder beliebig hin- und 
hergeschoben und kopiert wer¬ 
den können, zur Verfügung. 
Viele Beispiele zeigen ein¬ 
drucksvoll, wie mit Hi-Eddi plus 
saubere Schaltpläne, Strukto- 
gramme und schöne Glück¬ 
wunschkarten erstellt werden 
können. Bei der Arbeit helfen 
die auf der mitgelieferten Dis¬ 


kette gespeicherten Bildtafeln 
mit Schaltsymbolen und ver¬ 
schiedenen Schriften, aus 
denen man bei Bedarf leicht 
Teile in eigene Zeichnungen 
kopieren kann. Durch den logi¬ 
schen Aufbau von Hi-Eddi plus 
und die guten Erklärungen im 
Buch gewinnt man schnell die 
zur Bearbeitung nötigen Fertig¬ 
keiten. Damit man auch ohne 
Kenntnis der Befehle mit dem 
Zeichenprogramm arbeiten 
kann, wird auf Wunsch ein Menü 
zugeladen. Zur Befehlsauswahl 
genügt es dann, den Cursor mit 
dem Joystick auf das entspre¬ 
chende Feld zu bringen und den 
Feuerknopf zu betätigen. 

Die Einsatzmöglichkeiten von 
Hi-Eddi plus werden beim com¬ 
puterunterstützten Entwerfen 
und Konstruieren (CAD) optimal 
ausgenutzt. Mit Hi-Eddi plus 
wird dem C64 ein Anwen¬ 
dungsgebiet erschlossen, das 
noch vor kurzer Zeit für unmög¬ 
lich gehalten wurde. Wunder 
darf man trotzdem nicht erwar¬ 
ten. Auch das beste Programm 
kommt über die 64 KByte und 
die Auflösung von 320 x 200 
Punkten des C 64 nicht hinaus. 
Wer mehr braucht, muß eben für 
einen anderen Computer we¬ 
sentlich tiefer in das Portemon¬ 
naie greifen. 

Mit Hi-Eddi plus kann man frei¬ 
händig zeichnen, Linien ziehen, 
Rechtecke und Kreise zeichnen 
sowie begrenzte Flächen aus¬ 
malen. Ganze Bildschirmberei¬ 
che lassen sich verschieben 
und Texte in vier Richtungen 
einfügen. Besonders erwähnt 
sei noch das »Stempeln« von im 
Sprite-Editor erstellten Sprites 
auf den Bildschirm. Damit las¬ 
sen sich beispielsweise auch 
Schaltsymbole der Bildtafeln in 
die eigene Zeichnung kopieren. 

Lob verdient der Autor dafür, 
daß er vor dem Leser keine 
Geheimnisse hat. Freimütig 
nennt er Adressen und gibt Rat¬ 
schläge, wie man Teile des Pro¬ 
gramms in eigene Programme 
übernehmen oder Hi-Eddi noch 
erweitern kann. 

Das zweite besondere Lob 
gebührt dem Verlag dafür, daß 
er sich entschlossen hat, dem 
Buch die Diskette mit dem Origi¬ 
nalprogramm Hi-Eddi plus und 
allen Beispielen zum Nulltarif 
beizulegen. 

Mit gutem Gewissen kann man 
Buch und Diskette empfehlen. 

(D. Hein/ev) 

Info: Hans Haberl, Mini-CAD mit Hi-Eddi plus auf 
dem C 64, Markt & Technik, 234 Seiten. ISBN 
3-89090-136-0, Preis 48 Mark einschließlich 
Programmdiskette 
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»Rauben« 
von schönen 
Bildern: 

Koalacopy 



Mit »Koalacopy« ist es möglich, 
schöne Bilder aus Programmen 
herauszuholen. 

Diese können dann direkt mit Koala- 
painter weiterverarbeitet werden. 

M ittlerweile gibt es schon einige Programme wie 
»Print-Set«, die in der Lage sind, ein Koala-Bild auf 
einem Drucker farbig oder zumindest in Grautönen 
auszudrucken. Der Vorrat an Koala-Bildern, der zumeist vor¬ 
handen ist und die selbstgeschaffenen Kunstwerke erschöp¬ 
fen sich jedoch meist sehr schnell. In diese Bresche kann 
»Koalacopy« (Listings 1 bis 3) schlagen. Man kann mit die¬ 
sem Programm fast jedes HiRes-Bild, das einem der Compu¬ 
ter zeigt, ins Koala-Format umwandeln und als Koala-File 
speichern. Ein so gespeichertes Bild kann vom Koalapainter 
geladen und verändert werden wie ein normales Koala-Bild. 
Außerdem kann man es mühelos mit einem der oben 
beschriebenen Koala-kompatiblen Hardcopy-Programme 
ausdrucken. Die abgedruckten Bilder (siehe auch Bild 1) sind 
nur kleine Beispiele, da sich in fast jedem Spiel Bilder befin¬ 
den, die ins Koala-Format umgewandelt werden können. 

»Koala-Show« (Listings 4 und 5) ist ein Programm, mit dem 
man Koala-Bilder auf verschiedene Weise anzeigen kann. 
Dieses Programm enthält einen Basic-Teil und ein Maschi¬ 
nenprogramm. Das Maschinenprogramm liegt dabei ab 
$5000 und muß mit dem MSE eingetippt werden. 

Anmerkung: Wenn man ein mit »Koalacopy« erstelltes Bild 
mit Koalapainter nachträglich noch verändern will, wird man 
merken, daß im Magnify-Modus die Hintergrundfarbe durch 
zumeist hellgraue Streifen unbekannter Herkunft gestört 
wird, die im Normalmodus nicht zu erkennen sind. Es ist nun 
nicht bekannt, ob dies eine Fehlfunktion von »Koalacopy« 
oder vom Koalapainter ist. Die Streifen werden jedoch ver¬ 
schwinden, wenn man im Normalmodus die Hintergrundfarbe 
mit »XCOLOR« behandelt. 

Im übrigen sollte man aufpassen, wenn man zum Beispiel 
das Titelbild eines Programms als Koala-Bild findet. Will man 
dieses mit »Koalacopy« oder Koalapainter bearbeiten und 
dann an Stelle des Originals speichern, muß man folgendes 
beachten: Manche Bilder liegen zwar als Koala-Bilder vor, 
jedoch mit einer anderen Startadresse (zum Beispiel $A000 
statt $6000). 

Beim Überspielen des Bildes wird jedoch die normale 
Startadresse eines Koala-Bildes ($6000) übernommen und 
das kann zu nicht geringen Problemen führen. 

Man müßte also die Startadresse des Originals mit »ORI¬ 
GIN« abfragen und der Kopie mit einem Disk-Monitor diese 
Adresse geben. 

LOAD: Mit dieser Funktion ist es möglich, eine Bitmap nach 
$2000, also in den Grafikspeicher, zu laden. 


HIRES: Durch diesen Befehl werden einem Bild die vier ver¬ 
schiedenen Farben Multicolor 0, 1 und 2 und Hintergrund 
zugeordnet. Man kann hier nicht mehr als diese vier Farben 
benutzen. 

F1/F2 Farbe 0 verändern, 

F3/F4 Farbe 1 verändern, 

F5/F6 Farbe 2 verändern, 

F7/F8 Hintergrund verändern. 

COLORS: Zu einer im Speicher befindlichen Bitmap kann 
man — dieser Funktion die zwei verschiedenen Farbtafeln 
(Video-RAM 1 und Color-RAM 2) nachladen. 

FINECOLOR: Wie bei »HIRES« ordnet man der Bitmap Far¬ 
ben zu. Im Gegensatz dazu wählt man hier jedoch erst ein 
Viereck beliebiger Größe aus und ordnet diesem die vier Far¬ 
ben zu, wobei die Hintergrundfarbe natürlich für das gesamte 
Bild gewählt wird. Man hat mit dieser Funktion also über alle 
16 Farben Kontrolle. 

Cursortasten: Oberen linken Rand wählen 
»SPACE«: Weiter 

Cursortasten: Unteren rechten Rand wählen 
»SPACE«: Weiter 
Funktionstasten: Farben wählen 
»SPACE«: Neu wählen 

Während des Anwählens eines Vierecks kann man die 
Funktion mit »RETURN« (Bildübernahme) oder »SHIFT/- 
RETURN« (keine Bildübernahme) verlassen. 

ERASE: Löschen des aktuellen Koala-Bildes. 

MEMORY: Durchsuchen des Computerspeichers nach 
verwertbaren Bitmaps in Schritten von 8 KByte. 

SAVE: Speichern des aktuellen Koala-Bildes im Koala- 
Format. Ein so gespeichertes Programm kann von jeder Ver¬ 
sion von Koalapainter geladen werden. Zur Kennzeichnung 
des Files gibt man zuerst einen Buchstaben (zweckmäßiger¬ 
weise von A bis P) und danach den bis zu 8 Buchstaben lan¬ 
gen Bildnamen ein, zum Beispiel: 

ENTER LETTER ? D 
ENTER NAME ? BILD 

Der Filename lautet also: PIC D BILD. 

Ein eventuell auf der Diskette befindliches Bild mit demsel¬ 
ben Buchstaben als Kennzeichnung wird automatisch über¬ 
schrieben. 

X-LOAD: Diese Funktion ist dazu bestimmt, sogenannte 
Fremdformate hauptsächlich von anderen Grafikprogram¬ 
men zu laden. Man kann auch Koala-Bilder selbst laden, ver¬ 
ändern und neu speichern. Mit der Funktion »ORIGIN« kann 
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man die Anfangsadresse eines Programms bestimmen. 
Wenn man sich beim Laden eines Koala-Bildes das umständ¬ 
liche Eingeben von »?PIC A« etc. sparen will, kann man vor 
den eigentlichen Namen des Bildes einen »SHIFT/STERN« 
setzen und das Programm fügt den Rest automatisch hinzu. 

Wenn man ein HiRes-Bild unbekannter Adresse im Spei¬ 
cher hat, kann man mit dieser Funktion ein wenig experimen¬ 
tieren, bis man das Bild in das Koala-Format umwandeln kann. 
Es ist dabei möglich, die Adressen für Bitmap und Farbtafeln 
sowie Hintergrundfarbe frei einzugeben und das so 
beschriebene Bild durch Betätigen von »G« auf den Bild¬ 
schirm zu bringen. 

DIRECTORY: Diese Funktion listet den Inhalt einer Diskette. 

Will man eine der oben genannten Funktionen verlassen, 
so gilt jeweils das Betätigen von »RETURN« für die Über¬ 
nahme des gezeigten Bildes in das Koala-Format. Will man 
das vermeiden, weil einem die Veränderung nicht zusagt, 
drückt man einfach »SHIFT/RETURN« und das Bild wird nicht 
übernommen. 


Ein paar Tips 


1. Reine Bitmap (siehe Kasten): Eine reine Bitmap besitzt 
nicht mehr als vier Farben, also höchstens drei Bild- und die 
Hintergrundfarbe, wenn sie ein Multicolor-Bild darstellt. Sol¬ 
che Bitmaps stehen meist mit 32 oder 33 Blöcken auf einer 
Diskette und können mit »LOAD« geladen werden. Es ist hier 
möglich, mit »HIRES« die Farben zuzuordnen. 

2. Bitmap plus Farbe: Besitzt eine Bitmap mehr als vier Far¬ 
ben, so stehen die Farbtafeln meist mit 4 Blöcken hinter oder 
zumindest in der Nähe der eigentlichen Bitmap, also zum Bei¬ 
spiel 


32 

"BITMAP 

" PRG 

4 

"FARBE1 

" PRG 

4 

"FARBE2 

" PRG 


Man kann nun die Bitmap mit »LOAD« und die Farben mit 
»COLORS« laden. Bei einigen umfangreicheren Programmen 
(zum Beispiel Spiele) sind die Bitmaps mit einem Compactor 
verkürzt, so daß »Koalacopy« mit ihnen nichts anfangen kann. 
Man muß dann das Spiel starten, warten bis das gewünschte 
Bild auf dem Schirm erscheint, mit Reset »ausbrechen« 
(haben Sie einen Reset-Taster?), »Koalacopy« laden, die Bit¬ 
map mit »MEMORY« suchen und dann die Farben mit 
»COLORS« nachladen. 

3. Actionscreens und Titelbilder: Man bricht das Programm 
mit Reset ab, sobald das Bild erscheint und sucht die Bitmap 
mit »MEMORY«. Da der Arbeitsspeicher von »MEMORY« die 
Bitmap $2000 ist, muß diese, da sie sonst zerstört wird, als 
erstes untersucht werden. Findet man nun die Bitmap, dann 
übernimmt man sie durch Drücken von »RETURN« in das 
Koala-Format und kann dann mit »HIRES« oder »FINECO- 
LOR« die entsprechenden Farben zuordnen. Wenn man die 
Bitmap bei $6000 entdeckt, also im Koala-Speicher, sollte 
man erst mit »SHIFT/RETURN« ohne Übernahme aus 
»MEMORY« herausgehen und »HIRES« anwählen, wobei ein 
eventuell im Koala-Format vorliegendes Bild komplett auf den 
Bildschirm gebracht wird. 

Eine andere Version ist die Funktion »GRAB«. Wenn man 
mit »MEMORY« die Adresse eines Bildes gefunden hat, kann 
man mit »GRAB« die Umgebung dieses Bildes nach Farbta¬ 
feln absuchen, da diese oft genau hinter der Bitmap liegen. 
Dazu ein Beispiel: 

Bitmap 16384 
Colorl 24384 (+8000) 

Color2 25384 (+1000) 

Bitmap 24576 

Colorl 25600 (+8192 = $2000) 

Color2 26624 (+1024 = $0400) 



Natürlich können die Farbtafeln auch vor der Bitmap liegen: 
Bitmap 24576 

Colorl 23552 (-1024 = $0400) 

Color2 22528 (-1024 = $0400) 

Bitmap 16384 
Colorl 15384 (-1000) 

Color2 14384 (-1000) 

Selbstverständlich gibt es noch unendlich mehr Möglich¬ 
keiten, aber es ist erstaunlich, wieviele Programme sich doch 
an diese Regeln halten. Das liegt wohl in erster Linie daran, 
daß auch professionelle Programmierer ihre Programme gern 
übersichtlich ablegen. 

4. Bilder im Directory: Bei vielen mehrteiligen Programmen 
befinden sich Titelbilder oder Ähnliches in den Formaten ver¬ 
schiedener Grafikprogramme im Directory: 

40 "TITLE ' PRG 

Verdacht auf Koala-Format! 

41 "SCREEN1 " PRG 

Verdacht auf Blazing Paddies! 

37 "PICTURE " PRG 

Verdacht auf Paint Magic! 

Man kann diese dann mit »X-LOAD« laden. Dabei ist zu 
beachten, daß man bei einigen Bildern sicher ein wenig expe¬ 
rimentieren muß, bevor man die endgültige Version fertig im 
Speicher hat. 


SYS49154: Übergabe des Bildes ans Koala-Format. 
SYS49318: Anschalten des HiRes-Bildes. 

HIRES: 8192 ($2000) 

COLOR1: 1024 ($0400) 

COLOR2: 55296 ($D800) 

SYS49334: Farbtafel $0400 setzen. Dies betrifft die Far¬ 

ben 0 und 1. Vorher müssen diese Farben in 
die Speicherstelie 2 gePOKEt werden: 
P0KE2,C0+C1*16 

SYS49353: Farbtafel $D800 setzen. Dies betrifft die 
Farbe 2. Vorher wird wiederum der Farbwert 
gesetzt: 

P0KE2,C2 

SYS49395: HiRes-Bild ausschalten. 

SYS49411: Laden an eine bestimmte Adresse. Das höher¬ 


wertige Byte der Startadresse liegt dabei in 
49432, der Filename ab 49437 und die 
Länge des Filenamens bei 49419. 

SYS49456: Speichern des Koala-Bildes. Der Filename 
liegt ab 49488 und die Länge des Filenamens 
bei 49462 im Speicher. 

SYS49520: Blinken der Sprites 0 und 1. Dieser SYS- 
Befehl ruft eine IRQ-Routine auf, die die bei- 


SYS49568: 


SYS49611, 

Farbtafel: 


SYS49664: 

SYS49769: 

SYS49792, 

Bitmap: 

SYS49920: 


den Sprites in allen Farben blinken läßt. Das ist 
wichtig, well nur so die beiden Sprite-Cursor 
bei »FINECOL« auf allen Farben sichtbar sind. 
Farbtafeln nachladen. Vorher muß das zu 
lesende File mit OPEN geöffnet werden. Das 
höherwertige Byte der Adresse der Farbtafel 
steht bei 49584 im Speicher. (4 für $0400 
oder 216 für $D800) 

Färbtafel kopieren. Bei 49638 steht das 
höherwertige Byte der Farbtafel, auf die die 
Farbtafel, die durch den SYS-Befehl überge¬ 
ben wurde, kopiert werden soll. (4 für $0400 
oder 216 für $D800) 

Directory anzeigen. 

Bitmap löschen. Die Bitmap 8192=$2000 
wird nach Aufruf dieser Routine gelöscht. 
Bitmap holen. Die Bitmap, deren Anfangsa¬ 
dresse durch den SYS-Befehl übergeben 
wurde, wird nach $2000 kopiert. 

Koala-Bild holen. Nach Aufruf dieser Routine 
wird ein im Speicher vorhandenes Koala-Bild 
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in den Grafikspeicher geholt. Außerdem wird 
das so erzeugte HiRes-Bild eingeschaltet. 
SYS50084, Mit dieser Routine kann man in einer Farbtafel 
Farbtafel,XI, ein Rechteck, das durch XI, Y1, X2 und Y2 
Y1,X2,Y2, beschrieben wird, mit durch »Color« 

Color: bestimmte Farben versehen. 

Farbtafel: 1024 oder 55296. 

XI, Y1: obere linke Ecke 

X2, Y2: untere rechte Ecke des Rechtecks 

Color: bei 1024, C0+C1 * 16; bei 55296, C2 

Die Routinen wurden hier nicht in logischer, sondern in 
arithmetischer Reihenfolge beschrieben, also in der Reihen¬ 
folge, in der sie programmiert wurden. Und das ist leider nicht 
immer die logische Reihenfolge. 

Die »Koala-Show« 


Die Bedienung von »Koala-Show« (Listing 4 und 5) ist ziem¬ 
lich einfach; Listing 4 zeigt dabei ein Steuerungsprogramm 
für das Maschinenprogramm »SHOW.OBJ $5000«, das als 
Beispiel dienen soll. 

POKE 1000, STEP 
POKE 1001, SPEED 
POKE 1002, MODE 
SYS INIT 

Das Programm setzt zuerst die Parameter für ein 
Multicolor-HiRes-Bild bei $2000 und überträgt dann die Far¬ 
ben des bei $6000 liegenden Koala-Bildes. Man sieht von 
den Farben jedoch noch nichts, weil die Bytes der Bitmap mit 
Nullen gefüllt wurden. Dann wird das Byte in der linken obe¬ 
ren Ecke vom Koala-Bild auf die aktuelle Bitmap übertragen. 

Anschließend wird zu der Adresse dieses Bytes der in der 
Speicherstelle 1000 befindliche Wert »STEP« addiert, eine 
Verzögerungsroutine, die sich nach der Speicheradresse 
1001 richtet (Bereich: 1-255, wobei 1 am schnellsten ist), 
aktiviert und das nächste Byte gesetzt. Befindet sich die 
neue Adresse nicht mehr auf der Bitmap, wird so subtrahiert, 
daß ein neuer Durchlauf gestartet werden kann. 

Die Anzahl der Durchläufe richtet sich auch nach »STEP«. 
Man sieht das ganz gut, wenn man für »STEP« den Wert 2 
oder 8 eingibt und SPEED hoch (>=100) anlegt. Wenn man 
für »MODE« die Zahl 1 einsetzt, wird die Verzögerungsrou¬ 
tine aus- und bei 0 wieder eingeschaltet. Man kann nun für 
»STEP« und »SPEED« verschiedene Werte ausprobieren, bis 
man die Einstellung, die einem am besten gefällt, gefunden 
hat, oder mittels Zufallsgenerator stets neu wählen lassen. 
Die Effekte sind teilweise erstaunlich. 

Soweit zur Beschreibung von »Koalacopy«. Nun viel Spaß 
beim »Klauen« von Bildern. Die eine oder andere Hardcopy ist 
es sicherlich wert, einen Ehrenplatz an einer Zimmerwand zu 
erhalten. (T. Höhne/ks) 


Was ist eigentlich eine Bitmap? 

Dieses Wort findet man in fast jedem Artikel, in dem von 
Grafik die Rede ist. 

Es handelt sich bei der Bitmap um eine Folge von Nul¬ 
len und Einsen im Speicher des Computers, die, im Fall 
einer Grafik, alle Punktinformationen für ein Bild 
besitzt. Jeder Bildschirmpunkt wird dabei entweder 
von einem oder von zwei Bits (je nach Grafikmodus) 
repräsentiert, wobei diese Bits angeben, ob der Bild¬ 
schirmpunkt sichtbar ist und eventuell, in welcher 
Farbe er erscheint. (Nicht vergessen: Ein Bit ist die 
kleinste Einheit im Computer, die entweder den Wert 0 
oder 1 annehmen kann.) 



Bild 1. Beispiel eines »geklauten« Bildes 


0 HI=24576:D1=32576:D2=»33576:D0=0:POKE 650 

,128:POKE 649,1:POKE 56,32 <014> 

5 F1S=CHRS(133):F3S=CHRS(134):F5S=CHRS(135 

>:F7S=CHRS(136) <190> 

7 F2S=CHRS(137):F4S=CHRS(138):F6*=CHRS(139 

):F8S=CHR*(140> <132> 

8 POKE 53280,0:POKE 53281,6:GOSUB 5000:RES 

TORE <233> 

10 GET AS:IF AS="H"THEN 100 <162> 

20 IF AS="H“THEN 100 <073> 

30 IF AS="L"THEN 1000 <091> 

40 IF AS="S“THEN 2000 <236> 

50 IF ">S="D"THEN 1500 <147> 

,60 IF AS=“E"THEN 3000 <253> 

65 IF AS="G"THEN 9000 <027> 

70 IF AS="M"THEN 3500 <051> 

75 IF AS="X"THEN 7000 <166> 

80 IF A*="C"THEN 4000 <020> 

85 IF AS="F"THEN 6000 <163> 

90 GOTO 10 <012> 

100 SYS 49920 <221> 

150 C=PEEK(1024):C1=C AND 15:C2-INT(C/16) <174> 

160 C3=PEEK(55296)AND 15:C4-PEEK(532B1)AND 

15 <096> 

200 GET AS:IF AS=F1STHEN 300 <216> 

210 IF AS=F1STHEN 300 <142> 

215 IF AS=F2STHEN 340 <052> 

220 IF AS=F3STHEN 350 <193> 

225 IF AS=F4STHEN 390 <103> 

230 IF AS=F5STHEN 400 <16B> 

235 IF AS=F6STHEN 440 <07B> 

240 IF AS=F7STHEN 450 <219> 

245 IF AS=F8STHEN 490 <129> 

249 IF AS=CHRS(13)THEN 500 <171> 

250 IF AS=CHRS(141)THEN 510 <249> 

290 GOTO 200 <22B> 

300 C1=C1+1:IF CI>15 THEN C1=0 <157> 

310 POKE 2,C1+C2*16 <055> 

320 SYS 49334 <060> 

330 GOTO 200 <012> 

340 C1=C1-1:IF C1<0 THEN Cl=15 <064> 

342 GOTO 310 <048> 

350 C2=C2+1:IF C2>15 THEN C2=0 <043> 

360 GOTO 310 <066> 

390 C2»C2-1:IF C2<0 THEN C2-15 <204> 

392 GOTO 310 <098> 

400 C3=C3+1:IF C3>15 THEN C3=0 <1B5> 

410 POKE 2,C3 <129> 

420 SYS 49353 <160> 

430 GOTO 200 <112> 

440 C3=C3—1:IF C3<0 THEN C3-15 <0B8> 

442 GOTO 410 <156> 

450 C4=C4+1:IF C4>15 THEN C4-0 <072> 

460 POKE 53281,C4 <11B> 


Listing 1. Das Basic-Programm zu »Koalacopy V3.0« 
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(Fortsetzung) 


4032 

IF NA*=""THEN 8 

<036> 

470 SOTO 200 

< 152> 

4035 

NA*=LEFT* < NA*,16) 

<230> 

490 C4=C4-lzIF C4<0 THEN C4=15 

<229> 

4037 

SYS 49920 

<092> 

492 POKE 53281,C4 

< 150> 

4040 

OPEN 1,8,2,NA* 

<200> 

494 GOTO 200 

< 176> 

4050 

SYS 49568 

<237> 

500 SYS 49154 

<049> 

4100 

CLOSE 1 

<047> 

510 SYS 49395 

<252> 

4102 

GOTO 4500 

<082> 

520 GOTO 8 

<243> 

4500 

POKE 198,0 

<090> 

1000 NA*«"" 

<098> 

4505 

GET A* 

< 141 > 

1005 INPUT " {RVOFF,CLR,LIG.BLUE,2D0WN,2SPAC 
EJENTER NAME“;NA* 

< 119> 

4510 

IF A*=CHR* ( 13)THEN SYS 49154:SYS 4939 
5:GOTO 8 

<061 > 

1007 IF NA*«""THEN 8 

<059> 

4520 

IF A*=CHR*(141)THEN SYS 49395:GOTO 8 

<036> 

1010 K=LEN(LEFT*(NA*,16)) 

< 185> 

4530 

GOTO 4505 

<065> 

1020 POKE 49419,K 

< 196> 

5000 

SYS 50432:POKE 896,255:POKE 725,255:S 


1025 POKE 49432,32 

<096> 


YS 49520:RETURN 

<053> 

1030 FOR 1-1 TO K 

< 125> 

6000 

SYS 49920 

<023> 

1040 POKE 49436+1,ASC(MID*(NA*,I,1 )> 

< 142> 

6010 

X1=0 :Y1=0 

<083> 

1050 NEXT 

<044> 

6020 

X2=39:Y2=24 

<251 > 

1055 SYS 49920 

< 160> 

6025 

CU=1 

< 191 > 

1060 SYS 49411 

<06B> 

6030 

VC=53248 

< 137> 

1062 GOTO 4500 

<090> 

6040 

POKE Vc+21,3 

<021 > 

1500 PRINT"{CLR,RVOFF,LIG.BLUE>": SYS 49664 

<229> 

6050 

POKE 2040,14:POKE 2041,11 

<199> 

1505 GET A*:IF A*=""THEN 1505 

<226> 

6075 

01=X1*8+24:P1=Y1*8+50 

<089> 

1590 GOTO 8 

<041> 

6080 

02=X2*8+24:P2=Y2*8+50 

<232> 

2000 INPUT"(RVOFF,CLR,LIG.BLUE,2D0WN,2SPAC 


6100 

POKE VC,01 AND 255:POKE VC+l.Pl 

<226> 

ETENTER LETTER";LE* 

< 156> 

6105 

IF 01<=255 THEN POKE VC+16,PEEK ( VC+16 


2010 LE*=(LEFT* <LE*,1 )) 

<005> 


)AND 254 

< 15B> 

2015 NA*«"" 

<097> 

6107 

IF 01>255 THEN POKE VC+16.PEEK(VC+16) 


2020 INPUT" ( DOWN,2SPACE>ENTER NAME";NA* 

< 188> 


OR 1 

<229> 

2025 IF NA*= " "THEN 8 

<061 > 

6110 

POKE VC+2,02 AND 255:POKE VC+3,P2 

<018> 

2030 NA*=LEFT* < NA*+ " {7SPACE }" ,B ) 

< 136> 

6115 

IF 02< =255 THEN POKE VC+16,PEEK(VC+16 


2040 FI*="{ORANGE>PIC "+LE*+" " +NA* 

< 191 > 


) AND 253 

< 152> 

2050 K=LEN(FI*> 

<192> 

6117 

IF 02>255 THEN POKE VC+16,PEEK(VC+16) 


2060 POKE 49462,K 

< 156> 


OR 2 

<003> 

2070 FOR 1=1 TO K 

<149> 

6150 

IF CU=2 THEN 6350 

< 121 > 

2080 POKE 494B7+I,ASC(MID*(FI*,1,1)) 

< 163> 

6250 

GET A* 

<108> 

2090 NEXT I 

<142> 

6260 

IF A*=”<UP>"AND Y1>0 THEN Y1=Y1-1:60T 


2092 FOR 1=0 TO 5 

< 12B> 


0 6075 

< 186> 

2094 READ A 

< 102> 

6270 

IF A*="{DOWN }" AND Y1<Y2 THEN Y1=Y1+1: 


2096 POKE 34577+I,A 

<126> 


GOTO 6075 

< 163> 

2098 NEXT I 

<150> 

6x0»" 

IF A*="{LEFT >" AND X1>0 THEN X1=X1-1:G 


2099 DATA 48,,,253,67,66 

< 137> 


OTO 6075 

<076> 

2100 OPEN 1,8,15,"S:<ORANGE>PIC "+LE*+"*": 
CLOSE 1 

< 133> 

6290 

IF A*=“{RIGHT}"AND X1<X2 THEN X1=X1+1 
:GOTO 6075 

< 144> 

2105 SYS 49456 

<229> 

6295 

IF A*=" "THEN 6345 

<003> 

2110 GOTO 8 

<053> 

6297 

IF A*=CHR*(13)THEN 6800 

< 164> 

3000 SYS 49920 

<071 > 

6299 

IF A*=CHR*(141)THEN 6810 

<092> 

3010 SYS 49769 

< 149> 

6300 

GOTO 6250 

< 120> 

3020 GOTO 4500 

<014> 

6345 

CU=2 

<033> 

3500 PRINT"{RVOFF,CLR,LIG.BLUE,DOWN,2SPACE 


6350 

GET A* 

<20B> 

>*2000 BIT-MAP“ 

<006> 

6360 

IF A*="{UP>"AND Y2>Y1 THEN Y2=Y2-1:G0 


3510 PA=2 

< 140> 


TO 6075 

<023> 

3520 GET, A* 

< 172> 

6370 

IF A*="{DOWN}"AND Y2<24 THEN Y2-Y2+1: 


3530 IF A*=CHR*(13)THEN 3750 

< 175> 


GOTO 6075 

< 189> 

3540 IF A*=“(DOWN}“THEN PA-PA+2:IF PA>14 T 
HEN PA=2 

<110> 

6380 

IF A*="{LEFT}“AND X2>X1 THEN X2=X2-1: 
GOTO 6075 

<004> 

3550 IF A*™ " (UP >" THEN PA=PA-2:IF PA<2 THEN 
PA« 14 

<213> 

6390 

IF A*="{RIGHT}"AND X2<39 THEN X2=X2+1 
: GOTO 6075 

<043> 

3560 ON(PA/2)GOSUB 3600,3605,3610,3615,362 


6395 

IF A*=" "THEN 6500 

<255> 

0,3625,3630 

<0B5> 

6397 

IF A*=CHR*(13)THEN 6800 

<008> 

3570 GOTO 3520 

< 112> 

6399 

IF A*=CHR*(141)THEN 6810 

< 192> 

3600 PRINT"{HOME,DOWN,3RIGHT>2":RETURN 

< 141 > 

6400 

GOTO 6350 

<23B> 

3605 PRINT"{HOME,DOWN,3RIGHT >4":RETURN 

<150> 

6500 

C=PEEK(1024+X1+Y1*40) 

<070> 

3610 PRINT"{HOME,DOWN,3RIGHT>6"iRETURN 

< 159> 

6510 

C1=C AND 15:C2=(C AND 240)716 

< 154> 

3615 PRINT"{HOME,DOWN,3RIGHT >8":RETURN 

< 168> 

6520 

C3=PEEK (55296+Xl+Yl*40) AND 15 

<233> 

3620 PRINT"{HOME,DOWN,3RIGHT>A"1 RETURN 

< 191 > 

6530 

C4=PEEK(53281)AND 15 

<246> 

3625 PRINT"(HOME,DOWN,3RIGHTJC“:RETURN 

<200> 

6540 

SYS 50084, 1024,XI,Y1,X2,Y2,C1+C2*16 

< 157> 

3630 PRINT"{HOME,DOWN,3RIGHT>E":RETURN 

<209> 

6550 

SYS 500B4,55296,XI,Y1,X2,Y2,C3 

<071 > 

3750 SYS 49318:POKE 2,33:SYS 49334:POKE 2, 


6560 

POKE 53281,C4 

< 122> 

6:SYS 49353:POKE 532B1,0 

< 11B> 

6600 

GET A* 

<204 > 

3755 FOR 1=0 TO 999:NEXT 

< 1B0> 

6610 

IF A*=F1*THEN 6700 

<010> 

3760 SYS 49792,PA*4096 

< 175> 

6615 

IF A*=F2*THEN 6710 

< 160 > 

3780 GOTO 4500 

<012> 

6620 

IF A*=F3*THEN 6720 

<053> 

3999 END 

< 191 > 

6625 

IF A*=F4*THEN 6730 

<203> 

4000 PRINT"{LIG.BLUE,CLR,3D0WN,2SPACE JCOLO 


6630 

IF A*=F5*THEN 6740 

<096> 

R <{RVS0N>1{RVOFF>) DR ({RVS0N>2{RV0F 


6635 

IF A*=F6*THEN 6750 

<246> 

F»?" 

<207> 

6640 

IF A*=F7*THEN 6760 

< 139> 

4010 GET A*:IF A*<"l"OR A*>"2"THEN 4010 

<059> 

6645 

IF A*=F8*THEN 6770 

<033> 

4015 IF A*="1"THEN POKE 49584,4 

<034> 

6650 

IF A*=" "THEN 6010 

<244> 

4017 IF A*="2"THEN POKE 49584,216 

<022> 

6660 

GOTO 6600 

< 132> 

4020 PRINT"(DOWN,2SPACEJC0L0R "A*:NA*="" 

<030> 

6700 

C1=C1+1:IF CI>15 THEN C1=0 

<207> 

4030 INPUT"{DOWN,2SPACEJENTER NAME “;NA* 

< 166> 

6705 

GOTO 6540 

<033> 

Llsting 1. Das Basic-Programm zu Koalacopy V3.0« 


6710 

6715 

C1=C1—1:IF C1<0 THEN Cl=15 

GOTO 6540 

<084> 

<043> 
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6720 

6725 

6730 

6735 

6740 

6745 

6750 

6755 

6760 

6765 

6770 

6775 

6800 

6810 

7000 

7015 

7020 

7030 

7040 

7050 

7060 

7100 

7110 

7120 

7200 

7220 

7222 

7223 
7225 
7227 
7230 

7999 

8000 
8005 
8010 
8020 
8030 
8040 
8045 


8050 

8060 

8070 

8080 

8090 

8092 

8095 

B100 

8105 

8110 

8120 

8130 

8140 


8200 

8205 

8210 

8215 

8217 

8220 

8230 

8240 

8250 

8260 

B270 

8280 

8282 

8285 

8290 

8300 

8305 

8310 

8315 

8320 

8330 

8340 

8350 

8360 

8370 

8380 


C2=C2+1:IF C2>15 THEN C2=0 
GOTO 6540 

C2—C2—1 : IF C2<0 THEN C2-15 
GOTO 6540 

C3-C3+1:IF C3>15 THEN C3=0 
GOTO 6540 

C3-C3-lsIF C3<0 THEN C3=15 
GOTO 6540 

C4-C4+1:IF C4>15 THEN C4-0 
GOTO 6540 

C4=C4—1sIF C4<0 THEN C4-15 
GOTO 6540 
SYS 49154 

SYS 49395:POKE VC+21,0:GOTO 8 
PRINT"<CLR,LIG.BLUE,2D0WN>" 

PRINT" LOAD: 

PRINT”<1> TO *6000 
PRINT"<2> TO ORIGIN 
PRINT"<3> KOALA 
PRINT"<4> BLAZING PADDLES 
PRINT"<5> PAINT MAGIC 
PRINT“{2D0WN,SPACE>SHOW:“ 

PRINT"<0> ORIGIN 
PRINT“<X> MENUE 
GET A*:IF A*="0"THEN 8000 
IF A*=“X"THEN 8 
IF A*="4"THEN 8300 
IF A*="5“THEN 8400 
IF A*= "1“THEN 8200 
IF A*="3"THEN 8200 
IF A*="2"THEN 8100 
GOTO 7200 

PRINT"{CLR,DOWN JSSHOW ORIGIN& 

NA*—"“ 

INPUT"{DOWN,2SPACE JENTER NAME“;NA* 

IF NA**"“THEN 7000 
OPEN 1,8,2,NAC 
GET#1,A*,B* 

IF ST<>0 THEN PRINT"{DOWN,2SPACE>Uftü 
ääi{DOWN,7LEFTJzHUH?!-{DOWN,7LEFT >äö 
: GOTO 8090 

IF A*= ""THEN A*=CHR*(0) 

IF B*=“"THEN B*=CHR*(0) 

AD=ASC(A*)+256*ASC(B*) 

PRINT“{DOWN,2SPACE >ORIGIN:"AD 
CLOSE 1 

POKE 198,0:WAIT 198,1 
GOTO 7000 

PRINT"{CLR,D0WNJ8L0AD TO ORIGINS 
NA*="" 

INPUT"{DOWN,2SPACE>ENTER NAME“;NA* 

IF NA*-""THEN 7000 

SYS 57812NA*,B,1:POKE 780,0:SYS 65493 
PRINT” {DOWN,2SPACE> .M.*A».»»I- {DOWN,7LEFT 
>^#«EADY = {DOWN , 7LEFT : GOTO B09 

2 

PRINT"{CLR,DOWNJSLOAD TO *60009 
NA*-"" 

INPUT"{DOWN,2SPACEJENTER NAME“;NA* 

IF NA*-""THEN B 

IF LEFT*<NA*,1)-"*"THEN NA*-"{ORANGE} 
PIC ? "+MID*(NA*,2,8)+"*" 

K-LEN(LEFT*(NA*,16 >) 

POKE 494I9,K 
POKE 49432,96 
FOR 1-1 TO K 

POKE 49436+1,ASC<MID*(NA*,I,1)) 

NEXT 

SYS 49411 
IF A*—“1"THEN 8 
SYS 49920 
GOTO 4500 

PRINT"{CLR,DOWNJfiLOAD BLAZING PADDLES 

3. 

NA*-"" 

INPUT"{DOWN,2SPACEJ ENTER NAME";NA* 

IF NA*-""THEN 8 
K-LEN(LEFT*(NA*,16 )) 

POKE 49419,K 
POKE 49432,64 
FOR 1=1 TO K 

POKE 49436+1,ASC(MID*(NA*,I,1)) 

NEXT 

SYS 49411 


<063> 

8390 

HI=16384:C1=24576:C2-25600 


< 193> 

<053> 

B395 

GOTO 9200 


<092> 

< 194> 

8400 

PRINT"{CLR,DOWNJSLOAD PAINT MAGICS 

<131 > 

<063> 

8405 

NA*-"" 


< 142> 

< 175> 

8410 

INPUT"{DOWN,2SPACEJENTER NAME 1 

; NA* 

<060> 

<073> 

8415 

IF NA*-""THEN 8 


<129> 

<048> 

8420 

SYS 57812NA*,8,1:POKE 780,0:SYS 65493 

<051 > 

<0B3> 

8500 

SYS 49318 


<242> 

<032> 

8510 

SYS 49792,163B4 


< 131 > 

<093> 

8520 

POKE 49638,4 


<094> 

< 159> 

8530 

SYS 49616,24576 


< 177> 

< 103> 

8540 

POKE 2,PEEK(24387) 


<143> 

<255> 

8550 

SYS 49353 


< 162> 

< 131 > 

8560 

POKE 53281,PEEK(24388) 


< 182> 

< 127> 

8590 

GOTO 4500 


<252> 

< 109> 

9000 

PRINT"{CLR,DOWN,LIG.BLUEJSBRAB PICTUR 


< 1B0> 


ES 


< 14B> 

< 149> 

9010 

PRINT"{DOWN,SPACEJGRAB:{DOWN}" 

<039> 

< 150> 

9020 

PRINT"<0>HIRES{2SPACEJ:"HI 


< 174> 

< 141 > 

9030 

PRINT"<1JCOLOR 1:"Dl 


<007> 

<195> 

9040 

PRINT“<2>COLOR 2:"D2 


<066> 

< 13B> 

9045 

PRINT"< 3 >BACK{3SPACEJ:"D0 


< 102> 

< 161 > 

9060 

PRINT"{DOWN,SPACEJD0{2SPACEJ:{DOWN}" 

<255> 

<224> 

9070 

PRINT"<G>PERFORM GRAB 


< 150> 

< 151 > 

9080 

PRINT"< X >SEE MENUE 


<072> 

<065> 

9100 

GET A*:IF A*—""THEN 9100 


< 196> 

<211> 

9110 

IF A*="X"THEN 8 


< 177> 

<092> 

9120 

IF A*="G"THEN 9200 


<20B> 

<076> 

9130 

IF A*="0"THEN 9300 


<0B7> 

<079> 

9140 

IF A*="1“THEN 9400 


<233> 

<202> 

9145 

IF A*=“2"THEN 9500 


< 119> 

< 145> 

9150 

IF A*="3"THEN 9600 


<004 > 

<222> 

9190 

GOTO 9100 


<064> 

<247 > 

9200 

SYS 49318 


< 17B> 

<0B2> 

9210 

SYS 49792,HI 


<02B> 

<094> 

9220 

POKE 49638,4 


<032> 

<126> 

9230 

SYS 49616,Dl 


< 169> 

< 127> 

9240 

POKE 49638,216 


< 165> 


9250 

SYS 49616,D2 


<193> 


9255 

POKE 53281,D0 


<009> 

<041 > 

9260 

cTTO 4500 


< 160> 

< 136> 

9300 

INPUT " {CLR,2D0WN,2SPACEJENTER 

HIRES: " 


< 156> 


5 HI 


<089> 

< 117> 

9310 

GOTO 9000 


< 170> 

< 181 > 

9400 

INPUT"{CLR,2DOWN,2SPACEJENTER 

COLOR 1 


<227> 


: ";D1 


<016> 

< 190> 

9410 

GOTO 9000 


<014> 

<209> 

9500 

INPUT"{CLR,2D0WN,2SPACEJENTER 

COLOR 2 


< 135> 


: " 5 D2 


< 184> 

<091 > 

9510 

GOTO 9000 


< 116> 

< 182> 

9600 

INPUT"{CLR,2DOWN,2SPACE JENTER 

BORDER: 


< 194> 


";D0 


< 1B7> 

< 171 > 

9610 

IF D0>15 THEN 9600 


< 184> 


9620 

GOTO 9000 


<226> 

<240> 

Listing 1. »Koalacopy V3.0« (Schluß) 




<247> 

< 19B> 

< 116> 

< 185> 

<205> 

<250> 

<006> 

<232> 

< 112 > 
<252> 
<083> 
<227> 
< 122 > 
<024> 
<247> 

< 122 > 
<042> 
<216> 
<029> 
<094> 
< 106> 
<069> 
< 212 > 
<096> 
< 183> 
<071 > 


10 POKE 53281,0:POKE 53280,6 <033> 
20 PRINT“{CLR,WHITE,DOWN,7SPACEJKOALACOPY 

V3.0 LOADING.<236> 
30 PRINT"{5SPACEJC0PYRIGHT 19B6 BY{SPACE,R 

VSQN,LIG.BLUEJTHE SPIRIT!{RVOFFJ" <155> 
40 POKE 646,0 <099> 
50 PRINT"{DOWN JLOAD"CHR* < 34 >"KOALA.OBJ"CHR 

* (34)",8" <245> 
60 PRINT"{4DQWNJRUN" <248> 
70 PRINT"{2D0WNJL0AD"CHR*(34)"KOALACOPY V3 

.0“CHR*<34>",8" <216> 
80 PRINT"{4D0WNJRUN" <012> 
90 PRINT“{HOME,DOWN}“ <172> 
100 POKE 198,5 <13B> 
110 FOR 1=631 TO 635:POKE 1,13:NEXT <040> 
120 END <122> 


Listing 2. Dieser Lader sorgt für ein einwandfreies Starten 
von »Koalacopy« 
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C 64 


HARDCOPY 


name 

1 

koala 

ob j 


OBOl 

lOeO 

Oaf 9 

: 

ff 

aO 

02 

dO 

c6 

20 

42 

f 6 

47 












ObOl 

: 

60 

a9 

20 

85 

fb 

a9 

00 

85 

07 

0801 

t 

0+ 

OB 

c2 

07 

9e 

32 

30 

36 

4e 

0b09 

: 

fa 

a2 

20 

a8 

91 

fa 

c8 

dO 

27 

0B09 

s 

33 

20 

4b 

43 

53 

OO 

00 

00 

bf 

Obi 1 

: 

fb 

e6 

fb 

ca 

dO 

f 5 

60 

00 

16 

0811 

: 

a2 

ff 

9a 

bd 

lf 

08 

9d 

f 7 

aa 

Ob 19 

: 

20 

fd 

ae 

20 

Ba 

ad 

20 

f 7 

6e 

0B19 

: 

OO 

ca 

dO 

f 7 

4c 

00 

01 

a9 

cd 

Ob21 

: 

b7 

a2 

20 

aO 

00 

20 

9c 

cO 

3a 

0821 

i 

oo 

20 

71 

aB 

4c 

ae 

a7 

78 

6c 

0b29 

: 

a6 

15 

a4 

14 

20 

al 

cO 

a2 

5d 

0829 

: 

e6 

01 

aO 

00 

a9 

eO 

85 

ae 

cd 

0b31 

3 

20 

78 

a9 

30 

B5 

01 

bl 

fd 

21 

0B31 

s 

a9 

10 

85 

a+ 

a9 

15 

85 

ad 

ee 

Ob 39 

3 

91 

fb 

a9 

37 

85 

01 

58 

c8 

6c 

0839 

: 

84 

ac 

a9 

ff 

c7 

ac 

dO 

02 

a7 

0b41 

3 

dO 

ef 

e6 

fc 

e6 

fe 

ca 

dO 

95 

0841 

3 

c6 

ad 

c7 

ae 

dO 

02 

c6 

af 

3d 

Ob49 

3 

e8 

60 

19 

4e 

00 

ad 

ii 

dO 

c5 

0849 

3 

bl 

ae 

91 

ac 

a5 

af 

c9 

OB 

Sa 

0b51 

1 

29 

ef 

Bd 

11 

dO 

a2 

7f 

aO 

59 

0831 

8 

dO 

cQ 

a5 

ae 

c9 

aO 

dO 

e2 

7f 

0b59 

3 

40 

20 

9a 

c3 

a2 

04 

aO 

oo 

95 

0B59 

: 

a2 

01 

86 

ae 

a9 

OB 

85 

af 

44 

0b61 

3 

20 

9+ 

c3 

a2 

83 

aO 

27 

20 

bO 

0861 

8 

bl 

ac 

c9 

19 

dO 

15 

20 

66 

01 

Ob 69 

e 

70 

c3 

a2 

B3 

aO 

28 

20 

9a 

d5 

0869 

3 

01 

bl 

ac 

aa 

20 

66 

01 

bl 

60 

0b71 

3 

c3 

a2 

d8 

aO 

00 

20 

9f 

c3 

d7 

0871 

: 

ac 

91 

ae 

20 

71 

01 

ca 

dO 

81 

Ob79 

: 

a2 

B7 

aO 

Of 

20 

70 

c3 

ad 

d9 

0879 

8 

fB 

fO 

05 

91 

ae 

20 

71 

01 

11 

ObBl 

c 

10 

B7 

Bd 

21 

dO 

ad 

11 

dO 

3d 

0881 

8 

20 

66 

01 

dO 

db 

a9 

37 

B5 

22 

0b89 

8 

09 

22 

8d 

11 

dO 

ad 

16 

dO 

9d 

0889 

8 

01 

58 

4c 

f 8 

oo 

e6 

ac 

dO 

74 

0b91 

S 

29 

df 

09 

10 

8d 

16 

dO 

ad 

16 

0891 

8 

06 

e6 

ad 

a5 

ad 

c9 

13 

60 

69 

0b99 

e 

1B 

dO 

09 

08 

Bd 

18 

dO 

a2 

7f 

0899 

8 

e6 

ae 

dO 

02 

e6 

af 

60 

Ob 

ce 

Obal 

i 

60 

aO 

00 

20 

9a 

c3 

a2 

20 

eB 

OBal 

8 

08 

cl 

07 

9e 

32 

30 

36 

31 

ff 

Oba9 

8 

aO 

00 

20 

9f 

c3 

o2 

7f 

aO 

d6 

08a9 

8 

19 

03 

00 

a9 

2c 

aO 

08 

85 

6c 

Obbl 

3 

3f 

20 

70 

c3 

ad 

11 

dO 

09 

4e 

OBbl 

3 

5+ 

84 

60 

a9 

ac 

aO 

13 

BS 

c7 

0bb9 

s 

10 

Bd 

11 

dO 

60 

8e 

01 

cO 

ee 

08b9 

3 

5a 

84 

5b 

a9 

80 

aO 

cb 

B5 

a9 

Obel 

8 

Bc 

00 

cO 

aO 

00 

bl 

fb 

91 

32 

08c 1 

8 

58 

84 

59 

20 

bf 

a3 

4c 

OO 

00 

Obe 9 

3 

fd 

a5 

fc 

cd 

01 

cO 

dO 

OB 

fb 

08c9 

8 

cO 

00 
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99 

1039 

8 

3b 

2d 

4c 

4f 

4! 

44 

19 

Of 

c4 

1041 

8 

20 

3c 

47 

3e 

52 

41 

42 

19 

83 

1049 

3 

04 

20 

90 

20 

20 

00 

90 

20 

Oa 

1051 

8 

20 

05 

19 

03 

20 

3c 

44 

3e 

Oc 

1059 

3 

49 

52 

45 

43 

54 

4f 

52 

59 

41 

1061 

3 

19 

Oc 

20 

3c 

4c 

3e 

4f 

41 

86 

1069 

8 

44 

19 

04 

20 

90 

20 

20 

00 

ca 

1071 

3 

20 

20 

05 

19 

03 

20 

3c 

48 

b9 

1079 

3 

3b 

49 

52 

45 

53 

19 

10 

20 

18 

1081 

3 

3c 

53 

3e 

41 

56 

45 

19 

04 

lb 

10B9 

3 

20 

90 

20 

20 

00 

20 

20 

05 

89 

1091 

3 

19 

03 

20 

3c 

4d 

3b 

45 

4d 

32 

1099 

3 

4f 

52 

59 

19 

Of 

20 

3c 

45 

f 8 

lOal 

3 

3b 

52 

41 

53 

45 

19 

03 

20 

2d 

10a9 

3 

90 

20 

20 

00 

20 

20 

05 

19 

9b 

lObl 

3 

03 

20 

3c 

43 

3e 

4f 

4c 

4f 

6a 

10b9 

3 

52 

53 

19 

Of 

20 

3c 

46 

3e 

57 

10c 1 

8 

49 

4> 

45 

43 

4f 

4c 

20 

90 

e4 

10c9 


20 

20 

00 

19 

28 

20 

00 

19 

d2 

10dl 

3 

27 

20 

92 

00 

ff 

19 

09 

20 

da 

10d9 

3 

92 

00 

ff 

19 

Od 

00 

ff 

20 

9f 


Listing 3. Der Maschinenspracheteil 
zu »Koalacopy V3.0«. Dieses Pro¬ 
gramm bitte mit dem MSE eingeben. 
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5 POKE 53281,0:PRINT CHR*(142)"<CLR,LIG.BL 

UE,11DOWN,15RIGHTJFIRST DISK" <000> 
7 POKE 198,0:WAIT 198,1 <235> 
10 PACE—0 <245> 
20 MODE=l <243> 
30 SPEED-4 <135> 
50 POKE 1000,PACE <077> 
60 POKE 1001,SPEED <004> 
70 POKE 1002,MODE <254> 
1000 FOR 1-65 TO 80 <102> 
1010 SYS 57812"tORAN6E>PIC "+CHRS<I>+"*",8 

»1 <1B7> 
1020 POKE 780,0 <197> 
1030 SYS 65493 <249> 
1500 IF PACE—0 THEN POKE 1000,RND<0)*254+1 <228> 
2000 SYS 4096*5 <059> 
2500 POKE 198,0 <122> 
3000 FOR J-0 TO 500 <170> 


3010 IF PEEK <198)AND 1 THEN 3030 <212> 
3020 NEXT J <062> 
3030 NEXT I <064> 
3100 FOR J=0 TO 500 <016> 
3110 IF PEEK(198)AND 1 THEN 4000 <13B> 
3120 NEXT J <164> 
3500 POKE 198,0 <106> 
4000 POKE 53265,27 <209> 
4010 POKE 53270,200 <254> 
4015 POKE 53272,21 <135> 
4020 POKE 53281,0:PRINT"<CLR,11DOMN,15RIGH 

TJNEXT DISK“ <101> 
4030 POKE 198,0:WAIT 198,1 <192> 
4040 RUN 10 <156> 


Listlng 4. Ein Beispiel, wie das Programm »Show.obj $5000« 
angesteuert werden kann 


name 

: 

show.obj 

*5000 

5000 

5240 

50c 0 

: 

03 

ad 

4d 

03 

69 

83 

8d 

5d 

fl 












SOc8 

: 

03 

ad 

5a 

03 

85 

fe 

ad 

5b 

57 

5000 

: 

a9 

00 

Bd 

69 

03 

ad 

e9 

03 

85 

50d0 

: 

03 

B5 

ff 

aO 

00 

8c 

5b 

03 

B2 

5008 

s 

Bd 

68 

03 

a9 

OO 

8d 

63 

03 

bf 

50dB 

3 

bl 

fe 

Bd 

Sa 

03 

ad 

5c 

03 

cc 

5010 

: 

ad 

ea 

03 

8d 

62 

03 

a9 

Ob 

aO 

50e0 

: 

85 

f e 

ad 

5d 

03 

85 

ff 

aO 

99 

5018 

: 

8d 

11 

dO 

a9 

19 

Bd 

18 

dO 

97 

50eB 

: 

00 

Bc 

5d 

03 

bl 

fa 

8d 

5c 

eB 

5020 

: 

a9 

dB 

Bd 

16 

dO 

«9 

OO 

Bd 

dl 

50-f 0 

: 

03 

ae 

66 

03 

ad 

67 

03 

B6 

74 

5028 

• 

3d 

03 

ad 

10 

B7 

Bd 

3c 

03 

30 

50-f B 

3 

fe 

85 

ff 

aO 

00 

ad 

5a 

03 

aa 

5030 

: 

ad 

3c 

03 

Bd 

21 

dO 

a9 

00 

ad 

5100 

: 

91 

fe 

ae 

40 

03 

ad 

41 

03 

6d 

5038 

s 

Bd 

4c 

03 

a9 

20 

Bd 

4d 

03 

Bb 

5108 

3 

86 

fe 

85 

ff 

aO 

00 

ad 

5c 

eB 

5040 

: 

aO 

OO 

ad 

4c 

03 

ae 

4d 

03 

b6 

5110 

• 

03 

91 

fe 

ad 

4c 

03 

1B 

69 

61 

5048 

: 

85 

fe 

86 

ff 

*9 

00 

91 

fe 

cd 

5118 

: 

01 

Bd 

4c 

03 

ad 

4d 

03 

69 

77 

5050 

s 

ad 

4c 

03 

18 

69 

01 

8d 

4c 

55 

5120 

: 

00 

Bd 

4d 

03 

ad 

4d 

03 

c9 

7f 

5058 

5 

03 

ad 

4d 

03 

69 

00 

Bd 

4d 

4d 

5128 

: 

03 

fo 

04 

bO 

Oc 

90 

07 

ad 

77 

5060 

: 

03 

ad 

4d 

03 

c9 

3-f 

fO 

04 

50 

5130 

: 

4c 

03 

c9 

eB 

bO 

03 

4c 

B5 

ed 

5068 

5 

bO 

Oc 

90 

07 

ad 

4c 

03 

c9 

00 

5138 

: 

50 

a9 

00 

Bd 

4c 

03 

a9 

00 

92 

5070 

: 

40 

bO 

03 

4c 

40 

50 

a9 

3b 

f 6 

5140 

: 

8d 

4d 

03 

a9 

OO 

Bd 

51 

03 

22 

5078 

: 

Bd 

ii 

dO 

a9 

00 

8d 

4c 

03 

9b 

514B 

• 

ad 

e8 

03 

Bd 

50 

03 

ad 

4c 

48 

5080 

: 

a9 

00 

Bd 

4d 

03 

ad 

4c 

03 

Ob 

5150 

: 

03 

18 

69 

00 

Bd 

4a 

03 

ad 

4c 

5088 

: 

18 

69 

00 

Bd 

66 

03 

ad 

4d 

d6 

5158 

: 

4d 

03 

69 

20 

8d 

4b 

03 

ad 

20 

5090 


03 

69 

04 

8d 

67 

03 

ad 

4c 

dS 

5160 

3 

4c 

03 

18 

69 

00 

Bd 

54 

03 

25 

5098 

: 

03 

18 

69 

00 

Bd 

40 

03 

ad 

44 

516B 

• 

ad 

4d 

03 

69 

60 

BH 

55 

03 

78 

50a0 

: 

4d 

03 

69 

d8 

8d 

41 

03 

ad 

2e 

5170 

: 

ad 

54 

03 

85 fe 

ad 

*•'5 

03 

72 

50a8 

• 

4c 

03 

18 

69 

40 

Bd 

5a 

03 

89 

5178 

• 

85 

ff 

aO 

00 

Bc 

55 

03 

bl 

OB 

50b0 

• 

ad 

4d 

03 

69 

7f 

Bd 

5b 

03 

ca 

5180 

3 

fe 

Bd 

54 

03 

ae 

4a 

03 

ad 

5f 

50bB 

s 

ad 

4c 

03 

18 

69 

28 

Bd 

5c 

16 

51B8 


4b 

03 

86 

fe 

85 

ff 

aO 

00 

bl 


5190 

3 

ad 

54 

03 

91 

fe 

ad 

63 

03 

4b 

5198 

: 

c9 

00 

dO 

Oa 

ad 

62 

03 

c9 

64 

51a0 

3 

01 

dO 

03 

4c 

dB 

51 

a9 

00 

12 

51 a8 

3 

8d 

60 

03 

a9 

00 

Bd 

61 

03 

53 

51b0 

3 

ad 

60 

03 

18 

69 

01 

8d 

60 

e7 

51bB 

3 

03 

ad 

61 

03 

69 

00 

Bd 

61 

da 

51c0 

3 

03 

ad 

61 

03 

cd 

69 

03 

fO 

69 

51c8 

3 

04 

bO 

Od 

90 

08 

ad 

60 

03 

ef 

51d0 

3 

cd 

68 

03 

bO 

03 

4c 

bO 

51 

aO 

51d8 

3 

ad 

4c 

03 

1B 

6d 

50 

03 

8d 

fO 

51e0 

3 

4c 

03 

ad 

4d 

03 

6d 

51 

03 

aa 

51eB 

3 

Bd 

4d 

03 

a9 

lf 

cd 

4d 

03 

ad 

51f 0 

8 

fO 

04 

90 

09 

bO 

Oa 

a9 

ff 

2a 

51f 8 

3 

cd 

4c 

03. bO 

03 

4c 

29 

52 

9e 

5200 

3 

ad 

5c 

03 

18 

69 

01 

■0 

CO 

5c 

2d 

5208 

3 

03 

ad 

5d 

03 

69 

00 

Bd 

5d 

21 

5210 

3 

03 

ad 

5d 

03 

c9 

23 

fO 

04 

23 

5218 

3 

bO 

Oc 

90 

07 

ad 

5c 

03 

c9 

31 

5220 

3 

28 

bO 

03 

4c 

4e 

51 

4c 

3d 

06 

5228 

3 

52 

ad 

4c 

03 

3B 

e9 

ff 

Bd 

b2 

5230 

3 

4c 

03 

ad 

4d 

03 

e9 

lf 

8d 

2a 

5238 

: 

4d 

03 

4c 

00 

52 

60 

a3 

Bd 

ec 


Listing 5. Das vollständige MSE- 
Listing von »show.obj $5000« 


Hi-Eddi mit Riteman C + 


Für Hi-Eddi, das universelle Zeichenprogramm, 
bieten wir Ihnen hier eine Anpassung für den 
Riteman C+ an. Damit kann dieser Drucker pro¬ 
blemlos mit Hi-Eddi Zusammenarbeiten. 

A uch der Riteman C+ kann jetzt mit Hi-Eddi betrieben 
werden. Die erforderlichen Anpassungen sind im Li¬ 
sting »HI-PRINT« enthalten. Um es auf die Diskette mit 
Hi-Eddi zu bekommen, geben Sie zunächst der alten Version 


des »HI-PRINT« mit 

OPEN 1,8,15:PRINT#1,"R:HI-PRINT ALT=HI-PRINT" 
einen anderen Namen. Dann tippen Sie bitte das Listing »HI- 
PRINT« mit dem MSE ab, und speichern Sie es auf die Dis¬ 
kette mit Hi-Eddi. Schon ist die Anpassung an den Riteman 
C+ fertig. Zum Betrieb schalten Sie den Drucker bitte in den 
Plus-Modus. Texte werden zwar etwas gestaucht wiederge¬ 
geben, jedoch erscheinen Kreise dann wirklich rund. 

(T. Seip/og) 


Programm ■ hi-print OdOO 0e7d 


OdOO 

3 

85 

5b 

ad 

69 

Oe 

fO 

22 

78 

ad 

odoa 

8 

a9 

ff 

8d 

03 

dd 

ad 

02 

dd 

84 

OdlO 

S 

09 

04 

Bd 

02 

dd 

ad 

00 

dd 

c6 

Od 18 

8 

09 

04 

8d 

00 

dd 

a9 

10 

8d 

Od 

0d20 

3 

Od 

dd 

ad 

Od 

dd 

58 

4c 

44 

83 

0d28 

S 

Od 

20 

cc 

ff 

a9 

04 

ae 

6a 

c3 

0d30 

8 

Oe 

ac 

6b 

Oe 

20 

ba 

ff 

a9 

5c 

Od3B 

1 

00 

20 

bd 

ff 

20 

cO 

ff 

a2 

OS 

0d40 

8 

04 

20 

c9 

ff 

a9 

04 

85 

5e 

54 

Od4B 

8 

aO 

03 

20 

22 

Oe 

*9 

80 

85 

fl 

OdSO 

8 

5f 

a9 

02 

B5 

60 

a5 

5b 

29 

a8 

0d5B 

3 

CO 

dO 

04 

46 

5f 

46 

60 

aS 

3f 

0d60 

3 

5b 

29 

07 

a2 

00 

20 

30 

Oe 

44 

0d68 

8 

aS 

5b 

30 

03 

4a 

4a 

4a 

29 

9a 


0d70 

1 

07 

a2 

02 

20 

30 

Oh 

a9 

19 

99 

0d7B 

3 

85 

5c 

aS 

5f 

30 

Oa 

aO 

14 

7f 

0d80 

e 

a9 

20 

20 

47 

Oe 

88 

dO 

fa 

89 

OdBB 

8 

aO 

OB 

20 

22 

Oe 

a5 

5f 

20 

45 

0d90 

8 

47 

Ol- 

aS 

60 

20 

47 

Oe 

a9 

lc 

Od9B 

3 

28 

85 

5d 

78 

a9 

34 

85 

01 

3e 

OdaO 

8 

aO 

07 

bl 

57 

99 

7d 

Oe 

88 

ea 

0da8 

8 

10 

f 8 

a9 

37 

85 

01 

58 

aS 

93 

OdbO 

8 

57 

18 

69 

OB 

85 

57 

90 

02 

c8 

OdbB 

3 

e6 

58 

aO 

08 

a2 

00 

3e 

7d 

12 

OdcO 

I 

Oe 

08 

2a 

e8 

28 

24 

5b 

30 

eb 

0dc8 

3 

06 

eO 

08 

dO 

fl 

fO 

OB 

2a 

76 

OddO 

8 

e4 

5e 

dO 

ea 

20 

47 

Oe 

20 

29 

0dd8 

: 

47 

Oe 

88 

dO 

df 

c6 

5d 

dO 

ae 

OdeO 

s 

ba 

a5 

5f 

10 

26 

a2 

01 

b4 

2c 

OdeB 

: 

57 

b5 

59 

95 

57 

94 

59 

ca 

38 

Odf 0 

8 

10 

f 5 

a5 

5e 

49 

Oc 

85 

5e 

fB 


Odf 8 

8 

c9 

04 

fO 

Of 

aS 

5b 

30 

03 

dd 

OeOO 

8 

4c 

97 

Od 

aO 

00 

20 

22 

Oe 

15 

0e08 

3 

4c 

7a 

Od 

c6 

5c 

dO 

f 4 

aO 

Of 

OelO 

8 

00 

20 

22 

Oe 

aO 

Od 

20 

22 

a2 

Oe 18 

3 

Oe 

20 

cc 

ff 

a9 

04 

20 

c3 

2c 

0e20 

3 

ff 

60 

b9 

6c 

Oe 

c9 

ff 

fO 

5c 

0e28 

3 

06 

20 

47 

Oe 

cB 

dO 

f 3 

60 

76 

Oe 30 

8 

aO 

06 

d9 

96 

lf 

fO 

03 

B8 

b3 

Oe38 

8 

dO 

fB 

a9 

00 

95 

57 

18 

69 

36 

0e40 

3 

20 

B8 

10 

fb 

95 

58 

60 

ae 

23 

0e48 

8 

69 

Oe 

dO 

03 

4c 

d2 

ff 

48 

39 

0e50 

8 

Bd 

01 

dd 

ad 

00 

dd 

29 

fb 

16 

0e5B 

8 

8d 

00 

dd 

09 

04 

Bd 

00 

dd 

e6 

0e60 

8 

ad 

Od 

dd 

29 

10 

fO 

f 9 

68 

72 

0e68 

8 

60 

00 

04 

08 

Od 

ff 

ff 

lb 

dl 

0e70 

8 

33 

Of 

ff 

ff 

lb 

4c 

ff 

ff 

3f 

0e78 

3 

ff 

lb 

32 

ff 

ff 

a9 

00 

20 

lf 


Das Listing »Hj-PRINT« enthält die Anpassung von Hi-Eddi an den Riteman C+. Bitte geben Sie es mit dem MSE ein. 
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HARDCOPY 


C 64 



D as Programm »Hardcopy 802« wurde für den C64 in 
Verbindung mit dem Commodore-Drucker MPS 802 
und dem Floppy-Laufwerk 1541 geschrieben. Geladen 
wird das Programm durch LOAD "Hardcopy 802",8,1 und mit 
RUN gestartet. Durch Drücken von < RETURN > gelangt man 
aus dem Anfangsbild in das erste Menü, wo die Wahl 
zwischen dem Laden des Directorys oder eines Bildes 
besteht. 

Hat man sich für das Directory entschieden, so kann man 
bei mehr als 21 Dateieinträgen mit der < Cursor-Rechts- 
Taste> eine Seite vor- und mit der <Cursor-Links-Taste> 
eine Seite zurückblättern. Durch Drücken der cCursor- 
Down-Taste> wird der Bildschirm zeilenweise vor- und mit 
<Cursor-Up> zeilenweise zurückgescrollt. 

Durch die Möglichkeit, das Directory im Programm zu 
laden, kann man sich davon überzeugen, ob sich das 
gewünschte Bild auf der eingelegten Diskette befindet oder 
auch welchen Namen es hat. Drücken Sie nun < RETURN > 
und Sie befinden sich wieder im Anfangsmenü. Geben Sie 
nun < B > ein, so werden Sie aufgefordert, den gewünsch¬ 
ten Bildnamen einzutippen, wobei das Jokerzeichen < * > 
wie gewohnt verwendet werden darf. 

Konnte das Bild nicht geladen werden (zum Beispiel durch 
Eingabe eines falschen Namens), wird die entsprechende 
Fehlermeldung sowie ein Warnton ausgegeben. Dies, wie 
auch die Möglichkeit durch Drücken der <Pfeil-nach- 
links>-Taste (das ist die oberste linke Taste der Tastatur) ins 
Anfangsbild von »Hardcopy 802« zu gelangen, besteht in 
allen Menüpunkten des Programms. 

Gab es beim Laden des Bildes keine Probleme, so kann 
man sich das geladene Bild ansehen und wahlweise invertie¬ 
ren (alle weißen Teile werden schwarz und umgekehrt). Die¬ 
ser Vorgang läßt sich beliebig oft wiederholen, bis die 
< N > -Taste gedrückt wird. Sie haben nun die Wahl zwischen 
dem Ausdrucken des ganzen Bildes in einfacher oder dop¬ 
pelter Größe (Bild 1) oder eines Ausschnittes davon (Bild 2 
und 3). 

Im ersten Fall können Sie sich aussuchen, ob Sie das Bild 
gerne zentriert ausgegeben haben möchten oder nicht. Wol¬ 
len Sie keinen zentrierten Ausdruck, so steht Ihnen die 
Druckpositionsangabe zur Verfügung (0-39). »0« bedeutet 
dabei, daß der Ausdruck an der linken Druckkopfposition 
beginnt, »39« führt zum Ausdruck ab der Papiermitte. 

Würden Sie lieber einen Ausschnitt des Bildes drucken, so 
geben Sie nach Drücken von <N> bei der Invertierungs¬ 
option < A> ein. Sie können sich nun das Bild ansehen und 



Bild 2—»Krümelmonster« 
als Ausschnitt davon... 



Bild 3.... und schließlich als Ausschnitt vergrößert. 

mit den Cursor-Tasten die linke obere und rechte untere Ecke 
des Ausschnittes anwählen. Bewegen Sie dazu den Cursor 
wie gewohnt zu dem Bildschirmpunkt Ihrer Wahl und drücken 
< RETURN >. Hiermit ist die linke obere Ecke festgelegt. 
Fahren Sie nun die gewünschte rechte untere Bildschirm¬ 
position in der gleichen Weise an, wobei zur Orientierung 
über Größe und Form des Ausschnittes ein horizontaler und 
vertikaler Balken zu sehen ist. Nachdem auch die untere 
rechte Ecke des Ausschnittes durch < RETURN > festge¬ 
legt wurde, blinkt der gewählte Ausschnitt auf. 

Durch < RETURN > gelangen Sie ins nächste Menü, um 
die Größe des Ausdruckes auf dem Papier festzulegen. 
»Hardcopy 802« stellt dabei selbständig fest, ob eine zwei-, 
vier- oder achtfache Vergrößerung möglich ist (natürlich kann 
es aber auch in normaler Größe gedruckt werden). 

Nachdem Sie sich für eine der möglichen Vergrößerungen 
entschieden haben, kann die Ausgabe wie schon beschrie¬ 
ben zentriert oder ein Tabulator gesetzt werden. 

Bei der Druckerausgabe wird erst geprüft, ob der zu 
druckende Block einem normalen Leerzeichen entspricht. Ist 
dies der Fall, so wird nur die Zahl der zu druckenden Leer¬ 
zeichen um eins erhöht. Dies spart sehr viel Zeit, da der 
Drucker nicht immer hin und her zu fahren braucht, um einen 
Block zu drucken. Besteht eine ganze Zeile aus Leerzeichen, 
so wird nur ein Zeilenvorschub durchgeführt. 

Ein Bild kann auch mehrmals hintereinander bearbeitet und 
gedruckt werden. (Gero Nießen/bj) 
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C 64 


HARDCOPY 


Die ökonomische Hardcopy 



Vier Bilder platzsparend auf einem einzigen Blatt 
Papier - kein Problem für diese Hardcopy-Routine 
für den Commodore-Drucker MPS 801. 

W en es schon immer gestört hatte, daß er pro Bild 
jedesmal mindestens eine halbe, wenn nicht eine 
ganze Seite verbrauchte, für den ist diese Routine 
ein praktisches Utility. Diese Routine druckt vier HiRes- 
Bilder, wie aus Bild 1 ersichtlich, nahtlos auf Ihrem MPS 801 
aus (Bild 2). 

Damit sie alle auf das Papier passen, werden sie um 90 
Grad gedreht. Zwischen den Bildern ist kein Zwischenraum, 
sie liegen direkt aneinander. 

Die Funktion »Repetition of graphic data« des Druckers 
wird voll ausgenutzt, um den Puffer zu entlasten: Normaler¬ 
weise fährt der Druckkopf mehrmals über eine Zeile. Diese 
Anzahl wird durch die eingebaute Fastprint-Routine auf ein 
Minimum reduziert. Eine Zeile, die nicht bis ans Ende voll ist, 
wird vorher mit RETURN abgeschlossen. Bei einer Leerzeile 
wird nur ein RETURN ausgegeben. 

Zum Programm 

Tippen Sie zuerst das Programm (Listing 1) mit Hilfe des 
MSE ab und speichern Sie es auf Diskette. Sie können es 
jederzeit absolut mit 
LOAD"SUPER-HARDCOPY", 8,1 

laden und durch SYS 49792 starten. Das Programm fragt Sie 
nun jeweils nach den Namen der einzelnen Bilder. Wird kein 
Name angegeben, so lädt das Programm nichts. An der ent¬ 
sprechenden Stelle wird auch nichts gedruckt. Das bedeu¬ 
tet, daß es auch möglich ist, nur ein Bild zu drucken. 

Die benötigte Zeit wird durch das Schnelldruck-System 
natürlich viel kürzer. 

Die Startadresse der auf Diskette gespeicherten Bilder 
spielt keine Rolle, sie werden automatisch durch das Pro¬ 
gramm in den richtigen Speicherbereich geladen. 


Das Unterprogramm »Fastprint« befindet sich im Bereich 
von $C1BA bis SC27F und wird statt der PRINT-Routine 
($FFD2) mit JSR $C1BA aufgerufen. Alle Druckerausgaben 
außer dem Grafik-Befehl CHR$(8) müssen über »Fastprint« 
zum Drucker gesendet werden (falls Sie mehr über das »Fast¬ 
print« wissen möchten, so finden Sie eine kleine Erklärung 
der Funktionsweise in der Hardcopy-Routine »Koala-Print« 
auf Seite 176). Geeignet ist das Programm für alle Drucker, 
die zum MPS 801 kompatibel sind (zum Beispiel Seikosha 
GP100 VC). 

(Thomas Wenzel/dm) 



Bild 1. In dieser Form können die Bilder gedruckt werden 
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Llsting 1. »Super-Hardcopy« - Vier Bilder auf einem Blatt Papier 
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HARDCOPY 


Apfel- 
männdien 
mit 256000 
Punkten 

Normale Hardcopies erreichen beim Vergrößern 
keine höhere Auflösung. Im Gegensatz dazu kön¬ 
nen Sie auf dem MPS 802 mit wenig Aufwand und 
viel Zeit die Grafiken des »Apfelmännchen« in 
achtfacher Auflösung drucken. 

B evor Sie ans Abtippen gehen, vergewissern Sie sich 
bitte, daß Ihr Drucker ein MPS 802 der Version 7 ist. 
Das erreichen Sie, indem Sie beim Einschalten des 
Druckers die Taste »Paper Advance« gedrückt halten. Nur bei 
der Version 7 kann das Programm hundertprozentig funktio¬ 
nieren. 

Geben Sie die Programme »APFEL/BAS« (Listing 1) und 
»APFELVOBJ« (Listing 2) ein und speichern Sie sie auf Dis¬ 
kette oder Kassette. Für die Kassettenversion ändern Sie in 
Zeile 100 die Gerätenummer »8« zu »1«. Dann laden Sie das 
Basic-Programm »APFEL/BAS« und starten es mit < RUN >. 
Dieses Programm lädt dann das Maschinenprogramm 
»APFEL/OBJ« nach. Nachdem das passiert ist, erscheint das 
Menü. In diesem können Sie aus vier Menüpunkten aus¬ 
wählen. 

Wenn Sie den Menüpunkt »Berechnen« wählen, können 
Sie die Parameter eingeben, wie Sie es von dem Programm 
aus Ausgabe 11/85 gewohnt sind. Nachdem Sie diese Einga¬ 
ben gemacht haben, beginnt der Computer zu rechnen. Sie 
erkennen das an der wechselnden Umrandungsfarbe, die für 
jeden berechneten Punkt einmal ihre Farbe wechselt (daran 
erkennen Sie, daß Ihr Computer arbeitet). Sobald das Bild fer¬ 
tig berechnet ist, erscheint wieder das Menü. 

Wenn Sie anschließend den Menüpunkt »Speichern« wäh¬ 
len, brauchen Sie nur den Filenamen einzugeben und das 
aktuelle Bild wird gespeichert. Anschließend wird der Fehler¬ 
kanal der Floppy ausgelesen und ausgegeben. Das Spei¬ 
chern funktioniert übrigens auch nach einem Abbruch. 

Das Laden funktioniert genauso. Nur werden nach der Feh¬ 
lermeldung noch die Parameter des Bildes ausgegeben. 

Wenn Sie nun den Menüpunkt »Drucken« wählen, er¬ 
scheint zunächst die Frage, ob Sie Normal oder Invers 
drucken wollen. Dabei bedeutet »Normal«, daß eine Fläche, 
bei der die Folge den gewählten Grenzwert nicht überschrei¬ 
tet, weiß bleibt. Das heißt also, daß das Apfelmännchen weiß 
bleibt. Wenn Sie »Invers« wählen, wird eben dieses Apfel¬ 
männchen schwarz (je nach Farbband auch grau) gedruckt. 
Da dieses Programm aufgrund der hohen Auflösung sehr viel 
Rechenzeit benötigt, empfiehlt es sich, dieses Programm für 
Bilder zu benutzen, die mit dem Programm aus Ausgabe 
11/85 erstellt wurden. 

Die Rechenzeit des »Apfelpainters« beträgt etwa das Acht¬ 
fache der Zeit, die das Programm für ein Bild benötigt (wegen 
der achtfachen Auflösung). 

330? 



Da das Basic-Programm sehr einfach programmiert ist, soll 
ausschließlich das Assemblerprogramm (Listing 3) erklärt 
werden 

Dieses besteht aus den Hauptroutinen »APFEL«, »LOAD«, 
»SAVE«, und »PRINT«. Die am Anfang des Programms ste¬ 
hende Sprungleiste gewährt einwandfreien Zugang zu allen 
Programmteilen. Die Routine »START« liest erst die Werte aus 
dem SYS-Befehl aus (»HOLWERTE«) und springt dann in die 
Routine zum Berechnen des Bildes »APFEL«. Diese ent¬ 
spricht größtenteils der Rechenroutine von G. Pehlands 
Programm. Die im folgenden erwähnten Unterschiede erklä¬ 
ren sich durch die bedeutend größere Auflösung und der 
Anordnung der Pixel im Speicher. 

Der erste Unterschied besteht in den Zeilen 4080-4100. 
Der 4 wird der 16-Bit-Wert »SPALTEN« in Fließkommaformat 
umgerechnet. Die Routine »INTTOFAC« ist aus der Betriebs¬ 
systemroutine »$BDCD« entnommen. Die gleiche Befehls¬ 
folge steht in den Zeilen 4230 - 4250, nur diesmal für den 
16-Bit-Wert »ZEILEN«. Die nächste Änderung steht in den 
Zeilen 4430 - 4433. Diese Änderung ergibt sich daraus, daß 
der Einfachheit halber »POS« von Acht auf Null herunterge¬ 
zählt wird. Der nächste Unterschied besteht darin, daß das 
Carry-Flag zur Anzeige eines gesetzten Punktes benutzt 
wird (Zeile 4560-4570). Diese Befehlsfolge löscht also den 
nächsten Punkt. In Zeile 4810 - 4830 wird der Routine 
»PLOT« mitgeteilt, ob der entsprechende Punkt gesetzt oder 
gelöscht ist. Dazu wird ausgenutzt, daß das niederwertigste 
Bit angibt, ob der Byte-Wert gerade oder ungerade ist. (Die 
Auflösung der Farben beschränkt sich beim Drucker ja logi¬ 
scherweise auf zwei Farben: Weiß und Schwarz entspre¬ 
chend einem geraden oder ungeraden Wert von »TIEFE«.) 
Aufgrund dieser Übergabemethode wurde natürlich auch der 
Anfang der Routine »PLOT« (Zeile 5200 - 5220) geändert. 
Dort wird dann das Carry-Flag in den Wert »BYTE« ge- 
SHIFTet. Und in Zeile 5225 wird für jeden berechneten Punkt 
die Umrandungsfarbe geändert. In Zeile 5400 wurde die 
Anzahl der Spalten von 40 (Bildschirm) auf 80 (Drucker) 
hochgesetzt. In den Zeilen 5520 - 5580 wurde von der 
ursprünglichen 8-Bit-Operation auf eine 16-Bit-Operation 
umgestellt. Die Routine »SETBYTE« (Zeile 6000 - 6080) 
speichert das in der Routine »PLOT« zusammengestellte 
Byte. Und zwar werden diese Bytes in der Reihenfolge, wie 
sie errechnet werden, gespeichert. Es entsteht also eine 
andere Anordnung der Bitmap als in der Bitmap des Grafik¬ 
bildschirms. 

Die Routine »PRINT« transportiert jeweils den Inhalt einer 
Druckzeile in einen Zwischenspeicher, der dann von der 
Routine »OUTPUT« ausgegeben wird. 

In Zeile 12000 werden die nötigen Files geöffnet. Dann 
wird in Zeile 12010 die Anzahl der Druckzeilen definiert. 
Anschließend wird in den Zeilen 12030 - 12060 der Zeiger 
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auf den Grafikspeicher gesetzt. Inden Zeilen 12070-12100 
wird nun ein zweiter Zeiger auf den Zwischenspeicher 
gesetzt. In den Zeilen 12120-12130 wird dann der Inhalt der 
betreffenden Druckzeile aus dem Grafikspeicher in den Zwi¬ 
schenspeicher transportiert. In den folgenden Zeilen werden 
nun die Zeiger erhöht und anschließend wird abgefragt, ob 
der Zwischenspeicher schon voll ist (Zeile 12210 - 12250). 
Wenn der Zwischenspeicher voll ist, wird dieser ausgegeben 
(Zeile 12260). Anschließend wird der Zähler für die Zeilen 
dekrementiert. Wenn er noch nicht gleich Null ist, wird auf die 
gleiche Art die nächste Druckzeile ausgegeben. Sonst wird 
die Ausgabe wieder auf den Bildschirm gelegt (Zeile 12285) 
und die Files werden geschlossen (Zeile 12290). 

Nachdem das Bitmuster einer Zeile in den Puffer »SPEI¬ 
CHER« übertragen wurde, wird diese Zeile von der Routine 
»OUTPUT« ausgedruckt. Als erstes werden die 8 Byte eines 
Zeichens in einen Zwischenspeicher gebracht. Diese 8 Byte 
befinden sich aufgrund der Anordnung der Bitmap in jeweils 
80 Byte Abstand. Zuerst wird ein Zwischenspeicher für den 
Zeiger auf das jeweilige Byte angelegt (Zeile 13000 - 
13650). In den Zeilen 13060 - 13070 wird dann der Zähler 
für die Anzahl der Leerzeichen vor dem nächsten Zeichen 
gesetzt und in den nächsten beiden Zeilen wird dann noch 
ein Zähler für die Anzahl der Spalten gesetzt. In der Zeile 
13120 wird nun das X-Register als Zähler für die Anzahl der 
Pixelzeilen definiert. Dann wird in den Zeilen 13140 - 13170 
ein Zeiger auf das aktuelle Byte definiert. In den Zeilen 13180 
- 13270 werden jetzt die 8 Byte eines Zeichens aus »SPEI¬ 
CHER« nach »PUFFER« kopiert. Die Bytes stehen jeweils in 
einem Abstand von 80 Byte im »SPEICHER« (Zeile 13220). 
Anschließend werden nun die 8 Byte eines Zeichens, die ja 
horizontal orientiert sind, vertikal orientiert. Das heißt, jeweils 
die Bits der gleichen Wertigkeit aller 8 Byte ergeben ein Byte. 
Das geht folgendermaßen vonstatten: Es wird ein Masken¬ 
byte definiert (Zeile 13300), in dem jeweils das entspre¬ 
chende Bit gesetzt ist. Dieses Maskenbyte wird nun mit allen 
8 Byte AND-verknüpft (Zeile 13330) und entsprechend dem 
Ergebnis wird dann das Carry-Flag gesetzt oder gelöscht 
(Zeile 13340 - 13360). Dieses Carry-Flag wird dann in das 
Ergebnisbyte geschoben (Zeile 13370). Dieser Vorgang 
wiederholt sich nun, bis alle 8 Byte so behandelt worden sind 
(Zeile 13380 - 13400). Nun wird das Ergebnisbyte noch in 
Abhängigkeit, ob Normal oder Invers gedruckt werden soll, 
invertiert (Zeile 13420). Das Ergebnis wird dann im »PUR 
FER« abgelegt (Zeile 13430). Nun wird noch im Maskenbyte 
das nächste Bit gesetzt und gleichzeitig getestet, ob schon 
alle 8 Bits durch sind (Zeile 13442 - 13448). 

Nun wird als erstes getestet, ob alle 8 Bitmusterbyte leer 
sind (Zeile 13450 - 13462). Wenn ja, wird dieses Zeichen 
gar nicht erst gedruckt, sondern es werden nur die Zeiger 
aktualisiert (Zeile 13630). In den Zeilen 13469-13490 wer¬ 
den nun die 8 Bitmusterbyte an den Drucker geschickt. 
Anschließend wird in Zeile 13500 - 13580 der Druckknopf 
auf das aktuelle Zeichen positioniert, was nach einem 
Wagenrücklauf ja nötig ist. Nachdem das geschehen ist, wird 
in Zeile 13590 - 13600 das eben definierte Zeichen ausge¬ 
druckt. In den nächsten beiden Zeilen wird durch einen 
Wagenrücklauf das Definieren des nächsten Zeichens 
ermöglicht. In den Zeilen 13630 - 13660 werden dann die 
Zähler und Zeiger aktualisiert. Wenn nun die Zeile noch nicht 
fertig gedruckt ist, wird das nächste Zeichen auf die gleiche 
Art ausgedruckt. 

Das Programm wurde extra so entwickelt, daß man es 
leicht für einen anderen Drucker umschreiben kann. Man 
muß dafür dann nur die druckerspezifischen Routinen anpas¬ 
sen (Openfls, Closefls). Die Routine »OUTPUT« muß jedoch 
für den entsprechenden Drucker vollkommen neu geschrie¬ 
ben werden. Diese Routine muß die Bitmuster, die im »SPEI¬ 
CHER« enthalten sind, ausdrucken. Dieses Bitmuster ist fol¬ 


gendermaßen gespeichert: In den ersten 80 Byte sind der 
Reihe nach alle Bits der nächsten Pixelzeile enthalten. Die 
nächsten 80 Byte enthalten die Bits der nächsten Pixelzeile 
und so weiter bis zur achten Pixelzeile. 

Für den erfahrenen Programmierer dürfte das Umschrei¬ 
ben dieses Programms auf einen 8-Nadeldrucker keine Pro¬ 
bleme bereiten. Bei Druckern mit 9 Nadeln gibt es zwei Mög¬ 
lichkeiten. Einmal besteht die Möglichkeit, nur mit 8 Nadeln 
zu arbeiten und damit kompatibel zu der vorliegenden Ver¬ 
sion zu bleiben, oder man arbeitet mit allen 9 Nadeln, wobei 
man dann die vertikale Auflösung anpassen oder aber die 
letzte Zeile gesondert verarbeiten muß, denn die jetzige verti¬ 
kale Auflösung ist ja nicht durch 9 teilbar. 

Das Programm funktioniert auch mit dem CI28 einwand¬ 
frei. Für die Benutzer dieses Computers empfiehlt es sich 
aber, in Zeile 2070 den Prozessor auf 2 MHz umzuschalten 
und in Zeile 2095 wieder auf 1 MHz zurückzuschalten. 

Ach ja, es gibt ja die leidigen Probleme mit den verschiede¬ 
nen Betriebssystemen des MPS 802. Dieses Programm 
wurde auf einem MPS 802 Version 7c entwickelt. Bei ande¬ 
ren Versionen könnte es Probleme geben, da diese zum Teil 
nicht grafikfähig sind. (P. Siepen/og) 


10 REM ******************************** 

<060> 

11 REM * 


<060> 

12 REM * APFELPRINTER * 

< 125> 

13 REM * WRITTEN 1985 


< 115> 

14 REM * BY PETER SIEPEN 


<247> 

15 REM * VON-STEPHAN-STRASSE 6 


<255> 

16 REM * 4200 OBERHAUSEN 1 * 

< 102> 

17 REM * 


<066> 

18 REM ******************************** 

<06B> 

100 A=A+1:IF A=1 THEN LOAD"APFEL/OBJ",8,1 

<245> 

110 POKE 55,0:POKE 56,32:CLR 


<005> 

120 M *** SPEICHERGRENZE SETZEN *** 


< 1B3> 

130 : 


< 106> 

140 : 


< 116> 

1000 REM ********** MENUE *********** 


< 1B0> 

1003 POKE 53280,ll:POKE 53281,0:PRINT CHRS 


(5); 


<215> 

1005 PRINT CHR$(8)CHR*<14> 


<240> 

1010 PRINT“{CLR,DDWN>"TAB<15)"fl E N U E" 

< 189> 

1020 PRINT"C3D0WN,SPACE,RVSON,SPACE>1{SPAC 


E,RVOFF,SPACE >BERECHNEN» 


< 103> 

1030 PRINT"<DOWN,SPACE,RVSON,SPACE>2{SPACE 


,RVOFF,SPACE>DRUCKEN" 


<132> 

1040 PRINT"{DOWN,SPACE,RVSON,SPACE>3{SPACE 

,RVOFF,SPACE >spEICHERN" 


<018> 

1050 PRINT"{DOWN,SPACE,RVSON,SPACE>4{SPACE 


,RVOFF,SPACE JiADEN" 


<243> 

1100 GET A*:IF A*= M,, THEN 1100 


<069> 

1110 IF VAL<A*><1 OR VAL(A*>>4 THEN 1100 

< 178> 

1120 ON VAL CA*)GOTO 2000,3000,5000,6000 

< 16B> 

1130 GOTO 1000 


<054> 

1140 : 


<100> 

1150 s 


<110> 

1900 REM ****** WERTE EINGEBEN ******* 


<200> 

2000 PRINT"{CLR.2D0WN,SPACE>H E R T E 


<042> 

2010 INPUT "{2D0WN,SPACELINKER BANDI2SPAC 


E>";LI 


< 193> 

2020 INPUT "{DOWN,SPACEJBECHTER BAND RE 

<034> 

2030 INPUT "{DOWN,SPACEJiJNTERER BAND ";UN 

< 164> 

2040 INPUT "{DOWN,SPACEJflBERER BAND{2SPACE 


> " ; OB 


<005> 

2050 INPUT " {2DQWN,SPACE>11EFE{BSPACE > 

ST 

< 121> 

2060 IF T<5 OR T>254 THEN 2050 


<067> 

2065 REM MASCHINENPRG AUFRUFEN 


<218> 

2070 POKE 821,0 


< 177> 

2080 POKE 52999,T 


<014> 

2090 SYS 49152,LI,RE,UN,OB 


<053> 

2100 POKE 53280,0 


< 118> 

2110 GOTO 1000 s REM MENUE 


<220> 

2120 : 


<064> 

2130 : 


<074> 

3000 REM ********** DRUCKEN ********** 


<006> 

3010 PRINT"{CLR,2D0WN,SPACE >a RUCKE 

N 


11 


<0B8> 

Listing 1 . »APFEL/BAS« geben Sie bitte mit dem 
Checksummer V3 ein 




158 


SONDERHEFT 6/86 







C 64 


HARDCOPY 


3020 

PRINTsPRINT:PRINT" HOLLEN SIE NORMAL 


5055 

POKE 822,LEN(NA*) 


<213> 


ODER INVERS DRUCKEN ?" 

<131 > 

5060 

SYS 49155 : REM AUFRUF MC-PRG 


<233> 

3030 

GET A*:IF A*< >"N"AND A*<>"I"THEN 3030 

< 174> 

5070 

OPEN 15,8,15 : REM FEHLERKANAL 


<121 > 

3040 

IF A*="N"THEN POKE 820,0 :REM BASKE 

<218> 

5080 

INPUT # 15 , EN , ER* , A , A 


< 158> 

3050 

IF A*="I"THEN POKE 820,255 

< 120> 

5090 

PRINT"<DOWN>"EN,ER* 


<10B> 

3060 

PRINT:PRINT:PRINT" FERTIG 7 " 

<047> 

5100 

CLOSE 15 


< 112> 

3070 

GET A*:IF A*=""THEN 3070 

< 136> 

5110 

GET A*:IF A*=""THEN 5110 


<013> 

3080 

POKE 821,255 : REM AUFRUF MC-PRG 

<106> 

5120 

GOTO 1000: REM MENUE 


< 1B2> 

3090 

SYS 49161 

<035> 

5130 

t 


<026> 

3100 

PRINT"<CLR,DOWN,SPACE >£ERTIG" 

<212> 

5140 

s 


<036> 

3110 

PRINT:PRINT“ HOLLEN SIE DIE HERTE AUS 


6000 



<003> 


DRUCKEN LASSEN" 

<003> 

6005 

PRINT"<CLR,2D0WN,SPACE>X ADEN" 


< 145> 

3120 

GET A*:IF A*<>"J"AND A« >"N"THEN 3120 

<025> 

6010 

PRINT:PRINT:INPUT » HAME ";NA* 


< 192> 

3130 

IF A*="N"THEN 1000 : REM MENUE 

<243> 

6015 

REM NAME UEBERGEBEN 


<033> 

3140 

OPEN 4,4,7 :REM WERTE DRUCKEN 

<235> 

6020 

IF LEN(NA*)>16 THEN NA*=LEFT*(NA* 

,16) 

<105> 

3150 

FÜR 1=1 TO 3:PRINT#4:NEXT 

<253> 

6030 

FOR 1=1 TO LEN(NA*) 


<227> 

3160 

PRINT#4,".LINKER SAND{2SPACE>: “;LI; 

< 172> 

6040 

POKE B2B+I—1,ASC(MID*(NA*,I,1)) 


< 165> 

3170 

PRINT#4,CHR*<16)"40"; 

< 159> 

6050 

NEXT 


<218> 

3175 

PRINT#4,"SECHTER HAND : ";RE 

<008> 

6055 

POKE 822,LEN(NA*) 


< 197> 

3178 

PRINT#4,CHR*(13) 

< 102> 

6060 

SYS 49158 : REM AUFRUF MC-PRG 


<091 > 

3180 

PRINT#4,“HNTERER SAND : ";UN; 

< 117> 

6070 

OPEN 15,8,15 :REM FEHLERKANAL 


< 105> 

3185 

PRINT44,CHR*(16)"40"j 

< 174> 

6080 

INPUT#15,EN,ER*,A,A 


< 142> 

3190 

PRINT#4,"flBERER SAND<2SPACEJ: ";OB 

<077> 

6090 

PRINT"{DOWN >"EN,ER* 


<092> 

3200 

PRINT#4,CHR*(13) 

<124> 

6100 

CLOSE 15 


<096 > 

3210 

PRINT#4,"XIEFE : PEEK(52999) 

< 134> 

6110 

GET A*:IF A*=""THEN 6110 


<029> 

3220 

CLOSE 4 

<207> 

6115 

REM WERTE AUSGEBEN 


<228> 

3230 

GOTO 1000 :REM MENUE 

<06B> 

6120 

PRINT"<DOWN>SECHTER SAND : ";RE 


<219> 

3240 

: 

< 16B> 

6130 

PRINT" CDOWNJA.INKER SAND{2SPACE>: 

“ i LI 

< 140> 

3250 

: 

< 178> 

6140 

PRINT"<D0WN>3BERER SAND{2SPACE>: 

"; OB 

< 138> 

5000 

REM ******** SPEICHERN ********* 

<079> 

6150 

PRINT"<DOWN>HNTERER SAND : ";UN 


< 199> 

5005 

PRINT"<CLR,2D0WN,SPACE>ä P E I C H E 


6160 

PRINT " {DOWN>11EFE{8SPACE >: ": PEEK ( 529 



R N" 

<212> 


99) 


< 177> 

5010 

PRINT:PRINT:INPUT " HAME “}NA* 

<208> 

6170 

GET A*:IF A*="“THEN 6170 


<094> 

5015 

REM NAME UEBERGEBEN 

<049> 

6180 

GOTO 1000:REM MENUE 


<226> 

5020 

IF LEN(NA*)>16 THEN NA*=LEFT*(NA*.16) 

< 121 > 

6190 

REM ENDE 


< 131 > 

5030 

FOR 1=1 TO LEN(NA*) 

<243> 





5040 

POKE 828+1-1,ASC(MID*(NA*,1,1)) 

< 181 > 





5050 

NEXT 

<234> 

© G4'er Listing 1. »APFEL/BAS« (Schluß) 


Programm 

apfel/ob j 


C000 c465 

cl7B 


b8 

a5 

61 

6a 

c9 

4c 

84 

cd 

90 

cl 

07 

ad 

d9 

c308 

: 

00 

20 

aS 

ff 

9d 

00 

cf 

eB 

6c 












c 180 


06 

cf 

a9 

80 

24 

c310 

8 

d0 

f 7 

20 

CC 

ff 

a9 

08 

20 

2b 












cl88 


a0 

cf 

20 

a 2 

bb 

a9 

70 

a0 

78 

c31B 

8 

c3 

ff 

a9 

b0 

a0 

cf 

20 

a2 

a9 

C000 


4c 

0 c 

C0 

4c 

5a 

c2 

4c 

bf 

78 

cl90 


cf 

20 

28 

ba 

a5 

61 

f0 

02 

fe 

c320 

- 

bb 

a9 

4c 

a 0 

49 

2B 

52 

c3 

3d 

C008 


c 2 

4c 

5d 

c3 

20 

12 

C0 

4c 

ee 

cl9B 


e6 

61 

a9 

60 

30 

cf 

20 

50 

4f 

c32B 

8 

a9 

30 

a 0 

cf 

20 

a2 

bb 

a9 

9d 

C010 


b8 

C0 

20 

fd 

ae 

20 

Ba 

ad 

62 

cla0 


bB 

20 

b4 

bf 

a2 

80 

a0 

cf 

de 

c330 

s 

52 

a0 

45 

20 

52 

c3 

a9 

dB 

b3 

C01B 

s 

a 2 

b0 

a0 

cf 

20 

d4 

bb 

20 

0c 

claB 


20 

d4 

bb 

30 

00 

a9 

f 7 

20 

a3 

C33B 


a0 

cf 

20 

a2 

bb 

a9 

4f 

30 

34 

c020 


f d 

ae 

20 

Ba 

ad 

a 2 

a 0 

a 0 

Bl 

clb0 

8 

«2 

bb 

30 

00 

a9 

57 

20 

50 

ce 

c340 

- 

42 

20 

52 

c3 

a9 

C0 

30 

cf 

62 

C028 

: 

cf 

20 

d4 

bb 

20 

fd 

ae 

20 

al 

clb8 

8 

b8 

a9 

40 

a0 

cf 

20 

50 

b8 

la 

C348 

: 

20 

a2 

bb 

a9 

55 

30 

4e 

4c 

0a 

C030 


8a 

ad 

a2 

d0 

a 0 

Cf 

20 

d4 

06 

C 1 C0 


20 

b4 

bf 

a2 

70 

a0 

cf 

20 

0 a 

c350 

3 

52 

c3 

B5 

45 

84 

46 

20 

e7 

59 

C038 

s 

bb 

20 

fd 

ae 

20 

Ba 

ad 

a2 

ab 

clcB 

8 

d4 

bb 

4c 

39 

cl 

ad 

03 

cf 

e9 

c358 

8 

b0 

aa 

4c 

d4 

bb 

20 

4f 

C0 

86 

C040 

: 

C0 

a0 

cf 

20 

d4 

bb 

a9 

00 

la 

cld 0 

3 

2 a 

Bd 

03 

cf 

ee 

20 

d0 

a9 

02 

c360 

8 

a9 

32 

Bd 

00 

cf 

39 

00 

85 

db 

C048 

8 

85 

b5 

a9 

20 

85 

b6 

60 

a9 

f 9 

cldB 


40 

a 0 

cf 

20 

a 2 

bb 

a9 

90 

30 

C368 

3 

57 

a9 

20 

B5 

5B 

a9 

00 

85 

2a 

C0S0 


0f 

a2 

04 

aB 

05 

20 

ba 

ff 

02 

cle0 


a0 

cf 

20 

67 

b8 

a2 

40 

30 

40 

c370 

3 

59 

a9 

c5 

B5 

5a 

dB 

00 

bl 

ce 

C05B 

8 

a9 

00 

20 

bd 

ff 

20 

C0 

ff 

c5 

cleB 

8 

cf 

20 

d4 

bb 

ce 

05 

cf 

f0 

aa 

c37B 

3 

57 

91 

59 

mb 

57 

dB 

02 

e6 

9d 

C060 


a9 

0a 

a 2 

04 

a0 

00 

20 

ba 

37 

Clf0 

8 

03 

4c 

29 

cl 

a9 

0B 

Bd 

05 

b7 

c3B0 

8 

SB 

e6 

59 

d0 

02 

p6 

5a 

aS 

CB 

C06B 

8 

ff 

a9 

00 

20 

bd 

ff 

20 

C0 

le 

elf 8 

8 

cf 

20 

4c 

c2 

ee 

04 

cf 

ad 

ec 

c3BB 

8 

5a 

c9 

c7 

d0 

ea 

a5 

59 

c9 

a7 

C070 

8 

ff 

a9 

la 

a2 

04 

a0 

06 

20 

bc 

C200 

8 

04 

cf 

c9 

50 

f0 

03 

4c 

24 

09 

c390 

8 

80 

dB 

•4 

20 

al 

c3 

CB 

00 

29 

C07B 

8 

ba 

ff 

a9 

00 

20 

bd 

ff 

20 

cc 

c208 


cl 

a9 

00 

Bd 

04 

cf 

30 

05 

9b 

c39B 

2 

cf 

d0 

d2 

20 

cc 

ff 

4c 

96 

b3 

C0B0 

8 

C0 

ff 

a2 

la 

20 

c9 

ff 

a9 

cf 

C210 

8 

b9 

b0 

cf 

99 

40 

cf 

BB 

10 

0d 

c3a0 

3 

C0 

a9 

00 

8d 

08 

cf 

a9 

c5 

18 

C0B8 

8 

15 

20 

aB 

ff 

a2 

0a 

20 

c9 

66 

c21B 

8 

f 7 

ee 

00 

cf 

d0 

03 

ee 

01 

63 

c3a8 

1 

8d 

09 

cf 

a9 

0B 

Bd 

02 

cf 

77 

C090 

8 

ff 

a9 

0d 

4c 

aB 

ff 

a9 

0f 

B0 

c 220 

8 

cf 

ad 

01 

cf 

c9 

01 

90 

0a 

fb 

c3b0 

3 

a9 

00 

Bd 

0 e 

cf 

a9 

50 

Bd 

25 

C098 

8 

20 

c3 

ff 

a9 

0a 

20 

c3 

ff 

80 

c228 

8 

ad 

00 

cf 

c9 

90 

90 

03 

4c 

35 

c3bB 

8 

0a 

cf 

a2 

0B 

30 

00 

ad 

08 

24 

C0a0 

8 

a9 

la 

4c 

c3 

ff 

85 

63 

86 

a9 

c230 

8 

4a 

c 2 

a9 

30 

30 

cf 

20 

a2 

9a 

c3c0 

8 

cf 

85 

aB 

ad 

09 

cf 

BB 

a9 

aa 

C0a8 

3 

62 

a2 

90 

3B 

4c 

49 

bc 

a5 

d4 

c23B 

8 

bb 

a9 

60 

30 

cf 

20 

50 

bB 

a5 

c3cB 

: 

bl 

a8 

9d 

3c 

03 

18 

a5 

aB 

95 

c 0 b 0 

8 

6e 

45 

66 

85 

6f 

a5 

61 

60 

75 

c240 

8 

a2 

60 

a0 

Cf 

20 

d4 

bb 

4c 

65 

c3d0 

: 

69 

50 

B5 

aB 

90 

02 

e6 

a9 

e0 

C0b8 

8 

7B 

a9 

b0 

a0 

cf 

20 

a2 

bb 

45 

c24B 

3 

24 

cl 

58 

60 

30 

00 

ad 

03 

36 

c3dB 

8 

ca 

d0 

ed 

a9 

B0 

30 

08 

a 2 

2d 

C0C0 

8 

a9 

a 0 

a 0 

cf 

20 

50 

bB 

20 

B3 

c250 

8 

cf 

91 

b5 

e6 

b5 

d0 

02 

e6 

ea 

c3e0 

8 

08 

Bd 

0b 

cf 

3d 

3c 

03 

18 

5e 

c 0 cB 

: 

0c 

bc 

a9 

80 

a2 

02 

20 

a5 

b3 

c25B 

8 

b6 

60 

a9 

0B 

a 2 

08 

30 

01 

99 

c3bB 

8 

f0 

01 

38 

2* 

0C 

cf 

ad 

0b 

39 

c0d0 

8 

C0 

20 

af 

C0 

20 

12 

bb 

a 2 

6b 

c260 

3 

20 

ba 

ff 

ad 

36 

03 

a2 

3c 

11 

c3f 0 

: 

cf 

ca 

dB 

f0 

ad 

0C 

cf 

4d 

Bc 

c0d8 

8 

90 

a 0 

cf 

20 

d4 

bb 

a9 

d0 

24 

c26B 

3 

30 

03 

20 

bd 

ff 

20 

C0 

ff 

4e 

c3f B 

3 

34 

03 

99 

al 

02 

BB 

ad 

0b 

7a 

C0e0 

8 

a0 

cf 

20 

a 2 

bb 

a9 

C0 

30 

11 

c270 

8 

a2 

0B 

20 

c9 

ff 

a9 

00 

20 

e5 

c400 

8 

cf 

4a 

Bd 

0b 

cf 

90 

d8 

a 2 

e3 

c0eB 

8 

cf 

20 

50 

bB 

20 

0c 

bc 

a9 

9b 

c27B 

8 

aB 

ff 

a5 

90 

30 

39 

a9 

20 

4f 

c40B 

3 

08 

bd 

al 

02 

c9 

00 

dB 

09 

B9 

C0f0 

8 

90 

a 2 

01 

20 

a5 

C0 

20 

af 

56 

c2B0 

8 

20 

a8 

ff 

a5 

90 

30 

30 

a9 

47 

c410 

8 

ca 

d0 

f 6 

ee 

0e 

cf 

4c 

4e 

0b 

C0f 8 

8 

C0 

20 

12 

bb 

a2 

30 

a0 

cf 

92 

c208 

3 

00 

B5 

b5 

a9 

20 

B5 

b6 

30 

38 

c41B 

8 

c4 

a 2 

0f 

20 

c9 

ff 

a 2 

08 

2c 

C100 

8 

20 

d4 

bb 

a0 

04 

b9 

b0 

cf 

fe 

c290 

3 

00 

bl 

b5 

20 

aB 

ff 

a5 

90 

lc 

c420 

: 

bd 

al 

02 

20 

aB 

ff 

ca 

dB 

Ba 

cl0B 

8 

99 

40 

cf 

b9 

C0 

cf 

99 

60 

9b 

c29B 

3 

30 

ld 

e6 

b5 

d0 

02 

b6 

b6 

ed 

C42B 

8 

f 7 

a9 

0d 

20 

a8 

ff 

a2 

0a 

64 

Cll0 

: 

cf 

BB 

10 

fl 

a9 

00 

Bd 

00 

36 

c 2 a 0 

3 

a5 

b6 

c9 

9d 

dB 

eb 

a5 

b5 

35 

c430 

8 

20 

c9 

ff 

ee 

0e 

cf 

ae 

0e 

49 

ciia 

8 

cf 

Bd 

01 

cf 

Bd 

04 

cf 

a9 

74 

c 2 a 8 

8 

c9 

01 

d0 

e5 

a2 

00 

bd 

00 

04 

c43B 

8 

cf 

a9 

20 

ca 

fo 

06 

20 

aB 

4e 

c 120 

8 

08 

8d 

05 

cf 

a9 

00 

8d 

03 

01 

c2b0 

8 

cf 

20 

aB 

ff 

e8 

d0 

f 7 

a9 

02 

C440 

3 

ff 

4c 

3b 

c4 

a9 

fe 

20 

a8 

31 

cl 2 B 

8 

cf 

a9 

00 

Bd 

06 

cf 

a0 

04 

e7 

c2bB 

3 

08 

20 

c3 

ff 

4c 

cc 

ff 

a9 

40 

C44B 

8 

ff 

a9 

Bd 

20 

aS 

ff 

ee 

08 

da 

c 130 

3 

99 

70 

cf 

99 

80 

cf 

BB 

10 

fi 

c2c0 

8 

08 

a 2 

08 

30 

00 

20 

ba 

ff 

1b 

c450 

3 

cf 

d0 

03 

ee 

09 

cf 

ce 

0a 

84 

c 138 

8 

f 7 

ee 

06 

cf 

ad 

07 

cf 

cd 

10 

c2cB 

3 

ad 

36 

03 

a 2 

3c 

30 

03 

20 

bb 

c45B 

8 

cf 

f0 

03 

4c 

ba 

c3 

a9 

0d 

74 

c 140 


06 

cf 

b0 

04 

18 

4c 

cd 

cl 

79 

c2d0 

8 

bd 

ff 

20 

C0 

ff 

•2 

0S 

20 

22 

c460 

3 

20 

38 

ff 

60 

03 

ff 

88 

ff 

33 

C148 

3 

a9 

70 

a0 

cf 

20 

a2 

bb 

a9 

a5 

c2d8 

8 

c6 

ff 

20 

a5 

ff 

a5 

90 

4a 

5f 












C150 


70 

a0 

cf 

20 

2B 

ba 

a 2 

57 

9a 

c 2 e 0 


4a 

b0 

2f 

20 

a5 

ff 

a9 

00 

53 












c 158 

8 

a0 

00 

20 

d4 

bb 

a9 

80 

30 

e7 

c 2 e 8 

: 

85 

b5 

a9 

20 

B5 

b6 

80 

00 

47 












C160 

C16B 


cf 

20 

20 

28 

a2 

ba 

bb 

a2 

a9 

f 7 

80 

a0 

a 0 

00 

cf 

20 

20 

64 

c 2 f 0 

c2fB 


20 

02 

a5 

e6 

ff 

b6 

91 

a5 

b5 

b6 

e6 

c9 

b5 

9d 

d0 

dB 

20 

al 

Listing 

2. »APFEL/OBJ« geben 


c!70 


d4 

bb 

a9 

57 

30 

00 

20 

67 

d0 

c300 

8 

ef 

a5 

b5 

c9 

01 

dB 

e9 

a 2 

ec 


Sie bitte mit dem MSE ein 





SONDERHEFT 6/86 


159 


















HARDCOPY 


C 64 


0 REM ********************************* 

490 x KONSTANTEN 

1 REM * 

APFELPRINTER * 

500 SPALTEN 

= 640 ;ANZAHL SPALTEN 

2 REM * 

WRITTEN 1985 , * 

510 ZEILEN 

= 400 ;ANZAHL ZEILEN 

3 REM * FÜR 

C64 + VC 

1541 + MPS 802 * 

520 PUFFER 

= *033C ;SPEICHER 8 BYTES 

4 REM * 

BY PETER 

SIEPEN * 

530 SPEICHER 

= *C500 jSPEICHER FUER 

5 REM * 


* 

532 PUFFER1 

= *02A1 

6 REM * 

RECHENROUTINEN VON * 

535 : 

SEINE DRUCKZEILE 

7 REM * 

GERHARD 

PEHLAND * 

690 ; 


8 REM * (AUS 64'ER 11.85 SEITE 80) * 

800 x 

JMP START 

9 REM ********************************* 

810 : 

JMP SAVE 

10 0PEN4,4 



820 s 

JMP LOAD 

11 SYS9*4096 



830 : 

JMP PRINT 

20 .OPT P4 



890 ; 


30 *= *C000 



895 j 


90 ; 



900 START 

JSR HOLWERTE 

92 ; *********** QUELLCODE ************ 

910 : 

JMP APFEL 

95 ; 



990 ; 


98 j SYSTEMADRESSEN 


995 ; 


100 FAC 

= 97 


1000 HOLWERTE 

JSR CHKCOM ;LIEST WERTE 

110 ARS 

= 105 


1010 : 

JSR FRMNUM ;AUS SYS 

120 CHRGUT 

= *FFD2 


1020 : 

LDX #<XMIN 

130 DIV 

= *BB12 

;FAC=FAC/ARG 

1030 : 

LDY #>XMIN 

140 SUB 

= *B853 

;FAC=FAC-ARG 

1040 : 

JSR FACNKON 

160 FACNARG 

= *BC0C 

;ARG = FAC 

1050 : 

JSR CHKCOM 

170 ZEIGSUB 

= *BB50 

;FAC=(A/Y>-FAC 

1060 : 

JSR FRMNUM 

180 ZEIGADD 

= *BB67 

;FAC=(A/Y)+FAC 

1070 : 

LDX #<XMAX 

190 ZEIGMULT 

= *BA28 

;FAC=(A/Y)*FAC 

1080 : 

LDY #>XMAX 

200 KONNARG 

= *BABC 

;ARG=(A/Y) 

1090 : 

JSR FACNKON 

210 KONNFAC 

= *BBA2 

;FAC=(A/Y) 

1100 : 

JSR CHKCOM 

220 FACNKON 

= *BBD4 

;(X/Y)=FAC 

1110 : 

JSR FRMNUM 

230 CHSIGN 

= *BFB4 

;FAC=-FAC 

1120 x 

LDX #<YMIN 

240 FILEPAR 

= *FFBA 

;FILEPARAMETER 

1130 : 

LDY #>YMIN 

250 FILENAM 

= *FFBD 

;FILENAME SETZEN 

1140 : 

JSR FACNKON 

252 FRMNUM 

= *ADBA 

5 AUSDRUCK AUSWERTEN 

1150 : 

JSR CHKCOM 

254 CHKCOM 

= *AEFD 

;TEST AUF 

1160 : 

JSR FRMNUM 

256 IECOUT 

= *FFA8 

S46B 

117L 

LDX #<YMAX 

257 IECIN 

= *FFA5 


1180 : 

LDY #>"YMAX 

258 SUCHVAR 

= *B0E7 

;SUCHT VARNAM 

1190 : 

JSR FACNKON 

260 ; 



1240 : 

LDA #<*2000 jUND SETZT 

265 ; VARIABLEN 


1250 : 

STA SPZEIG ;ZEIGER 

270 ZEIG1 

= *57 

;UNIVERSAL 

1260 : 

LDA #>*2000 

275 ZEIG2 

= *59 

;ZEIGER 

1270 : 

STA SPZEIG+1 

280 ZEIGER 

= *AB 

;ZEIGER BEI DRUCK 

1280 : 

RTS 

295 SPZEIG 

= *B5 

!ZEIGER *2000 

1290 j 


300 ZEILE 

= *CF00 

;AKT.ZEILE 

1295 ; 


305 SPALTE 

= *CF04 

;AKT.SPALTE 

2000 OPENFLS 

LDA #15 jOEFFNET FILES 

310 ZEILZAHL 

= *CF02 

iZEILENZAEHLER 

2010 : 

LDX #04 

315 BYTE 

= *CF03 

jENTHAELT 8 PKT 

2020 : 

LDY #05 

320 POS 

= *CF05 

;ZAEHLER 8 PKTE 

2030 : 

JSR *FFBA 

325 TIEFE 

= *CF06 

;AKT. TIEFE 

2040 : 

LDA #*00 

330 TIEFEMAX 

= *CF07 

;MAXIMALE TIEFE 

2050 : 

JSR *FFBD 

335 ZEIGSP 

= *CF08 

5 ZWISCHENSPEICHER 

2060 : 

JSR *FFC0 

337 ; 


;FUER ZEIGER 

2070 : 

LDA #10 

340 SPALTZAHL 

= *CF0A 

;BEI DRUCK 

2080 : 

LDX #04 

345 ZS 

= *CF0B 

;UNIVERSAL- 

2090 x 

LDY #00 

350 ZS2 

= *CF0C 

;SPEICHER 

2100 : 

JSR *FFBA 

355 SPACES 

= *CF0E 

;ZAEHLER BEI 

2110 s 

LDA #*00 

357 ; 


5 DRUCK 

2120 : 

JSR *FFBD 

360 MASKE 

= *0334 

jENTHAELT MASKE 

2130 : 

JSR *FFC0 

362 : 


j BEI DRUCK 

2180 x 

LDA #26 

365 NAMLEN 

= *0336 

jLAENGE FILENAM 

2190 : 

LDX #04 

370 DX 

= *CF90 

;RECHENVARIABLEN 

2200 x 

LDY #06 

375 DY 

= *CF30 


2210 x 

JSR *FFBA 

380 CX 

= *CF40 


2220 : 

LDA #*00 

385 CY 

= *CF60 


2230 : 

JSR *FFBD 

390 XQUAD 

= 87 


2240 : 

JSR *FFC0 

395 YQUAD 

= 247 


2250 : 

LDX #26 ;UND BEREITET 

400 XWERT 

= *CF70 


2260 : 

JSR *FFC9 ;DRUCKER VOR 

405 YWERT 

= *CF80 


2270 x 

LDA #21 

410 XMAX 

= *CFA0 


2280 x 

JSR IECOUT 

415 XMIN 

= *CFB0 


2290 x 

LDX #10 

420 YMAX 

= *CFC0 


2295 x 

JSR *FFC9 

425 YMIN 

= *CFD0 


2300 x 

LDA #*0D 
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2385 s 

JMP IECOUT 

4510 : 

DEY 

2318 5 


4520 : 

BPL L15 

2328 ; 


4525 ITER1 

INC TIEFE 

3888 CLOSEFLS 

LDA #15 

4530 : 

LDA TIEFEMAX 

3818 : 

JSR *FFC3 

4548 s 

CMP TIEFE ;"MAX. TIEFE ? 

3828 : 

LDA #10 

4550 : 

BCS ITER4 

3838 : 

JSR *FFC3 

4560 : 

CLC ;PUNKT CLEAR 

3848 : 

LDA #26 

4570 : 

JMP PLOT 

3858 : 

JMP *FFC3 

4580 ITER4 

LDA #<XWERT ;XWERTT2 

3868 ; 


4590 s 

LDY #>XWERT ;IN XQUAD 

3588 INTTOFAC 

STA »63 ;PDS. INT-ZAHL 

4600 s 

JSR KONNFAC 

3518 : 

STX *62 ;IN A/X IN FAC 

4610 t 

LDA #<XWERT 

3528 : 

LDX #*90 

4620 : 

LDY #>XWERT 

3538 : 

SEC 

4630 : 

JSR ZEIGMULT 

3548 : 

JMP *BC49 

4640 : 

LDX #XQUAD 

3598 ; 


4650 s 

LDY #0 

3788 FACSARG 

LDA ARG+5 ;VORZEICHEN- 

4660 : 

JSR FACNKON 

3718 : 

EOR FAC+5 ;WECHSEL 

4670 : 

LDA #<YWERT ;YWERTT2 

3728 : 

STA ARG +6 ;FAC + ARG 

4680 : 

LDY #>YWERT ;IN YQUAD 

3738 : 

LDA FAC 

4690 : 

JSR KONNFAC 

3748 : 

RTS 

4700 : 

LDA #<YWERT 

3758 ; 


4710 : 

LDY #>YWERT 

4888 APFEL 

SEI ;RECHENROUT. 

4720 s 

JSR ZEIGMULT 

4818 : 

LDA #<XMIN ;DX BERECHNEN 

4730 : 

LDX #YQUAD 

4828 : 

LDY #>XMIN 

4740 : 

LDY #0 ;XQUAD + YQUAD 

4838 : 

JSR KONNFAC 

4750 : 

JSR FACNKON 

4848 : 

LDA #<XMAX 

4760 : 

LDA #XQUAD 

4858 : 

LDY #>XMAX 

4770 : 

LDY #0 

4868 : 

JSR ZEIGSUB 

4780 : 

JSR ZEIGADD 

4878 : 

JSR FACNARG 

4790 : 

LDA FAC 

4880 : 

LDA #<SPALTEN 

4800 : 

CMP #*84 ;"SUMME > 8 ? 

4090 : 

LDX #>SPALTEN 

4810 : 

BCC ITER3 

4100 : 

JSR INTTOFAC 

4820 : 

LDA TIEFE 

4110 : 

JSR FACSARG 

4830 : 

ROR ;CARRY SETZEN 

4120 : 

JSR DIV 

4840 : 

JMP PLOT 

4130 : 

LDX #<DX 

50 ITER3 

LDA #<YWERT ;YWERT = 

4140 : 

LDY #>DX 

4860 : 

LDY # >YWERT ;XWERT»YWERT 

4150 : 

JSR FACNKON 

4870 : 

JSR KONNFAC ;*2-CY 

4160 : 

LDA #<YMIN ;DY BERECHNEN 

4880 : 

LDA #<XWERT 

4170 : 

LDY #>YMIN 

4890 s 

LDY #>XWERT 

4188 : 

JSR KONNFAC 

4900 : 

JSR ZEIGMULT 

4190 : 

LDA #<YMAX 

4910 : 

LDA FAC 

4280 : 

LDY #>YMAX 

4920 : 

BEQ ITER2 

4218 : 

JSR ZEIGSUB 

4930 : 

INC FAC 

4220 : 

JSR FACNARG 

4940 ITER2 

LDA #<CY 

4230 : 

LDA #<ZEILEN 

4950 : 

LDY #>CY 

4240 : 

LDX #>ZEILEN 

4960 : 

JSR ZEIGSUB 

4250 s 

JSR INTTOFAC 

4970 : 

JSR CHSIGN 

4260 : 

JSR FACSARG 

4980 : 

LDX #<YWERT 

4270 : 

JSR DIV 

4990 s 

LDY #>YWERT 

4280 : 

LDX #<DY 

5000 : 

JSR FACNKON 

4290 : 

LDY #>DY 

5010 : 

LDY #0 ;XWERT = 

4300 : 

JSR FACNKON 

5020 : 

LDA #YQUAD ;XQUAD-YQUAD 

4310 : 

LDY #4 ;CX=XMIN 

5030 : 

JSR KONNFAC ;-CX 

4320 L13 

LDA XMIN,Y ;CY=YMAX 

5040 : 

LDY #0 

4330 : 

STA CX,Y 

5050 : 

LDA #XQUAD 

4340 : 

LDA YMAX,Y 

5060 : 

JSR ZEIGSUB 

4350 : 

STA CY,Y 

5070 : 

LDA #<CX 

4360 : 

DEY 

5080 : 

LDY #>CX 

4370 : 

BPL L13 

5090 s 

JSR ZEIGSUB 

4380 : 

LDA #0 

5100 : 

JSR CHSIGN 

4390 : 

STA ZEILE 

5110 : 

LDX #<XWERT 

4400 : 

STA ZEILE+1 

5120 s 

LDY #>XWERT 

4410 : 

STA SPALTE 

5130 s 

JSR FACNKON 

4430 : 

LDA #*08 

5140 : 

JMP ITER1 

4433 : 

STA POS 

5200 PLOT 

LDA BYTE ;SETZE BIT MIT 

4440 ITERAT 

LDA #0 

5210 : 

ROL ;CARRY 

4450 : 

STA BYTE 

5220 : 

STA BYTE 

4460 ITERAT1 

LDA #0 

5225 : 

INC 53280 ;FARBE 

4470 : 

STA TIEFE 



4480 : 

LDY #4 



4490 LI5 

STA XWERT,Y 

Listing 3. 

»APFEL/SRC«, der Quell-Code 

4508 : 

STA YWERT,Y 

für eventuelle Veränderungen 
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5230 : LDA 

5240 : LDY 

5250 : JSR 

5260 s LDA 

5270 s LDY 

52B0 : JSR 

5290 : LDX 

5300 : LDY 

5310 : JSR 

5320 : DEC 

5330 : BEQ 

5340 : JMP 

5350 APFEL1 LDA 

5360 : STA 

5370 : JSR 

5380 s INC 

5390 : LDA 

5400 : CMP 

5410 t BEQ 

5420 : JMP 

5430 APFEL2 LDA 

5440 : STA 

5450 : LDY 

5460 L30 LDA 

5470 s STA 

5480 : DEY 

5490 : BPL 

5500 : INC 

5510 : BNE 

5520 : INC 

5530 W1 LDA 

5540 : CMP 

5550 s BCC 

5560 : LDA 

5570 : CMP 

5580 : BCC 

5590 : JMP 

5600 W2 LDA 

5610 : LDY 

5620 : JSR 

5630 : LDA 

5640 : LDY 

5650 : JSR 

5660 s LDX 

5670 : LDY 

5680 s JSR 

5690 s JMP 

5700 ENDAPFEL CLI 
5710 : RTS 

5990 ; 

5995 ; 

6000 SETBYTE 
6005 : 

6015 ; 

6050 : 

6060 : 

6070 s 
6080 SPW1 
6090 ; 

10000 SAVE LDA #8 

10010 : LDX #08 

10020 : LDY #1 

10030 : JSR *FFBA 

10040 : LDA NAMLEN 

10050 : LDX #<*033C 

10060 s LDY #>*033C 

10070 s JSR *FFBD 

10080 s JSR *FFC0 

10090 : LDX #8 

10100 : JSR *FFC9 

10110 : LDA #<*2000 

10112 : JSR IECDUT 

10114 : LDA *90 

10115 : BMI SAVEENDE 


#<CX ;CX=CX+DX 
#>CX 
KONNFAC 
#<DX 
#>DX 
ZEIGADD 
#<CX 
#>CX 
FACNKGN 
POS 
APFEL1 
ITERAT1 
#08 
POS 

SETBYTE 
SPALTE 
SPALTE 
#80 ;DRUCKER 
APFEL2 
ITERAT 
#0 

SPALTE 

#5 ;CX=XMIN 

XMIN,Y 

CX,Y 

L30 

ZEILE 

W1 

ZEILE+1 

ZEILE+1 

#>ZEILEN 

W2 

ZEILE 
#<ZEILEN 
W2 

ENDAPFEL 

#<DY ;CY=CY—DY 

#>DY 

KONNFAC 

#<CY 

#>CY 

ZEIGSUB 

#<CY 

#>CY 

FACNKON 

ITERAT 


LDY #*00 ;BYTE SPEICHERN 

LDA BYTE 

STA (SPZEIG),Y 

INC SPZEIG 

BNE SPW1 

INC SPZEIG+1 

RTS 


10116 

10117 

10118 

10119 

10120 
10125 
10130 
10140 
10150 
10160 
10170 
10174 
10178 
10180 
10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
11000 
11010 
11020 
11030 

H0OV, 

11050 

11060 

11070 

11080 

11090 

11100 

11101 

11102 

11103 

11104 

11105 

11106 
11110 
11120 
11130 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 


SAVELOOP 


l 

l 

s 

SAVEW1 

: 

: 

3 

s 

3 

3 

SAVEL1 

3 


SAVEENDE 

3 

3 


LOAD 

3 


3 

3 

LOADLOOP 

3 

3 

3 

LOADW1 

3 

3 

3 


LOADL1 

3 


LOADENDE 


LDA #>*2000 

JSR IECOUT 

LDA *90 

BMI SAVEENDE 

LDA #<*2000 ;*2000— 

STA SPZEIG 

LDA #>*2000 

STA SPZEIG+1 

LDY #*00 

LDA (SPZEIG),Y 

JSR IECOUT 

LDA *90 

BMI SAVEENDE 

INC SPZEIG 

BNE SAVEW1 

INC SPZEIG+1 ;-40192 

LDA SPZEIG+1 

CMP #>32001+*2000 

BNE SAVELOOP 

LDA SPZEIG 

CMP #<32001+*2000 

BNE SAVELOOP 

LDX #*00 ; VARIABLEN 

LDA *CF00,X 

JSR IECOUT 

INX 

BNE SAVEL1 
LDA #08 
JSR *FFC3 
JMP *FFCC 

LDA #8 
LDX #08 
LDY #0 
JSR *FFBA 
LDA NAMLEN 
LDX #<*033C 
LDY #>*033C 
JSR *FFBD 
JSR *FFC0 
LDX #8 
JSR *FFC 6 
JSR IECIN 
LDA *90 
LSR 
LSR 

BCS LOADENDE 
JSR IECIN 

LDA #<*2000 ;*2000 

STA SPZEIG 

LDA #>*2000 

STA SPZEIG+1 

LDY #*00 

JSR IECIN 

STA (SPZEIG),Y 

INC SPZEIG 

BNE LOADW1 

INC SPZEIG+1 

LDA SPZEIG+1 j-40192 

CMP # >(32001+*2000) 

BNE LOADLOOP 

LDA SPZEIG 

CMP #<(32001+*2000) 

BNE LOADLODP 
LDX #*00 

JSR IECIN ;VARIABLEN 

STA *CF00,X 

INX 

BNE LOADL1 
JSR *FFCC 
LDA #08 
JSR *FFC3 

LDA #<XMIN ;WERTE IN 
LDY #>XMIN ;BASIC— 
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11370 : 

JSR KONNFAC ;VARIABLEN 

13150 : 

STA ZEIGER 


11380 i 

LDA #"L" ;SCHREIBEN 

13160 : 

LDA ZEIGSP+1 


11390 s 

LDY #"I“ 

13170 s 

STA ZEIGER+1 


11400 i 

JSR FACVAR 

13180 OUTLOOP2 

LDA (ZEIGER), 

Y ;8 BYTES 

11430 i 

LDA #<XMAX 

13190 i 

STA PUFFER,X 

;EINES 

11440 : 

LDY #>XMAX 

13200 s 

CLC 

;ZEICHENS 

11450 i 

JSR KONNFAC 

13210 : 

LDA ZEIGER 

jIN PUFFER 

11460 i 

LDA #"R" 

13220 : 

ADC #80 


11470 : 

LDY #"E" 

13230 : 

STA ZEIGER 


11480 : 

JSR FACVAR 

13240 s 

BCC W4 


11490 : 

LDA #<YMIN 

13250 : 

INC ZEIGER+1 


11500 : 

LDY #>YMIN 

13260 W4 

DEX 


11510 : 

JSR KONNFAC 

13270 s 

BNE 0UTL00P2 


11520 s 

LDA #"0" 

13300 i 

LDA #*80 


11530 : 

LDY #"B" 

13305 : 

LDY #8 


11540 c 

JSR FACVAR 

13310 LOOP2 

LDX #08 


11550 : 

LDA #<YMAX 

13320 : 

STA ZS 


11560 : 

LDY #>YMAX 

13330 LOOP1 

AND PUFFER,X 

;8 BYTES 

11570 s 

JSR KONNFAC 

13340 s 

CLC 

;WERDEN 

11580 : 

LDA #"U" 

13350 : 

BEQ W5 

;VON HORIZ. 

11590 s 

LDY #"N" 

13360 : 

SEC 

; NACH 

11600 : 

JMP FACVAR 

13370 W5 

ROL ZS2 

;VERTIKAL 

11610 : 


13380 : 

LDA ZS 

; ORIENTIERT 

11620 FACVAR 

STA *45 ; SCHREIBT 

13390 : 

DEX 


1.1630 : 

STY *46 ; FAC IN VAR 

13400 : 

BNE LODP1 


11640 : 

JSR SUCHVAR ;MIT NAME IN 

13410 : 

LDA ZS2 


11650 : 

TAX ;A/Y 

13420 : 

EOR MASKE 

;INV ODER 

11660 : 

JMP FACNKON 

13430 : 

STA PUFFER1, 

Y ;NORMAL 

11670 : 


13440 : 

DEY 


11680 : 


13442 : 

LDA ZS 

; NAECHST. 

12000 PRINT 

JSR OPENFLS ; OEFFNET FILE 

13444 : 

LSR 

; BIT 

12010 : 

LDA #50 ; ANZAHL DRUCK 

13446 : 

STA ZS 


12020 : 

STA ZEILE ; ZEILEN 

13448 : 

BCC L00P2 


12030 : 

LDA #<*2000 5 ZEIGER AUF 

13450 : 

LDX #08 

; 8 LEERBYTE 

12040 : 

STA ZEIG1 ; GRAFIK- 

13451 TLOOP 

LDA PUFFER1, 

X ; WENN JA 

12050 : 

LDA #>*2000 ; SPEICHER 

i 152 : 

CMP #*00 


12060 s 

STA ZEIG1+1 

13453 : 

BNE NOSPACE 


12070 PLDOP1 

LDA #< SPEICHER ; ZEIGER 

13454 s 

DEX 


12080 : 

STA ZEIG2 ;AUF PUFFER 

13455 : 

BNE TLOOP 


12090 : 

LDA #>SPEICHER ;FUER EINE 

13461 : 

INC SPACES 

; AUSGABE 

12100 : 

STA ZEIG2+1 ; ZEILE 

13462 : 

JMP CONT 

;UEBERSPR. 

12110 : 

LDY #*00 

13469 NOSPACE 

LDX #15 


12120 PLOOP 

LDA (ZEIG1 > ,Y 

13470 : 

JSR *FFC9 


12130 s 

STA (ZEIG2),Y 

13471 : 

LDX #8 


12140 : 

INC ZEIG1 

13472 TLOOP1 

LDA PUFFER1, 

X ;BITMUSTER 

12150 : 

BNE PW1 

13473 : 

JSR IECOUT 

; FUER 

12160 : 

INC ZEIG1+1 

13474 s 

DEX 

; 1 ZEICHEN 

12170 PW1 

INC ZEIG2 

13475 : 

BNE TLOOP1 

; AN DRUCKER 

12180 : 

BNE PW2 

13480 : 

LDA #*0D 


12190 : 

INC ZEIG2+1 

13490 : 

JSR IECOUT 


12200 PW2 

LDA ZEIG2+1 

13500 : 

LDX #10 


12210 : 

CMP # >( 640+SPEICHER ) 

13510 : 

JSR *FFC9 


12220 : 

BNE PLOOP ; "FERTIG ? 

13520 : 

INC SPACES 


12230 : 

LDA ZEIG2 

13530 : 

LDX SPACES 

; DRUCKKOPF 

12240 : 

CMP #<< 640+SPEICHER) 

13540 : 

LDA #*20 

;POSITION 

12250 : 

BNE PLOOP 

13550 SLOOP 

DEX 


12260 : 

JSR OUTPUT ;ZEILE AUSGB. 

13560 : 

BEQ SPACEEND 

12270 : 

DEC ZEILE 

13570 : 

JSR IECOUT 


12280 : 

BNE PLOOP1 

13580 s 

JMP SLOOP 


12285 : 

JSR *FFCC ;ENDE 

13590 SPACEEND LDA #*FE 

;DEF. ZEICHEN 

12290 ! 

JMP CLOSEFLS 

13600 : 

JSR IECOUT 

;AUSDRUCKEN 

12390 f 


13610 s 

LDA #141 


12395 ; 


13620 : 

JSR IECOUT 


13000 OUTPUT 

LDA #< SPEICHER 

13630 CONT 

INC ZEIGSP ; 

ZEIGER 

13010 : 

STA ZEIGSP 

13640 : 

BNE W 6 ; 

AKTUALISIEREN 

13020 : 

LDA #>SPEICHER 

13650 s 

INC ZEIGSP+1 


13030 : 

STA ZEIGSP+1 

13660 W 6 

DEC SPALTZAHL 

13060 : 

LDA #*00 ; ANZAHL SPACES 

13670 : 

BEQ W7 


13070 : 

STA SPACES ; VOR ZEICHEN 

13680 s 

JMP OUTLOOP1 

13100 : 

LDA #80 

13690 W7 

LDA #*0D ; 

ENDE 

13110 : 

STA SPALTZAHL 

13700 : 

JSR IECOUT 


13120 DUTLOOP 

LDX #*08 

13710 OUTEND 

RTS 


13130 : 

LDY #*00 




13140 : 

LDA ZEIGSP 

Listing 3. Source-Code zu »Apfeipainter« (Schluß) 
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C 64 


Hardcopy mit 

eingebautem 

Interface 

Ein Programm für alle, die sich noch kein teures 
Interface leisten wollen, aber trotzdem Hardco¬ 
pies auf Druckern mit Centronics-Schnittstelle 
ausdrucken möchten. 


dann auch mit dieser Adresse angesprungen (SYS adr.). 

In der vorliegenden Version, die mit Simons Basic zusam¬ 
menarbeitet, ist es SYS 28672. Beim Starten muß allerdings 
die HiRes-Grafik eingeschaltet sein, damit das Programm 
den Anfang der Bitmap finden kann, andernfalls springt es in 
das aufrufende Programm zurück. 

Das bedeutet im Klartext: Sie müssen sich ein kleines Pro¬ 
gramm schreiben, das die Grafik auf den Bildschirm bringt 
und dabei die Hardcopyroutine aufruft. 

Bitte geben Sie Listing 1 mit Hilfe des MSE ein und spei¬ 
chern es. Gestartet wird es über SYS 28672. 

Wie schon erwähnt, wird der Drucker über ein User- 
Port/Centronics-Kabel mit dem C64 verbunden. Die Ver¬ 
schaltung der beiden Stecker entnehmen Sie bitte Bild 1. 
Beachten Sie, daß die Verbindung nicht länger als maximal 
1,5 Meter sein sollte, da sonst Datenverluste auftreten könn- 


M it diesem Hardcopy-Programm, in das eine Centro¬ 
nics-Schnittstelle integriert ist, ist es nun möglich, 
Hardcopies ohne teuere Interfaces zu drucken. 
(Diese Routine ist speziell auf den Star SG-10 abgestimmt. 
Hinweise für andere Drucker entnehmen Sie bitte dem Text.) 
Dazu benötigen Sie nur eine Verbindung zwischen User-Port 
(C 64) und Centronics (Drucker). Diese Verbindung, die nicht 
länger als 1,5 Meter sein sollte, ist gemäß Bild 1 zu ver¬ 
drahten. 

Das Programm enthält eine Routine zur Ausgabe eines 
Bytes auf den User-Port. Außerdem ist eine Routine zur Aus¬ 
gabe längerer Strings auf den Port integriert. Falls Sie diese 
beiden Unterprogramme selbst benutzen wollen, dürfte es 
nicht schwierig sein, sie mit Hilfe des dokumentierten 
Assembler-Listings (Listing 2) zu übernehmen. Das Pro¬ 
gramm selbst benutzt keine Betriebssystem-Routinen und 
kann deshalb sogar unter dem ROM arbeiten. Um es dorthin 
zu bekommen, muß man lediglich die Startadresse im Quell¬ 
text (erstellt mit Hypra-Ass) entsprechend ändern. Es wird 


name : cent'hardcopy 7000 7130 


7000 

• 

ad 

18 

d0 

29 

0C 

0a 

0a 

0a 

60 

7008 

: 

0a 

Bd 

5a 

70 

ad 

00 

dd 

4a 

64 

7010 

: 

6e 

5a 

70 

4a 

6e 

5a 

70 

ad 

eS 

7010 

: 

5a 

70 

49 

C0 

Bd 

Sa 

70 

a9 

d5 

7020 

3 

00 

0d 

59 

70 

ad 

11 

d0 

29 

44 

7028 

3 

20 

d0 

01 

60 

78 

a9 

SS 

85 

bl 

7030 

: 

01 

a9 

tt 

8d 

03 

dd 

d9 

11 

9f 

7038 


a0 

71 

8d 

02 

71 

Bc 

fb 

70 

Bl 

7040 

3 

a9 

0e 

a0 

71 

20 

e3 

70 

a9 

7d 

7048 

s 

19 

Bd 

2c 

71 

a9 

28 

8d 

2d 

cd 

7050 

3 

71 

a9 

0B 

Bd 

2e 

71 

a0 

08 

4b 

7058 

3 

ad 

00 

60 

a2 

01 

2a 

ca 

d0 

a0 

7060 

s 

tc 

2e 

2f 

71 

ee 

59 

70 

dB 

Ba 

7068 

3 

03 

ee 

5a 

70 

88 

d0 

e9 

ee 

lc 

7070 

3 

5c 

70 

3B 

ad 

59 

70 

e9 

08 

99 

7078 

3 

0d 

59 

70 

ad 

5a 

70 

e9 

00 

54 

7080 

3 

0d 

5a 

70 

ee 

62 

70 

d0 

03 

27 

70BB 

3 

ee 

63 

70 

ce 

2e 

71 

dB 

c6 

5d 

7070 

3 

a9 

01 

Bd 

5c 

70 

18 

ad 

59 

da 

7090 

3 

70 

69 

08 

Bd 

59 

70 

ad 

Sa 

15 

70a0 

8 

70 

69 

00 

Bd 

5a 

70 

CB 

2d 

35 

70aB 

3 

71 

d0 

a6 

a9 

0e 

a0 

71 

Bd 

27 

70b0 

3 

02 

71 

Bc 

fb 

70 

a9 

09 

a0 

c7 

70bB 

3 

71 

20 

e3 

70 

a9 

6f 

8d 

02 

91 

70C0 

3 

71 

a9 

72 

Bd 

fb 

70 

a9 

2f 

9c 

70c 8 

3 

Bd 

62 

70 

a0 

71 

8c 

63 

70 

a0 

70d0 

3 

20 

e3 

70 

a9 

0d 

20 

11 

71 

2c 

70d0 

3 

CB 

2c 

71 

d0 

29 

a9 

37 

85 

fa 

70e0 

3 

01 

58 

60 

8c 

eb 

70 

Bd 

ea 

05 

70e8 

3 

70 

ad 

00 

20 

20 

11 

71 

ee 

61 

70f 0 


ea 

70 

d0 

03 

ee 

eb 

70 

ad 

12 

70 t B 

3 

eb 

70 

c9 

41 

d0 

eb 

ad 

ea 

af 

7100 

3 

70 

c9 

40 

30 

e4 

60 

4c 

4c 

86 

710B 

3 

70 

lb 

67 

05 

40 

01 

lb 

41 

7b 

7110 

3 

08 

Bd 

01 

dd 

ad 

0d 

dd 

ad 

ti 

7118 

3 

00 

dd 

29 

fb 

8d 

00 

dd 

09 

33 

7120 

3 

04 

Bd 

00 

dd 

a9 

10 

2c 

0d 

Bc 

7128 

3 

dd 

f 0 

fb 

60 

ea 

ea 

ea 

ea 

10 


Listing 1. »Cent’Hardcopy« - bitte mit dem MSE eingeben 


10 -i ♦++m+++tmm+t+m+m++++++ 
20 -J+++++ um 

30 -J+++++ hardcopy fuer +++*+ 

40 -}♦«« Centronics drucker Hm 

50 -;Hm (star 59 ) «m 

60 -J+HH at user-port Hm 

70 mHHmmHHmmmmm 
SO -j+mt mmmn 

90 -;mH von hhhhh* 

100 -jtHH richard gresek rnrnnm 
110 -jtHH Hmmm 

120 -J+++H++++HHH++H+++++++++++++ 

130 -.111,3 
140 -.ba*7000 
150 -j 

160 -j 

•+>» -jmmmHHHHHHHHHHm 


ISO 

-jausrechnen der 

ftffffff+ffff 

190 

-jstartadresse der 

f+fff+ftfffff 

200 

-jbit»ap,pruefen 

ff+fffffff+ff 

210 

-job graphic ein 

fff+fffffffff 

220 

fffffffffffffffffffffffff++fffff 

230 

-Start 

lda SdOlS 

jbits 12-13 

240 

- 

and ItOc 

jder biteap 

250 

- 

asl 

;ins hi-byte 

260 

- 

asl 


270 

- 

asl 


280 

- 

asl 


290 

- 

sta nby+2 


300 

- 

lda SddOO 

jbits!4-15 aus cia2 holen 

310 

- 

lsr 


320 

- 

ror nby+2 

jins hi-byte schieben 

330 


lsr 


340 

- 

ror nby+2 


350 

- 

lda nby +2 

jbits 1-2 der cia2 loe-aktiv 

360 

- 

eor McO 

[deshalb uekehren eit eor 111100 0000 

370 

- 

sta nby+2 

;und zuruck ins hi-byte des biteapzeiger 

380 

- 

lda 100 

390 

- 

sta nby+1 

jlo-byte des biteapzeiger = 0 

400 

- 

lda »dOll 

jbit5=l »>hi-res graphic ein*> ausdrucken 

410 

- 

and 132 


420 

- 

bne begin 


430 

- 

rts 

jbit5=0 Izuruck ins hauptprograee 

440 

-J+HHHHHHHHHH+HHHHH 

450 

-jhauptprograM tmmmmm 

460 

-; Hmmmmmmmmmm 

470 

-begin 

sei 

;Interrupt abschalten 

480 

- 

lda H35 

jganzes rae bis auf i/o 

490 

- 

sta 01 

jeinblenden 

500 

- 

lda Mff 

jport b cia2 auf augang 

510 

- 

sta tdd03 



520 - lda t<lzeabst+3ljendadresse 

530 - Idy IXzeabst+3) 

540 - sta conti*1 

550 - sty conth+1 

560 - lda ttlzeabst) jstartadresse 

570 ' ldy tXzeabst) jder bytefolge fuer zeilenabstand 8/72 inch 
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C 64 


HARDCOPY 


ten. Falls Sie einen anderen Drucker als den Star SG-10 besit¬ 
zen, müssen Sie die Einschaltsequenz für Grafikmodus 
ändern. Diese befindet sich in Zeile 1470 des Source- 
Listings (Listing 2). Sie wird vor jeder Zeile an den Drucker 
geschickt. Danach folgen 320 Grafik-Byte. Deshalb muß 
auch der Zeilenabstand auf 8/72 inch festgelegt werden. Tra¬ 
gen Sie eine entsprechende Sequenz in der Zeile 1480 des 
Quell-Listings ein. Gegebenenfalls müssen Sie auch die Zei¬ 
len 520/530 ändern, falls die neue Bytefolge länger bezie¬ 
hungsweise kürzer ist. 

Benutzen Sie einen anderen Computer als den C 64, so 
lassen Sie den Teil zum Ausrechnen der Startadresse der Bit¬ 
map aus. Dann müssen Sie vor jedem Aufruf die Adresse der 
Bitmap in NBY+1 und NBY+2 POKEn. Ebenfalls geändert 
werden muß die Adresse des CIA in den Zeilen 510 und 1500 
bis 1600. (Richard Gresek/dm) 


Uerdrahtungsschewa User-Popt-Centronics 


Pin an 
User—Port 


A 

c 


Signal 

-GND 


■FLAG-BUSY 
- Di - 


Pin des 
36poligen 
Anphenol— 
Steckers 


- 

\ - 



- D7 

-PA2-ST 

ROBE- 


Bild 1. So verbinden Sie den User-Port mit dem Centronics- 
Stecker. Die Verbindung sollte nicht länger als maximal 
1,5 Meter sein, um eine optimale, das heißt ohne Verluste 
arbeitende Übertragung zu erreichen. 


580 - 

jsr strout 

ibytefolge auf parallel-port ausgeben 

1150 - 

sty st+2 - 


590 - 

ldi 125 

;25 zeilen!40 spalten 

1160 - 

jsr strout 


400 - 

sti zeile 


1170 - 

lda 113 

freturn aut drucker schicken (neue zeile) 

610 -2« 

1 da 140 


1180 - 

jsr cout 


620 - 

sta spalte 


1190 - 

dec zeile 

falle zeilen fertig? 

630 -spa 

lda 18 

;8 byte io jedei kaestchen 

1200 - 

bne ze 

;nein>naechste zeile 

640 - 

sta byz 


1210 - 

lda 1437 

jbasic+kernal einschalten 

650 -by 

ldy 18 


1220 - 

sta 01 


660 -nby 

A7A -1 onn 

lda 46000 

IHv KAI 

;byte aus biteap holen 

1230 - 

174A - 

di 

r+c 

jirq zulassen 

Qiv ioop 

IDA __ 

1QX VvJ 

rnl 

,♦+++♦+ ++++++ ++ 

mc.A ..mini 

ris 


OÖU -J00 

690 - 

roi 

dex 

;bit nr.x ins carry 

4£JV J TTTTTTTT«TTTTvTIVTa TTT« 

1260 -(strout-ausgabe eines 

♦+++♦♦♦♦ 

700 - 

bne loo 

;++mmm++m*+++++++*m*m++++m 

1270 -(beliebig langen strings 

+F+++F++ 

710 -st 

rol schl 

;carry ins aktuelle byte einfuegen 

1280 -;auf parallelport 


720 - 

ine nby+1 

;+++♦♦+++♦++♦+♦++♦++♦++♦+++♦*++****+++♦♦ 

1290 -; 



730 - 

bne ne 

;biteapzeiger erhoehen 

1300 -}++*++++*♦++♦*++++♦+*+♦♦++♦♦*++♦♦ 

746 - 

inp nhvO/ 


-strout 

sty lade+2 

;hi-byte der startadr. 

11V 

750 -« 

int nDy T 4 

dey 

| TTTTTTTT TT TTTTTT TTTTTTTTTTTTT T TTT TTTTT T 


(schon 8 bit zusaeten? 

ltal - 

sta lade+1 

(lo-byte 

760 - 

bne nby 

(nein «sechstes byte holen 

1330 -lade 

lda 42000 

(byte des String holen 

770 - 

inc looptl 

jnaechste bitspalte 

1340 - 

jsr cout 

;auf port ausgeben 

780 - 

sec 


1350 - 

inc lade+1 

(Zeiger erhoehen 

790 - 

lda nby+1 

|TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT 

1360 - 

bne «e2 


800 - 

sbc 18 

(biteapzeiger auf byte nr.l der naechsten spalte 

1370 - 

inc lade+2 


810 - 

sta nby+1 

(setzen 

1380 -»e2 

lda lade+2 


820 - 

lda nby*2 


1390 -conth 

cep 1441 

(hi-byte der akt. adresse=hi-b(endadr.)? 

830 - 

sbc 100 


1400 - 

bne lade 

(nein >«eiter 

B40 - 

sta nby+2 

a 111111 im 11111111111111111111111111111 

ITTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT 

1410 - 

lda lade+1 

jlo-byte der adresse=lo-b(endadr.l? 

850 - 

inc st+1 

(Zeiger auf aktuelles byte ie ausgabestring 

1420 -conti 

cap 164 


860 - 

bne «el 

; erhoehen 

J430 - 

bai lade 

(nein >»eiter 

870 - 

inc st+2 

; ++♦+++++*++++++♦+++♦+++++++++♦♦+++++♦+♦ 

1440 - 

rts 

(zurueck ins hauptprograaa 

880 -«e! 

890 - 

dec byz 
bne by 

(alle 8 byte des kaestchens fertig? 

(nein=>sprung 

1450 -ze 

11AA ... 

jap zei 


l“Dv j 



900 - 

lda 101 

(1. bitspalte der naechsten spalte 

1470 -einsch 

.by 27,103,5,44,liseguenz zua einschalten des graphicaodus 

910 - 

sta loop+1 


1480 -zeabst 

.by 27,65,B 

(zeilenabstand B/72 inch 

920 - 

de 

;++++♦++♦+♦+++♦♦♦♦♦++♦+♦+**♦♦++♦+♦++♦+++ 

1490 

930 - 

lda nby+1 

(biteapzeiger auf l.byte der naechsten spalte 

1500 -cout 

sta 4dd01 

;daten auf leitung 

940 - 

ade IS 

(stellen 

1510 - 

lda 4dd0d 

jicr loeschen 

950 - 

sta nby +1 


1520 - 

lda 4dd00 

1 

960 - 

lda nby+2 


1530 - 

and I4fb 

;pa2 (strobel-Signal 

970 - 

ade 100 


1540 - 

sta bddOO 


980 - 

sta nby+2 

(+♦+♦+++++++♦♦*♦♦♦++*♦♦+♦+♦♦*♦♦♦+++♦♦♦♦♦ 

1550 - 

ora 104 

(»jzeichen fuer 

990 - 

dec spalte 

(Zeile fertig? 

1560 - 

sta tddOO 

;’ data auf leitung’ 

1000 - 

bne spa 

(nein jneachste spalte 

1570 - 

lda 1410 

jflag2-busy 

1010 - 

lda Klziibst) {+++♦++♦+++♦++++++++++++♦++++++++++++++++ 

1580 -«arte 

bit 4dd0d 

;busy lo«? 

1020 - 

ldy IXzeabstl 

;graphic-einschalt5equenz schicken 

1590 - 

beq »arte 

j+> nein 

1030 - 

sta contl+1 

;(vor jeder zeile) 

1600 - 

rts 


1040 - 

sty conth+1 


1610 -I+++++++++++++++++++++++++++++++ 

1050 - 

lda Kleinsch) 


1620 -j variablen ♦+*♦++♦+♦♦+♦ 

1060 - 

ldy IXeinsch) 


1630 -(*++♦+♦♦♦+♦♦+♦++♦♦+♦♦♦♦+♦♦♦+♦♦++ 

1070 - 

jsr strout 

]♦♦+++++♦♦+♦+♦+++♦♦+♦+♦♦+♦♦♦*♦+♦♦♦♦+♦+++♦ 

1640 -zeile 

nop 

jzeilenzaehler 

1080 - 

lda l( lschl+1140) 

1650 -spalte 

nop 

(spaltenzaehler 

1090 - 

sta contl+1 

;zu5aeeengestellte graphiczeile 

1660 -byz 

nop 

jbytezaehler fuer jedes kaestchen 

1100 - 

lda IXschl+4140) 

1670 -;++++++++t++++++t+++t++*++++t+++ 

1110 - 

sta conth +1 

;auf eineal ausgeben 

16B0 -schl 

nop 

(anfang des auszugebenden strings 

1120 - 

lda Klschll 





1130 - 

sta st+1 





1140 - 

ldy IXschl) 


ready. 




Listing 2. Das dokumentierte Assembler-Listing der Centronics-Hardcopy 
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C 64 


Befehlserweiterung 
für Seikosha SM000VC 


Der Seikosha SP-1000VC 
ist ein Drucker mit vielen 
Möglichkeiten. Sie sind 
nur etwas schwer einzu¬ 
stellen. Wir bieten Ihnen 
über 90 neue Befehle, 
damit Sie ohne großen 
Aufwand alle Funktio¬ 
nen im Griff haben. 



Bild 1. SP-1000VC.2 - Eine Befehlserweiterung speziell für einen Seikosha SP-IOOOVC-Drucker 


D er Seikosha SP-IOOOVC ist ein Drucker mit großer Lei¬ 
stungsvielfalt. Diese Möglichkeiten werden aber ge¬ 
trübt durch die umständlichen Aufrufe über die Sekun¬ 
däradressen. Das zieht endlos lange OPEN...PRINT#...- 
Sequenzen mit den entsprechenden FILE OPEN- bezie¬ 
hungsweise FILE NOT OPEN-Errors nach sich. Das Hand¬ 
buch spendet zweifelhaften Trost: »Denken Sie daran, der 
C64 kann 10 Files gleichzeitig offen halten!« 

Die nächste Enttäuschung: Der 9-Nadeldrucker druckt 
Grafik mit 7 Nadeln! Außerdem nur einfache Punktdichte und 
nicht einmal Fettdruck. 

Diese Befehlserweiterung schafft dem Abhilfe. Keine 
umständliche Programmierung mehr, sondern nur noch 
kurze, prägnante Befehle. 

Das Programm »SP-1000VC.2« (Listing 1) wird absolut 
(.8,1) geladen und über SYS 49152 aktiviert. Zum Desaktivie¬ 
ren dient SYS 50601. Eventuelle andere Basic-Erweiterun- 
gen müssen vorher aktiviert werden, da das Programm beim 
Initialisierungsaufruf den Vektor $308/$309 (Basic-Befehl 
ausführen) speichert und bei Desaktivierung wieder zurück¬ 
schreibt. Mehrfache Aktivierungen werden abgefangen und 
führen nicht zum Systemabsturz (Selbstaufruf). 

Die neuen Basic-Befehle erkennt das Programm an dem 
vorangestellten Symbol (voreingestellt ist der Pfeil links). Die¬ 
ses Symbol kann durch POKE 51683,ASC$...geändert wer¬ 
den. Im folgenden sind alle Befehle ohne das (immer zu 
beachtende) Symbol beschrieben. Das heißt, »BEFEHL« 
muß als »— Befehl« interpretiert werden. 

Die kompletten Befehle zur Druckersteuerung sind in einer 
Tabelle zusammengefaßt (Tabelle 1). Die Werte in dieser 
Tabelle können Sie mit Setzbefehlen ändern (meist werden 
durch das Setzen auch die entsprechenden Befehle zum 
Drucker gesendet). Diese Tabelle wird durch RT, HP, HF und 
HE mit Normwerten neu gesetzt. 

Die Bildschirmfarben (Rahmen, Hintergrund und Schrift) 
sind für die Betriebszustände »Files und Kanal offen« in den 
Speicherzellen dezimal 50201 bis 50203, für »Files offen 
und Kanal geschlossen« in 50198 bis 50200 und für »Files 
und Kanal geschlossen« in 50195 bis 50197 gespeichert 
und können durch POKEs (0 bis 15) in die betreffenden Stel¬ 
len verändert werden. 


Verbindung Drucker ein/aus 


D speichert alle benötigten Files und den Kanal 

zum Drucker. Wenn Files bereits geöffnet sind, 
wird nur das Arbeitsfile (7) aktualisiert und der 
Druckerkanal geöffnet. In der Normtabelle ist 
für die Eröffnung die Sekundäradresse 7 
(Groß/Kleinschrift) gesetzt. Ab jetzt kann mit 
normalem PRINT oder LIST gedruckt werden. 
DO schließt den Druckerkanal. Files bleiben geöff¬ 

net, Tabelle und Druckereinstellungen werden 
nicht verändert, aber Grafikmodi und Breit¬ 
schrift nehmen wieder die normalen Werte an. 
Ab jetzt wirken PRINT und LIST wieder auf den 
Bildschirm. 

RM schließt alle Files. Tabelle und Drucker bleiben 

unverändert, aber Grafikmode und Breitschrift 
werden ausgeschaltet. 

RD Druckerreset. Files und Tabelle bleiben unver¬ 

ändert, die Druckerverbindung wird aufrecht 
erhalten. 

RT Tabelle mit Normwerten besetzen. Alle Files 

schließen, Drucker bleibt unverändert, aber 
Grafikmode und Breitschrift werden ausge¬ 
schaltet. 

SS,n Sekundäradresse für »D« setzen (Groß/Grafik- 

Zeichensatz: n=0; Groß/Kleinschrift: n=7). 
Durch Tabelle normalisieren wird 7 gesetzt. 
Damit die neu gesetzte Sekundäradresse wirkt, 
muß das Befehlsfile geschlossen und neu 
eröffnet werden: »SS,n« : »RM« : »D«. 

Der durch »G« oder »K« befohlene Zeichensatz wird im 
Drucker nach jedem Wagenrücklauf auf den durch die 
Eröffnungs-Sekundäradresse befohlenen Zeichensatz zu¬ 
rückgeschaltet. 

Benutzte Files: 6, 13, 14, 15, 19, 20, 26 und 27 mit 
Sekundäradresse=Filenummer und File 7 als Eröffnungs- 
(Zeichensatz) und Befehlsfile sind von »D« bis »RM« offen. 
File 4 für Sekundäradressen 3, 10, 11, 12, 22 und 23 ist 
jeweils kurz offen. 
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GRAFIKERWEITERUNG 


Sdiriftumschaltungen 


P Picaschrift ein (auch durch »RD«) 

PQ Near-Letter-Quality in Pica ein 

E Eliteschrift ein 

EQ Near-Letter-Quality in Elite ein 

C Komprimierte Schrift (Condensed) ein 

H Superscript (Hochschrift) ein 

T Subscript (Tiefschrift) ein 

- Die oben genannten Befehle schalten sich gegenseitig 
aus. 

K Groß/Kleinschrift ein (Business Mode) 

G Groß/Grafik-Zeichensatz ein (Graphic Mode) 

- Die Zeichensätze werden durch jeden Wagenrücklauf auf 
den durch die Eröffnung bestimmten Zeichensatz gesetzt. 
Der Befehl »K« oder »G« muß als letzter Befehl vor PRINT 
stehen. 

1/10 Kursiv (Italic) ein/aus 

B/BO Breitschrift (Double Width) ein/aus. (Breit¬ 

schrift aus durch »D«, »DO«, »RM« oder »RT«.) 
F/FO Fettschrift (Double Strike) ein/aus 

R/RO Revers ein/aus (durch jeden Wagenrücklauf 

aus). 

U/UO Unterstreichen ein/aus 

Wagenrücklauf/unidirektionaler Druck 


Durch jeden Wagenrücklauf wird »R« aufgehoben und »G« 

beziehungsweise »K« auf den durch die Eröffnungs- 

Sekundäradresse befohlenen Zeichensatz gesetzt. 

W Es wird ein Wagenrücklauf ohne Zeilenvor¬ 

schub durchgeführt (CR). Dies wird zum Bei¬ 
spiel zum Zeichnen und Ausfüllen von Tabellen 
benötigt (eine Variable für Trennstriche, eine 
Variable für Text). 

WL Ein Wagenrücklauf mit einem Zeilenvorschub 

wird durchgeführt (CR und LF). Die Größe des 
Zeilenvorschubs bestimmt der letzte »L.«- 
Befehl. Drei setzbare und acht fixe Zeilenvor¬ 
schübe stehen zur Verfügung. Falls noch der 
Quote-Mode durch CHR$(34) eingeleitet ist, 
wird dieser nicht aufgehoben und daher der 
Wagenrücklauf nicht durchgeführt, sondern als 
Steuerzeichen gedruckt. 

WQ Wie »WL«, aber der Quote Mode ist aufgeho¬ 

ben. 

X/XO Unidirektionaler Druck ein/aus. 

Randeinstellungen und Formularlänge 


M 


ML,nm 


MR,nm 

FF 

SZS.n 


Die Werte für den linken und rechten Rand kom¬ 
men aus der Tabelle zum Drucker. Durch Nor¬ 
malisierung sind die Werte 00 beziehungs¬ 
weise 72 Pica-Einheiten gesetzt (1 Pica = 1,2 
Elite = 1,7 Condensed). 

Linken Rand in der Tabelle setzen 
(nm = Pica-Einheiten). Wertübertragung zum 
Drucker nur mit »M«. 

Analog wie oben, nur mit dem rechten Rand. 
Formulartransport (Formfeed) im Ausmaß einer 
Seite. Die Größe einer Seite wird durch »SZS,n« 
in Zeilen pro Seite bestimmt. 

Setzen der Anzahl Zeilen pro Seite in der 
Tabelle (maximal 127). Durch das Setzen wird 
der Befehl auch an den Drucker gesendet. In 
der Normtabelle steht der Wert 54. 


ZeHenvorsdiübe 


Die Größe des Zeilenvorschubes wird im Drucker in n* 1/144 
inch gesetzt (Abstand zwischen zwei Punkten = 2/144 
inch). Die Durchführung von Zeilenvorschüben erfolgt mit 
»WL« oder »WQ« entsprechend dem zuletzt gesetzten Wert. 
Falls der Wagenrücklauf durch »Ende Text ohne Semikolon« 
ausgelöst wird, muß daher ein neuer Wert für den Zeilenvor¬ 
schub vor diesem Text eingegeben werden (aber vor even¬ 
tuellen »G«- oder »K«-Befehlen, da diese sonst aufgehoben 
werden). 

Es stehen drei Gruppen von Zeilenvorschüben zur Verfü¬ 
gung: Drei fixe Zeilenvorschübe für die Schrifthöhe der 
Hoch- beziehungsweise Tiefschrift (»LA«...»LC«), fünf fixe 
Zeilenvorschübe für normale Schrifthöhe (»LD«.. »LH«) und 
drei in Tabelle setzbare Zeilenvorschübe (»L1«...»L3«), 

LA Zeilenvorschub für Hoch- und Tiefschrift von 

Grafiksymbolen. Vorschub 4 Punkte (kein Zei¬ 
lenabstand). 

LB Zeilenvorschub für Hoch- und Tiefschrift mit 

minimalem Zeilenabstand. Vorschub 5,5 
Punkte (platzsparendste Schrift). 

LC Zeilenvorschub für Hoch- und Tiefschrift mit 

normaler Lesbarkeit. Vorschub 6 Punkte. 

LD Zeilenvorschub für normale Schrifthöhe der 

Grafiksymbole. Vorschub 7 Punkte (kein Zei¬ 
lenabstand). 

LE Zeilenvorschub für normale Schrifthöhe mit 

minimalem Zeilenabstand. Vorschub 9,5 
Punkte (platzsparendste Schrift). 

LF Zeilenvorschub für normale Schrifthöhe, nor¬ 

male Lesbarkeit. Vorschub 10,5 Punkte. 

LG Vorschub 14 Punkte (Zeilenabstand 1 Zeile). 

LH Vorschub 17,5 Punkte (Zeilenabstand 1,5 

Zeilen). 

LI Aus Tabelle den mit »SL1,n« gesetzten Vor¬ 

schub zum Drucker senden. In Normaltabelle 
steht 0,5 Punkte. 

L2 Aus Tabelle den mit »SL2,n« gesetzten Vor¬ 

schub zum Drucker senden. In Normaltabelle 
steht 1 Punkt. 

L3 Aus Tabelle den mit »SL3,n« gesetzten Vor¬ 

schub zum Drucker senden. In Normaltabelle 
steht 7,5 Punkte. 

SL1 ,n In Tabelle Wert für Vorschub »LI« in n* 1/144 
inch setzen und zum Drucker senden (»LI«). 
SL2,n In Tabelle Wert für Vorschub »L2« in n* 1/144 
inch setzen und zum Drucker senden (»L2«), 
SL3,n in Tabelle Wert für Vorschub »L3« in n* 1/144 
inch setzen und zum Drucker senden (»L3«). 

Tabulatoren 


Der Abstand des Druckbeginns vom linken Rand wird dem 
Drucker entweder in Pica-Einheiten oder in 1/60-inch- 
Punktabständen befohlen. Es stehen daher zwei Gruppen 
von vorsetzbaren Tabulatoren zur Verfügung: Zwei Tabulato¬ 
ren: in 1/60 inch (»TA«/»TB«) und drei Tabulatoren in Pica- 
Einheiten (»T1«..»T3«). 

Eine Pica-Einheit entspricht 1,2 Elite- beziehungsweise 
1,7 Condensed-Einheiten (gewünschter Elite-Tabulator/1,2 
= Pica-Tabulator; gewünschter Condensed-Tabulator/1,7 = 
Pica-Tabulator). 

1 Pica = 7 Punkte (gewünschter Pica-Tabulator* 7 = Punkt- 
Tabulator; gewünschter Elite-Tabulator*7/1,2 = Punkt- 
Tabulator; gewünschter Condensed-Tabulator* 7/1,7 = 
Punkt-Tabulator). 
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TA 

Punkt-Tabulator (1/60 inch) aus Tabelle (gesetzt 

mit »STA,n,m«) an Drucker senden. 

TB 

Punkt-Tabulator (1/60 inch) aus Tabelle (gesetzt 
mit »STB,n,m«) an Drucker senden. 

TI 

Pica-Tabulator aus Tabelle (gesetzt mit 
»STI.nm«) an Drucker senden. 

T2 

Pica-Tabulator aus Tabelle (gesetzt mit 
»ST2,nm) an Drucker senden. 

T3 

Pica-Tabulator aus Tabelle (gesetzt mit 
»ST3,nm«) an Drucker senden. 

STA,n,m 

Punkt-Tabulator in Tabelle setzen und zum 
Drucker senden. Tabulator = n*250+m 
Punkte (1/60 inch). In Normtabelle steht 16 
Punkte. 

STB,n,m 

Punkt-Tabulator in Tabelle setzen und zum 
Drucker senden. Tabulator = n*250+m 
Punkte (1/60 inch). Keine Normierung! (für 
HiRes-Print benötigt.) 

STI.nm 

Pica-Tabulator in Tabelle setzen und zum 
Drucker senden, nm = Anzahl Pica-Einheiten 
(zweistellig eingeben!). In Normtabelle steht 1 
Pica. 

ST2,nm 

Pica-Tabulator in Tabelle setzen und zum 
Drucker senden, nm = Anzahl Pica-Einheiten 
(zweistellig eingeben!). In Normtabelle steht 
35 Pica (A4 Mitte). 

ST3,nm 

Pica-Tabulator in Tabelle setzen und zum 
Drucker senden, nm = Anzahl Pica-Einheiten 
(zweistellig eingeben!). In Normtabelle steht 
55 Pica. 


Vorgesetzte Gesamteinstellungen 


Für Listing- und A4-Drucke sind die notwendigen Einstellun¬ 
gen mit Kurzbefehlen durchführbar. 

NB Druckereinstellung für A4-Druck: Groß-/Klein- 

schrift, 60 Zeilen pro Seite, linker Rand 3 Pica, 
rechter Rand 70 Pica, Zeilenvorschub »LG«, 
Near-Letter-Quality Pica. 

NL Druckereinstellung für schmale Listings: 

Groß/Grafik-Zeichensatz steht nach »RM«: »D« 
zur Verfügung (sonst Groß/Kleinschrift), 36 
Zeilen pro Seite, linker Rand 0 Pica, rechter 
Rand 48 Pica (81 Condensed), Zeilenvor¬ 
schub »LE«, Schmalschrift. 


Grafikdruck 


Nach der Umschaltung auf Grafikmode erwartet der Drucker 
8-Bit-Grafikdaten (7 Punkte von oben nach unten; Bit 0 bis 
6, Bit 7 immer gesetzt). 

Der Zeilenvorschub kann nicht geändert werden und 
beträgt 7 Punkte (14/144 inch). Durch einen Grafikrepeat- 
Befehl können die Grafikdaten entsprechend der Eingabe 
wiederholt werden. Es stehen neun Befehle (»Z1«...»Z9«) für 
die Sendung von Vorgesetzten Grafikdaten und neun komfor¬ 
table Setzbefehle für die Grafikdaten (»SZ1«...»SZ9«) bereit. 

Des weiteren existiert ein Befehl für die Anzahl Wiederho¬ 
lungen der gesendeten Grafikdaten (»SZR,.«), ein Befehl für 
die Durchführung von »ZI« bis »Z8« sowie Grafikmode ein/ 
aus-Befehle (»Z«..»Z0«). 

Für den Druck von HiRes-Bildern stehen ein Ladebefehl 
(»HL ".«) und drei Druckbefehle (»HP«, »HF« und »HE«) für teil¬ 
entzerrten Normaldruck, teilentzerrten Fettdruck und vollent¬ 
zerrten Fettdruck zur Verfügung (modifizierte Routine aus 
64’er, Seite 69, F. Kulzer). 


Z/ZO 

Grafikmode ein/aus. Ab »Z« werden alle gesen¬ 
deten Codes als Grafikdaten vom Drucker ver¬ 
arbeitet, der Zeilenvorschub ist 7 Punkte. 
Hintergrund- und Schriftfarbe werden ausge¬ 
tauscht. 

ZO 

Wird auch bei »D«, »DO«, »RT«, »RM«, »B« und 
»BO« durchgeführt. Die folgenden Befehle 
»Z1«..»Z9« führen auch »Z« aus, anschließend 
befindet sich der Drucker im Grafikmode: 

ZI 

Grafikdaten 1 aus Tabelle (gesetzt mit »SZ1,..«) 
zum Drucker senden. In Normtabelle steht 
1000000. 

Z2 

Grafikdaten 2 aus Tabelle (gesetzt mit »SZ2,..«) 
zum Drucker senden. In Normtabelle steht 
0100000. 

Z3 

Grafikdaten 3 aus Tabelle (gesetzt mit »SZ3,..«) 
zum Drucker senden. In Normtabelle steht 
0010000. 

Z4 

Grafikdaten 4 aus Tabelle (gesetzt mit »SZ4,..«) 
zum Drucker senden. In Normtabelle steht 
0001000. 

Z5 

Grafikdaten 5 aus Tabelle (gesetzt mit »SZ5,..«) 
zum Drucker senden. In Normtabelle steht 
0000100. 

Z6 

Grafikdaten 6 aus Tabelle (gesetzt mit »SZ6,..«) 
zum Drucker senden. In Normtabelle steht 
0000010. 

Z7 

Grafikdaten 7 aus Tabelle (gesetzt mit »SZ7,..«) 
zum Drucker senden. In Normtabelle steht 
1100000. 

Z8 

Grafikdaten 8 aus Tabelle (gesetzt mit »SZ8,..«) 
zum Drucker senden. In Normtabelle steht 
0011100. 

Z9 pm " 

Grafikdaten 9 aus Tabelle (gesetzt mit »SZ9,..«) 
zum Drucker senden. In Normtabelle steht 
0000011. 

SZR,n 

Wert für die Anzahl Wiederholungen der Grafik¬ 
daten in Tabelle setzen (wird mit »Z1«..»Z9« zum 
Drucker gesendet). n=1-255, n=0 entspricht 
256 Wiederholungen. In Normtabelle steht 1. 

SZI.nnnnnnn 

Grafikdaten 1 in der Tabelle setzen. n=0 - kein 
Punkt, n=1 - Punkt gesetzt (Punkte von oben 
nach unten). Der Druck erfolgt mit »ZI«. 

SZ2,nnnnnnn bis SZ9,nnnnnnn 


wie »SZI.nnnnnnn« für Grafikdaten 2 bis 9. 

ZF Grafikdaten 1 bis 8 hintereinander zeichnen 

(mit entsprechender Wiederholung der einzel¬ 
nen Daten). 

HL"Bildname * 

Laden eines HiRes-Bildes von Diskette in das 
RAM unter den Interpreter-Bereich ($A000 bis 
SBFFF) unabhängig von der ursprünglichen 
Startadresse des Bildes. Das Bild darf nicht 
mehr als 33 Blocks umfassen, da sonst die 
Druckerweiterung ab $C000 überschrieben 
wird (eventuell vorher mit »Hi-Eddi« überarbei¬ 
ten). Zu Beginn werden alle Files mit »RM« 
geschlossen, die Druckerverbindung ist 
anschließend unterbrochen. 

Achtung! Es erfolgt keine Fehlerüberprüfung, falls das File 
nicht gefunden wird. Das Programm fährt aber trotzdem fort. 

Die folgenden Befehle »HP«..»HE« führen auch »Z« und 
»RT« und am Ende »ZO« aus, der Drucker befindet sich 
anschließend im Schreibmodus. 

Der linke Rand des HiRes-Bildes wird mit »STB.nm« 
gesetzt. 

HP Teilentzerrter HiRes-Ausdruck des RAM- 

Bereiches $A000 bis SBFFF. Die Verzerrung 
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ist statt 20 nur noch 13 Prozent. Hauptsächlich 
für Strichvorlagen, da in Flächen ein weißer 
1/2-Punkt-Strich entsteht. Normale Druckzeit. 
HF HiRes-Fettdruck, sonstwie »HP«, aberkein stö¬ 

render Zwischenraum. Doppelte Druckzeit. 

HE Vollentzerrter HiRes-Fettdruck des RAM- 

Bereiches $A000 bis $BFFF. Vierfache Druck¬ 
zeit. 

Um das komfortable Programmieren und Ausfüllen von 
Masken, Tabellen oder ähnlichem zu ermöglichen, sind fünf 
weitere Basic-Befehle vorgesehen: 

Der eingabesichere INPUT-Befehl mit Text- und Variablen¬ 
eingabe von G. Mootz aus 64’er, Sonderheft 8/85 (leider 
etwas gekürzt und mit geänderter Syntax); 

Der PRINT AT-Befehl vom gleichen Autor, um Text an belie¬ 
bigen Stellen des Bildschirms drucken zu können; 

Der SCROLL UP-Befehl, der den Bildschirm um eine oder 
mehrere Zeilen nach oben scrollt; 

CLEAR LINE, um Zeilen zu löschen und den 

CLEAR SCREEN-Befehl, der den Bildschirm löscht. 

IN(X,Y),F,"T",L,"Z",VV$ Formatierter INPUT-Befehl für 
maximal 255 Zeichen. Es kann Text mit ausgegeben werden. 
Ein eventueller Wert der Variablen wird in das Eingabefeld 
geschrieben (nur bis zur Länge des Feldes). Man kann das 
Eingabefeld nicht verlassen. Entweder sind alle Zeichen zur 
Eingabe zugelassen oder die zugelassenen Zeichen (maxi¬ 
mal 30) werden eingegeben. Die Tasten <CLR/HOME>, 
<INST/DEL> und < CURSOR > haben ihre Normalfunk¬ 
tion, allerdings nur innerhalb des Eingabefeldes. Fehlbedie¬ 
nungen zeigt ein Piepston an. Die Übernahme der Variablen 
erfolgt mit < RETURN > oder, falls Endspaces auch mit über¬ 
nommen werden sollen, mit < SHIFT/RETURN >. Die Varia¬ 
ble muß eine Stringvariable sein. 

Die Parameter s->£R 


Programmbeschreibung 


1) Maschinenprogramm zur Druckersteurung 

Dieser Teil belegt den Bereich von $C000 bis SC585. Teil 
1 kann als Unterprogramm ohne die anderen Teile verwendet 
werden (Einbau in eine Textverarbeitung). In diesem Fall sind 
folgende Änderungen nötig: 

Alt: Neu: 

$0118 JMP $0586 JMP $A7AE 

$0518 JSR $C28D JMP $C28D 

$0120 $33 $31 

Die Angabe der Einsprungadressen (in Hexadezimal) 
erfolgt mit dem Buchstabencode der Basicerweiterung in der 
Reihenfolge der Anwendungsbeschreibung, die Parameter¬ 
tabelle folgt anschließend: 


X 

Y 


VV$ 


-Spalte (0 bis 39) 

-Zeile (0 bis 24) des Text- oder Eingabefeldes 
(Variablen sind zulässig). 

-Farbe (0 bis 15) von Text und Eingabefeld 
(Variable zulässig). Kann weggelassen werden. 

-Text vor Eingabefeld (keine Variable). Kann 
weggelassen werden. 

-Länge des Eingabefeldes (maximal 255, Varia¬ 
ble zulässig). Beginnt entweder bei (X,Y) oder 
nach »T«. 

-Anzahl erlaubter Zeichen (maximal 30, keine 
Variable). Sollen alle Zeichen zugelassen wer¬ 
den, muß dieser Parameter entfallen. 

-Stringvariable mit maximal 255 Zeichen. Der 
Inhalt dieser Variable wird beim Aufruf in das 
Eingabefeld geschrieben, mit < RETURN > 
erhält die Variable den im Eingabefeld stehen¬ 
den Wert. 


TX(X,Y),F, "T" 


Parameter: 

X 

Y 


T oder VV$ 
SC,a 


CL,y,a 


CS 


PRINT AT-Befehl. Text kann an einen beliebigen 
Punkt des Bildschirms geschrieben werden. 

- Spalte (0 bis 39) 

- Zeile (0 bis 24) des Textbeginns (Variable 
zulässig) 

- Farbe (0 bis 15) des Textes (Variable zuläs¬ 
sig). Kann entfallen. 

auszugebender Text 

SCROLL UP-Befehl. Der Bildschirm scrollt um 
die angegebene Anzahl (a) nach oben. Das 
Argument (a) kann entfallen. 

CLEAR LINE. Die angegebene Zeile (y) und die 
folgenden werden gemäß der Anzahl (a) der zu 
löschenden Zeilen entfernt. 

CLEAR SCREEN. Löscht den Bildschirm. 


D 

$0003 

DO 

$0023 

RM 

$C3E1 

RD 

$C22D 

RT 

$C13F 

P 

$C18B 

’PQ 

$C1B8 

E 

$0190 

EQ 

$C1AE 

C 

$0195 

H 

$C19A 

T 

$C19F 

K 

$C2BD 

G 

$0205 

I 

$0336 

10 

$C33E 

B 

$0265 

B0 

$C26D 

F 

$C1A4 

F0 

$C1A9 

R 

$0275 

R0 

$C27D 

U 

$0346 

UO 

$C34E 

W 

$C2A5 

WL 

$0295 

WQ 

$C29D 

X 

$C21D 

XO 

FF 

$0225 

$C2AD 

M 

$C25F 

Zeilen nro Seite zu Drucker: 

$0235 

LA $C1DD 

LB 

$C1E5 

LC 

$C1ED 

LD 

$C1F5 

LE 

$C1FD 

LF 

$0205 

LG 

$C20D 

LH 

$0215 

LI 

L3 

$0102 

$C1D4 

L2 

$C1CB 

TA 

$0356 

TB 

$0365 

TI 

T3 

$0374 

$0392 

T2 

$0383 

NB 

$C3A1 

NL 

$0301 

Z 

$0285 

ZO 

$C28D 

ZI. 

ZF 

.Z9 $C2CD. 
$C31E 

•$0315 


HL 

! in Teil 2! 

($CAC3 bis 

$CAE0) 

HP 

HE 

$0459 

$C43B 

HF 

$0445 


Parametertabelle 

$C3EF,$C3F0 

$C3F1 

$C3F2 

$C3F3 

$C3F4 

$C3F5,$C3F6,$C3F7 

$C3F8 

$03 F9 

$03 FA 

$C3EB, $C3FC 
$03 FD, $03 FE 

$C3FF, $0400 

$0401, $0402 

$0403, $0404 


für »TB« n+255, m Punkte 
Flag für Druckerkanal offen 
Nummer des Arbeitsfiles 
Sekundäradresse für Eröffnung mit 
»D« 

Reserve 
für »L1«...»L3« 

Zeilen pro Seite 
linker Rand in Pica für »M« 
rechter Rand in Pica für »M« 
für »TA« n*255, m Punkte 
für »TI« in ASC$ (Zehner), 

ASC$ (Einer) 

für »T2« in ASC$ (Zehner), 

ASC$ (Einer) 

für »T3« in ASC$ (Zehner), 

ASC$ (Einer) 

Zähler für HiRes-Print 
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Aktivieren: SYS 49152 Tabelle 1. Hier finden Sie alle Befehle von SP-1000VC.2 In übersichtlicher Form dargestellt 

Desaktivieren: 50601 


Bei Aktivierung und Desaktivierung werden die Vektoren anderer Baslc-Erwelterungen berücksichtigt. 

Parameter lür Randeinstellung, Zeilenvorschub, Tabulatoren, Zellen/Seite & Grafikdaten werden In der Tabelle abgelegt. 
Diese Tabellle kann mit -RT oder -HP, -HF, -HE mit Normalwerten geladen werden. 


-D 

Druckerverbindung ein (Sekundäradr = > Zeichensatz 

-DO 

Verbindung aus (Files, Tab & Druckerwerte bleiben & -B0 & -Z0) 

-SS,n 

Sekundäradresse (-D) setzen (n=0..Groß(Grafik, n=7..Klein/Groß) wirksam in 
-D nur nach-RM! 

-RT 

Tabelle mit Normwerten laden & -DO 

-RD 

Druckerreset (Tab & Druckerverbindung bleiben) 

-RM 

Masterreset (Files closed & -DO) 

-P 

Pica ein 



-PO 

Pica High Quality ein 



-E 

Elite ein 



-EO 

Elite High Quality ein 



-C 

Condensed (Kompnmiert) ein 



-H 

Hoch (Superscript) ein 



-T 

Tiet(Subscrlpt) ein 



-K 

Klein/GroB-Zeichensatz ein 



-G 

GroB/Grafik-Zelchensatz ein 



-1 

Italic (Kursiv) ein 

-10 

Italic (Kursiv) aus 

-B 

Breitschrift (Doubl© Wklth) ein & -Z0 

-B0 

Breitschrift (Double Width) aus 6 -Z0 

-F 

Fettschrift (Double Strike) ein 

-F0 

Fettschrift (Double Strike) aus 

-R 

Revers ein 

-R0 

Revers aus 

-U 

Unterstreichen ein 

-uo 

Unterstreichen aus 

-W 

Nur Wagenrücklauf (CS) 



-WL 

Wagenrücklauf & Zeilenvorschub (LF) 

-WO 

Wagenrücklauf, Zeilenvorschub & Quote cleared (CR) 

-X 

Unidirektionaler Druck ein 

-xo 

Unidirektionaler Druck aus 

-FF 

Förmleed (Formualartransport) (norm 54) 

-SZS,n 

Zeilen/Seite (max 127) setzen 

-LI 

Zeilenvorschub aus Tabelle (norm 1/2 Punkt) 

—SLI.n 

Zeilenvorschub n'1/144 in (1/2 Pkt) setzen 

-L2- 

L3 wie -LI (norm 1 Punkt beziehungsweise/,5Punkte) 

-SL2,n 

-SL3,n wie -SL1 

-LA- 

LB -LC Zeilenvorschub für -H (Grafik'Minimum'Normal') 



-LD- 

LE -LF -LG -LH Zeilenvorschub für -E, -P(Graflk'Min‘imum'Normal'1 Zeüe'l’/s Zeilen') 


-M 

Linker und rechter Rand aus Tabelle (norm 00&72) 

-MLnm 

Linken Rand in Tabelle (nm Pica) setzen 



-MR,nm 

Rechter Rand in Tabelle (nm Pica) setzen 

-TA 

Tabulator aus Tabelle (norm 16*1/60 in) 

—CT‘.-,m 

Tabulator (n*250) + m 1/60 inch) setzen 

-TB 

Tabulator aus Tabelle (nicht normalisiert!!) 

-STB,n,m Tabulator (n*250 + m 1/60 inch) setzen 

-TI 

Tabulator aus Tabelle (norm 01 Pica) 

-ST1,n,m Tabulator (nm Pica) setzen 

-T2 

-T3 Tabulator aus Tabelle (norm 35 beziehungsweise 55 Pica) 

-ST2,n,m 

-ST3,n,m Tabulator (nm Pica) setzen 

-NB 

Tab * Drucker für Brief A4 (-PQ.) 

-NL 

Tab & Drucker für Usting(-C.) 

-Z 

Grafikmode ein 

-zo 

Grafikmode aus 



-SZR.n 

Grafikrepeat (n=1-255, n=0..256) setzen 

-ZI 

Grafikdaten 1 aus Tabelle Grafikrepeat mal zeichnen 

-SZI.nnnnnnn Grafikdaten mit 0 oder 1 setzen 

-22 

-Z3..-Z9 wie ZI 

-SZ2,nnnnnnn ..-SZ9,nnnnnnn - wie -SZI.nnnnnnn 

-ZF 

Grafikdaten 1-8 aus Tabelle Grafikrepeat mal zeichnen; zum Beispiel Tab normal 
SRepeat= 10 : 



-HL 

■Bildname' HiResbild (33 Blöcke) von Disk laden 

-HP 

HiResbild (AOOO-BFFF) drucken (-TB.linker Rand) 

-HF 

Wie -HP aber Fettdruck (doppelte Zelt) 

-HE 

Wie -HP aber entzerrter Fettdruck (4fache Zeit) 


—IN(X,Y),F, T',L, 'Z’,W$ 


Formatierter Input Befehl lür max. 255 Zeichen 

X...Spalte (0-39), Y...Zeile (0-24), F...Farbe von Text & Eingabefeld (0-15), T...Text (vor Eingabefeld) 

L..Länge Eingabefeld, Z..Beschränkung auf erlaubte Zeichen (<30), W$...Stringvariable (max, 255 Zeichen), F *T* 'V können weggelassen werden 
-IN(X,Y)L,W$ -IN(X,Y),F,LW$ etc 


-TX(X,Y),F *T' oder W$ 


PRINT Text AT Befehl 

X.. Spalte (0-39), Y...Zelle (0-24), F.Farbe des Textes (0-15), L.Text oder WS . SIringvariable. F kann weggelassen werden 
-TX(X,Y)'T* oder -TX(X,Y)W$ 


-SC.A 


SROLL UP-Befehl ,A...Anzahl der zu scrollenden Zeilen, A kann weggelassen werden -SC 


-CL.Y.A 


CLEAR UNE-Belehl Y...Zeile(0..24) t A. Anzahl der zu löschenden Zellen 


-CS 


CLEAR SCREEN-Befehl 


•) Warte werdan In Tabelle gesetzt t zu Drucker gesendet 


$C405 

$C406-$C40E 

$C40F-$C4l2 

$C4l3-$C4l5 


$C4l6-$C4l8 

$C4l9-$C4lB 


Wiederholungen für »Z1«...»Z9« 
Grafikdaten für »Z1«...»Z9« 

(siehe Druckerhandbuch) 

Masken für HiRes-Print 
Rahmen,- Hintergrund- und Schrift¬ 
farbe für Files und Kanal geschlos¬ 
sen 

Farben für Files offen und Kanal 
geschlossen 

Farben für Files und Kanal offen 


Die Normtabelle von $C41C bis $C43A entspricht der 
Parametertabelle von $C3F1 bis $C40F. Die Normtabelle 
kann mit Ausnahme der für HiRes-Print benötigten Vor¬ 
schübe »LI« und »L3« eigenen Wünschen angepaßt werden. 

Außer durch »D« werden Files und Druckerkanal auch 
durch alle Befehle geöffnet. Erfolgte vorher kein »D«, wird der 
Kanal anschließend geschlossen. 

Befehle über File 4 (Sekundäradressen 3, 10, 11, 12, 22 
und 23) öffnen File und Kanal. Sie schließen nach Befehls¬ 
übermittlung das File und den Druckerkanal. 
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Außer dem Bereich $C000 bis $C585 werden in der Zero¬ 
page die Adressen $02 allgemein und für HiRes-Print die 
Adressen $71, $72, $97, $9B, $9C, $9E, $9F, $A5, $A6, 
$FB bis $FE als Zwischenspeicher verwendet. 

Falls das Programm in einen anderen Speicherbereich ver¬ 
schoben werden soll: Die Tabellen befinden sich von $C11B 
bis $C13E, von $C3E7 bis $C43A und von $C560 bis 
$C585. 

In der Eröffnungsroutine ($C003, $C030, $C05C) sowie 
in der Endroutine ($C042, $C072) werden die aktuellen 
Zustände der Files und des Druckerkanals überprüft und ent¬ 
sprechend in Unterroutinen verzweigt. Es stört daher nicht, 
wenn die Aufrufe mehrfach erfolgen. 

2) Maschinenprogramm für 92 Basic-Befehle 

Dieser Teil belegt den Bereich von $C586 bis $CB68. Teil 
2 kann ohne Teil 3 verwendet werden (Einbau eigener Basic- 
Erweiterungen in den Bereich $CB69 bis $CFFF). In diesem 
Fall sind folgende Änderungen nötig: 


Alt: 



Neu: 


$C5EA 

JMP 

$CEC4 

JMP 

$AF08 

$C6D7 

JMP 

$CB69 

JMP 

$AF08 

$C847 

JMP 

$CEAF 

JMP 

$AF08 

$0944 

JMP 

$CEE9 

JMP 

$AF08 

$C120 

$33 


$32 



Für die Einbindung eigener Erweiterungen steht $C93D 
(derzeit: JMP AF08) zur Verfügung. Der nach dem Symbol 
eingegebene Buchstabe befindet sich im Accu. Es sind noch 
die Buchstaben A, E, J, O, Q und V frei. 


Bei der Aktivierung der Erweiterung ($C586) wird der Vek¬ 
tor $308/$309 (Basic-Befehl ausführen) gelesen und in 
$C5B9 gespeichert. Als neue Adresse wird $C5BB ( Rou¬ 
tine prüft auf Symbol) in $308/$309 geschrieben. Wird kein 
neuer Basic-Befehl erkannt, erfolgt der Einsprung in den 
alten Vektorinhalt. Irrtümliche Mehrfachaktivierungen er¬ 
kennt die Routine $C586 und verhindert Selbstaufrufe, die 
zum Systemabsturz führen könnten. 

Bei der Desaktivierung der Erweiterung ($C5A9) wird die 
alte Sprungadresse aus $C5B9 wieder nach $308/$309 
zurückgeschrieben. Vor Aktivierung der Druckererweiterung 
sollten daher alle anderen Basic-Erweiterungen schon akti¬ 
viert sein. 

3) Maschinenprogramm für Bildschrim 

Dieser Teil belegt den Bereich von $CB69 bis $CFF8 und 
besteht hauptsächlich aus der etwas verkürzten Routine 
»Extended INPUT« von G. Mootz (64'er, Sonderheft 8/85). 

Zusätzlich sind nur geringfügig erweiterte Betriebssystem- 
Routinen für Scrollen und Löschen von Bildschirm bezie¬ 
hungsweise Zeilen eingebunden. 

Bitte geben Sie das Hauptprogramm »SP-1000VC.2« 
(Listing 1) mit Hilfe des MSE ein und speichern es. Geladen 
wird es absolut mit ...,8,1. Der Start erfolgt über SYS 49152. 

Das zweite Programm (Listing 2) muß nicht unbedingt ein¬ 
gegeben werden, es stellt Ihnen nur ein Demo-Programm zur 
Verfügung. 

(Horst Novak/dm) 
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Llstlng 1. »SP-1000VC.2« - Komfortable Druckersteuerung für Ihren Selkosha-Drucker. Bitte mit dem MSE eingeben. (Schluß) 


10 REM **** KURZBESCHREIBUNG (BEFEHLSLISTE 

) DES PROGRAMMES 'P3 SP-1000VC .2' *** <055> 

20 REM (DRUCKERSTEUERUNG MIT B 

ASICERWEITERUNG» <171> 

25 REM *** PROGRAMMNAME 'BEF P3 SP-TVC .2' 

*** <040> 

26 REM **** HORST NOVAK DOEBLINGERHAUPTS 

TRASSE 1190 WIEN **** <215> 

30 DRt=" .5.E.I.K.0.SJtn <174> 

31 K=0:FOR 1=0 TO 2iK=K*PEEK,/,50566+1):NEXT <099> 

32 IF K=184 THEN 40 <103> 

33 PRINT"tCLR,9D0WN,4R10HT,RVSON,SPACE>DRU 
CKERPROGRAMM LADEN !!• ":PRINT:PRINT:PR 

-NT:PRINT < 090 > 

34 PRINT"LOAD "CHR*(34)"P3 SP-1000VC .2"CH 

R*(34)",B,1<3UP> ,, :END <252> 

40 SYS 49152:«-RM:K?T:+D:«-RD:+ML,03:«-MR,74: 

<_M <050> 

42 «-D: GOSUB 990 <055> 

50 +WL:+PB < 196 > 

60 «-B: +ST2,19:PRINT"ARUCKERSTEUERUNG" <195> 

70 «-ST3,17: PRINT DR* <135> 

80 «-ST3,00: PR I NT " AAS ICERWEITERUNG “ ; : «-B0 : «-S 

T3,53 : PR I NT " JSURZBESCHREIBUNG “ <046> 

90 GOSUB 994 <114> 

100 «-EQ: REM ******* «-F <183> 

110 PRINT"PROGRAMMNAME:"CHR*(34)"£3 ä£-100 

0££ .2“CHRS(34>; <032> 

120 PRINT" £EREICH:*£000-#££££";:+H:«-LC:«-S 

T3,52:PRINT"HORST XftV.RK 11 <216> 

130 «-T3: PR I NT “ AOEBLINGER HAUPTSTRASSE 44/1 

b '' <134> 

140 PRINT"AKTIVIEREN: 5Y5 49152C2SPACEJAES 

AKTIVIEREN: A£A 50601"; <020> 

150 <-H:«-T3:PRINT"1190 KIEW " <224> 

160 GOSUB 994 <184> 


170 PRINT"AEI AKTIVIERUNG UND AESAKTIVIERU 

NG WERDEN DIE HEKTOREN ANDERER AASIC"; <251> 
1B0 PRINT"ERWEITERUNGEN BERUECKSICHTI6T." <099> 

190 PRINT"£ARAMETER FUER HÄNDEINSTELLUNG,A 

EILENVORSCHUB,JABULATOREN, 2E ILEN/AEI"; <038> 


200 PRINT"TE S< SRAFIKDATEN WERDEN IN EINER 

IABELLE ABGELEGT." <191> 

210 PRINT-SIESE IABELLE KANN MIT «-£1 ODER 

«-ÜE, +HE, +HE MIT HORMALWERTEN"; <166> 

220 PRINT" GELADEN WERDEN." <102> 

230 «-SZR, 209: «-SZ1,0110000: f-Z 1: «-Z 1: +Z0: «-LA: 

«-WL: +ST1 ,36: «-WL <167> 

240 «-LF <051 > 

245 REM =========================-».m==«. <008> 

250 +PQ: PRINT" «-A<2SFACE>"j <021> 

251 «-C: PR I NT "ARUCKERVERB INDUNG EIN (SECUND 

AERADR => IEICHENSATZ)”; <223> 

252 «-T1:«-PQ:PRINT"+A0 <149> 

253 «-C:PRINT"HERBINDUNG AUS (£.ILES,IAB & a 

RUCKERWERTE BLEIBEN " <116> 

254 «-PQ: PRINT"+SS,N"; <124> 

255 <-C : +LE:PRINT"C2SPACE>AECUNDAERADRESSE 
(«-a> SETZEN (N=0. . GROSS/fiRAFIK, <2SPACE 

>"5 <119> 

256 «-T1: PRINT" {23SPACE J8< +A0 Sc +20) " <234> 

257 KI:PRINT"C2SPACE>N=7..ÄLEIN/fiROSS) WIR 

KSAM IN <-a NUR NACH +£fl !”; <158> 

258 <-Tl:«-PQ:PRINT"«-£I ";: «-C: «-LF:PRINT"IABE 

LLE MIT HDRMWERTEN LADEN Sc «-30" <132> 


260 +PQ: PRINT" «-£8<2SPACE}“; <179> 

261 «-C : PR I NT " ARUCKERRESET (IAB Sc JFUCKERVE 

RBINDUNG BLEIBEN)"; <005> 

262 *-T 1: «-PQ:PRINT“+£H "; <202> 

263 «-C : f-LB: PR I NT " AASTERRESET (£ILES CLOSED 

S< ‘-30) “ < 191 > 

264 GOSUB 992: «-WL <014> 

265 «-PQ:PRINT"+•£{3SPACE}”; <062> 

266 «-C: PRINT"£ICA EIN ” <076> 

270 «-PB: PRINT"«-£S<2SPACE>"; <237> 

271 «-C: PRINT"£ICA HIGH SJALITY EIN" <071 > 

280 «-PQ:PRINT"«-£<3SPACE>"; <055> 

281 «-C: PRINT"£LITE EIN “ <108> 

290 «-PQ: PR I NT " «-££<2SPACE > “ ; <235> 

291 «-C:PRINT"SLITE ÜIGH SUALITY EIN - <100> 

300 «-PQ : PR I NT " «-£<3SPACE> " ; <071 > 

301 «-C: PR INT ".CONDENSED (KOMPRIMIERT) EIN" <044> 

310 «-PQ: PRINT■ «-H<3SPACE>"; <091> 

311 «-C: PRINT"AOCH (AUPERSCRIPT) EIN" <101> 

320 «-PQ: PR I NT ” «-K3SP ACE > "; <125> 

321 KI:PRINT"XIEF (AUBSCRIPT) EIN" <110> 

330 . B:PRINT"«-£<3SPACE>"; <117> 

331 KI:PRINT"£LEIN/AROSS 2EICHENSATZ EIN" <122> 

340 «-PB: PRINT“«-fi{3SPACE>“ ; <119> 

341 KI:PRINT"SROSS/SRAFIK IEICHENSATZ EIN" <191> 

350 «-PQ: PR I NT " «-A<3SPACE J " ; <133> 

351 «-C: PRINT"XTALIK (.KURSIV) EIN "; <250> 

352 «-T1:«-PB:PRINT"*-£0 <156> 

353 «-C = PRINT"iTALIC (.KURSIV) AUS" <0U> 

360 K>B:PRINT"«-a<3SPACE>"; <129> 

361 «-C:PRINT"AREITSCHRIFT (ADUBLE HIDTH) E 

IN Sc t-20“; <042> 

362 t-Tl: K > B:PRINT"«-a0 “; <197> 

363 KI:PRINT"aREITSCHRIFT (3DUBLE HIDTH) A 

US 8c t-20" <025> 

370 «-PB: PR I NT " «-£<3SP ACE > “; <147> 

371 «-C: PRINT"£ETTSCRIFT (AOUBLE ATRIKE) EI 

N"; <183> 

372 «-T1: «-PB:PRINT“«-£0 <079> 

373 «-C:PRINT"££TTSCHRIFT (AOUBLE ATRIKE) A 

-OS" <030> 

380 «-PB: PR I NT “ *-£ <3SPACE > " ; <181 > 

381 «-C:PRINT"£EVERS EIN <099> 

382 «-T1: «-PQ: PRINT"«-£0 <219> 

383 «-C: PRINT"AEVERS AUS" <244> 

400 «-PB:PRINT"«-Ü<3SPACE>"; <207> 

401 KI:PRINT"UNTERSTREICHEN EIN "; <1B7> 

402 «-T1« «-PB:PRINT“«-U0 <079> 

403 KI: «-LB:PRINT“iS'ITERSTREICHEN AUS " <120> 

404 GOSUB 992: «-WL <1S4> 

410 K=>B:PRINT"«-H<3SPACE>"; <221> 

411 «-C: PR INT "HUR HAGENRUECKLAUF (£A) " <070> 

420 «-PQ:PRINT“«-Hi.<2SPACE>"; <125> 

421 «-C: PR INT "HAGENRUECKLAUF Sc ZEILENVORSCH 

UB (AE)"; <213> 

422 «-T1: «-PB:PRINT"«-HS <011> 

423 KI:PRINT"HAGENRUECKLAUF,£EILENVORSCHUB 

Sc SUOTE CLEARED (£&) " <070> 

430 «-PB: PRINT"t-HC3SPACE>“; <243> 

431 «-C: PRINT"ÜNIDIRECTIONALER ARUCK EIN "; <221 > 

432 «-T1: «-PB:PRINT“«-H0 ”; <206> 

433 «-C: PRINT"ÜNIDIRECTIONALER BRUCK AUS " <038> 

440 «-PB:PRINT“«-££{2SPACE>"; <087> 

441 «-C : PR I NT " £ORMFEED (fDRMUL ARTRANSPORT ) 

(NORM 54)<2SPACE>"; <112> 

442 «-T1: «-PB: PRINT"*-AZS«N”; <167> 


174 


SONDERHEFT 6/86 

















C 64 


GRAFIK-ERWEITERUNG 


443 

<-C: «-LB: PRINT" C2SPACE>ZEILEN/SEITE (MAX 


643 

«-SZR, 10: «-ZF: «-Z0: «-WL 

< 113> 


127) SETZEN<14SPACE>*> " 

< 116> 

659 

GOSUB 992: «-WL 

< 155> 

444 

GOSUB 992: «-WL 

< 194> 

660 

*-PQ: PRINT" «-HL." ; : «-EQ: PRINT CHR* (34) "SIL 


450 

*-Pß : PR I NT " *-±.1 <2SPACE > '*; 

<022> 


DNAME";CHR*(34> ; " "; 

<080> 

451 

<-C: PR INT "ZEILEN VORSCHUB AUS IABELLE (N 


661 

«-C: PRINT"iiIRESBILD (33 JLOECKE) VON 31 



ORM 1/2 fJJNKT) <8SPACE>"; 

<027> 


SK LADEN "; 

<203> 

452 

«-T1: «-PQ: PRINT"«-fli.1 ,N"; 

<221 > 

662 

«-T1: «-PQ: PRINT"*-fl£ “; 

<220> 

453 

«-C: H-F:PRINT"«SPACE>ZEILENVORSCHUB N* 


663 

«-C:«-LF:PRINT"ÜIRESBILD (fl000-,2EE£> DRU 



1/144 IN(1/2 £KT)SETZEN«SPACE>*) " 

<215> 


CKEN («-I3. .LINKER SAND)" 

<110> 

460 

«-PQ: PR INT" «-I2 «-£3 

< 177> 

670 

«-PQ: PR I NT " «-Ü£<2SPACE > "; 

<067> 

461 

«-C: PRINT" 12SPACE>WIE «-i.1 (NORM 1 PKT B 


671 

«-C: PR INT "HIE «-H£ ABER flETTDRUCK (DOPPE 



ZW 7.5 AKTE)"; 

<084 > 


LTE ZEIT)"; 

<013> 

462 

«-T1:«-PQ:PRINT"*-SI2,N *-5i3,N"; 

<030> 

672 

«-T1: «-PG:PRINT"«-flfl "; 

<035> 

463 

«-C:PRINT" <2SPACE>WIE «-SA.1 <23SPACE>««> " 

< 145> 

673 

«-C:«-LB:PRI NT "HIE «-HE ABER ENTZERRTER £. 


470 

«-PQ: PR I NT * «-IA «-.LS «-££ "J 

<247> 


ETTDRUCK (4FACHE ZEIT)" 

< 191 > 

471 

«-C : PR I NT " ZEILENVORSCHUB FUER *-fl (fiRAFI 


800 

GOSUB 993: «-WL 

<019> 


KVßlNIMUMVUORMALV) " 

<245> 

802 

«-PQ:H_F:PRINT"«-IH(£,X> "CHR*(34) "I"C 


480 

«-PQ: PR I NT" *-£J) «-£fl ^ «-££ «-iß "5 

< 123> 


HR* (34) " , i., " CHR* (34 > " Z" CHR* (34) " , “ ; 

< 121 > 

481 

«I: «-LB: PR INT "ZEI LENVORSCHUB FUER *-fl,<-£ 


804 

PRINT" VV*«SPACE>";: <-C:PRINT"fORMATIER 




< 160> 


TER IXP-U-T 3EFEHL FUER MAX. 255 ZEICHEN 

<234> 

482 

PR I NT " (£RAF IK VfllNI MUMVXORMALV1 ZE ILEV1 


806 

«-ST1.05 

<006> 


1/2 ZEILENV)" 

<055> 

808 

PRINT"S...SPALTE(0-39) I...ZEILE(0-24) 


494 

GOSUB 992: «-WL 

<244> 


..FARBE VON IEXT Sc SINGABEFELD "; 

<034> 

500 

«-PO: PR I NT " «-fl «SPACE > " ; 

<035> 

810 

«-LE:PRINT“ (0-15) I. ..IEXT(VOR SINGABEF 


501 

HI: PR INT "LINKER Sc RECHTER SAND AUS TAB 



ELD) “ 

< 191 > 


ELLE (NORM 00 t, 72) "; 

<220> 

Bll 

«-T1: PRINT"i.. . . iAENGE SINGABEFELD "; 

<235> 

502 

«-T1: «-PQ:PRINT"H1I., NM "; 

<236> 

812 

PRINT"Z...3ESCHRAENKUNG AUF ERLAUBTEZE 


503 

«-C:«-LF: PR INT "UNKEN SAND IN IABELLE (N 



ICHEN (<30) VV*... 5.TRINGVARIABLE" ; 

<002> 


M PICA) SETZEN" 

< 1B6> 

814 

PRINT"(MAX. 255 ZEICHEN)" 

<031 > 

512 

*-T 1: «-PQ : PRINT " *-flS»NM "; 

< 121 > 

B16 

«-ST1,07 : PR I NT " , £.«SPACE > " CHR* (34) " I" CH 


513 

«-C: PRINT"SECHTEN SAND IN IABELLE (NM £ 



R*(34)"«SPACE>"CHR*(34)"Z"CHR*(34); 

<064> 


ICA) SETZEN" 

< 192> 

B18 

«-LB: PRINT" C2SPACE JKOENNEN WEGGELASSEN 


520 

«-PQ : PR I NT " «-Ifl < 2SPACE > " ; 

<177> 


WERDEN <2SPACE >*-U4( S, I> i.. Hü* C2SPACE > «-I-H 


521 

«-C: PRINT"IABULATOR AUS IABELLE (NORM 1 



(S,I> ,£,i.,HH* USW" 

<255> 


6«« 1 /60 IN)"; 

<070> 

820 

GOSUB 992: «-WL 

<062> 

522 

«-Tl:«-PQ:PRINT"*-flIfi,N,M 

< 177> 

822 

<-PQ:«-LF:PRINT"«-IS(Ä,X) "CHR* (34) "I"C 


523 

«-C : PRINT " IABULATOR (N*250 + M 1/60 INC 



HR* (34) " <2SPACE > ODER V.V*<2SPACE >“ ; 

< 113> 


H) SETZEN «SPACE >«*■) " 

<107> 

B24 

«-C: PRINT" <4SPACE>.PJUXT. TEXT .HT «FEHL" 

<027> 

530 

«-PQ: PR I NT " <-T5<2SPACE > " ; 

< 191 > 

826 

«-ST1.05 

<026> 

531 

«-C: PR INT "IABUL ATOR AUS TABELLE (NICHT 


828 

PRINT"S..-SPALTE(0-39) X. .. ZEILE(0-24) 



NORMALISIERT !! >"; 

<030> 


,£...FARBE DES IEXTES" ; 

<111> 

532 

«-T1:«-PQ:PRINT"«-SU,N,M "; 

<060> 

B30 

H.E:PRINT"(0-15) X. .- IEXT ODER XX*... £ 


533 

«-C : PR I NT " IABUL ATOR (N*250 + M 1/60 INC 

W6R ont 

in^»' 

TRINGVARIABLE" 

< 106> 


H> SETZEN«SPACE}*) " 

<117> 

832 

«-5T1 ,07: PRINT" ,F,<3SPACE>KANN WEGGELASS 


540 

«-PQ : PR I NT " *-11«SPACE > " ; 

< 130> 


EN WERDEN <5SPACE > «-IS ( S, X) " CHR* ( 34 ) " I" ; 

<097> 

541 

♦C:PRINT"IABULATOR AUS IABELLE (NORM 0 


834 

«-LB: PRINT CHR* (34) "ODER «-XX(X,X>H£* 

<079> 


1 £ICA> "; 

<071 > 

836 

GOSUB 992: «-WL 

<07B> 

542 

«-T1 : «-PQ: PRINT"«-flIl ,NM "; 

<211 > 

838 

«4>0: «-LF : PR INT " <-S£, fl<7SPACE > " ; 

<059> 

543 

«-C: PR INT "IABUL ATOR (NM £ICA) SETZEN <16 


840 

<-C:PRINT" <4SPACE>.S.CA0.L-L U£ «FEHLC4SPA 



SPACE>««> " 

<084 > 


CE>” 

< 132> 

550 

«-PQ:PRINT"«-I2 «-I3 

< 158> 

842 

*-STl,05 

<042> 

551 

«-C: PRINT " IABULATOR AUS IABELLE (NORM 3 


844 

«-LE: PRINT", fl. ..ANZAHL DER ZU SCROLLEND 



5 BZW 55 £ICA)“; 

<061 > 


EN ZEILEN"; 

<229> 

552 

«-T1 : «-PQ:PR I NT " *-.§12 , NM «-.§13,NM 

< 150> 

846 

«-LB: PRINT" <5SPACE>,fl<3SPACE>KANN WEGGE 


553 

«-C:*-LB: PR INT "IABULATOR (NM £ICA) SETZE 



LASSEN WERDEN <5SPACE >«-££ " 

<018> 


N<2SPACE>«0 " 

<230> 

848 

GOSUB 992: «-WL 

<090> 

554 

GOSUB 992: «-WL 

<050> 

850 

«-PQ : «-LF : PR I NT " «-£!,, X, fl<7SPACE > “; 

< 147> 

570 

«-PQ : PR I NT “ «-H8 «SPACE > "; 

<219> 

852 

«-C: PRINT" I4SPACEI.C-L-EAR<SHIFT-SPACE >JLJH 


571 

«-C: PRINT"IAB 8< MUCKER FUER JRIEF fl4 ( 



fl JEFEHL<4SPACE>" 

< 178> 


«-PO .«SPACE > ) 

<253> 

854 

«-ST 1,05 

<054> 

580 

«-T1: «-PQ:PRINT" <-Hk <2SPACE > "; 

<073> 

856 

«-LE:PRINT"X-..ZEILE(0-24) <2SPACE>,fl... 


581 

«-C: «-LB:PRINT"IAB Sc 3RUCKER FUER flISTIN 



ANZAHL DER ZU LOESCHENDEN ZEILEN"; 

< 10B> 


G (*-£, .<2SPACE>) * 

<034> 

858 

«-LB: PRINT 

<016> 

594 

GOSUB 992: «-WL 

<090 > 

860 

GOSUB 992: «-WL 

< 102> 

600 

«-PQ: PR I NT " «-Z < 3SP ACE > "; 

< 163> 

862 

FPQ : «-LF : PR I NT " «-£fl< 11 SPACE > "; 

< 154> 

601 

«-C : PR I NT " £R AFIKMODE EIN «SPACE J "; 

< 173> 

864 

«-C: «-LB: PRINT" (4SPACE>£L£flS<SHIFT-SPACE 


602 

*-Tl:*f>O:PRINT"«-Z0 "5 

<186> 


>S£S£flH JEFEHL<4SPACE>" 

<115> 

603 

«-C : «-LF : PRINT " £R AFIKMODE AUS" 

<079> 

866 

GOSUB 993: «-WL 

< 140> 

610 

«-PQ: PR I NT " «SPACE > “; 

<208> 

B70 

«-C: PRINT"««) ";: «-H:PRINT"HERTE WERDEN I 


611 

«41:PRINT" <51SPACE>"; 

< 168> 


N IABELLE GESETZT S< ZU JRUCKER “; 

< 126> 

612 

«-T1:H’Q:PRINT"«-SZS,N "; 

<211 > 

B72 

PR INT "GESENDET": «-LB: «-WL 

<027> 

613 

*C: PRINT"fiRAFIKREPEAT (N“1-255,N=0..25 


900 

GOSUB 990: «-RD: «-RM: END 

< 183> 


6) SETZEN<4SPACE>" 

<240> 

910 

REM ««««* GRAFIKSUBROUTINEN 

< 155> 

620 

«-PQ: PR I NT " «-Z1 (2SPACE > " ; 

<222> 

990 

«-D: «-SZ1,0001000: «-SZ2.0011100: <-SZ3,0110 


621 

*-C: PR I NT " SRAFIKDATEN1 AUS IABELLE £RAF 



110: «-SZ4,1100011 

<203> 


IKREPEAT MAL ZEICHNEN "; 

< 199> 

991 

«-SZR.59: *-Zl : t-Z2: «-Z3: «-SZR.64: «-Z4: «-SZR,5 


622 

*-T 1: «-PQ: PR I NT " *-£Zl , NNNNNNN "; 

<085> 


9: «-Z3: «-Z2: «-Z1: «-Z0: RETURN 

<196> 

623 

<-C:PRINT".GRAFDATEN MIT 0 ODER 1 SETZEN 


992 

«-SZR.209: «-SZ2,0000010: «-Z2: «-Z2: fRT: «-D: ♦- 



«SPACE >" 

< 150> 


LE : H1L, 03 : «-MR ,74:«-M:«-STl,36: RETURN 

<209> 

630 

«-PQ: PR I NT" «-Z2 «-Z3 .. «-Z9 

< 147> 

993 

«-ST1,36: «-W: «-SZR.209: «-SZ2,0000011: «-Z2: ♦- 


631 

«-C: PRINT"HIE «-Z1 “; 

< 166> 


Z2: «-Z0: «-LF: RETURN 

<063> 

632 

*-T 1 :«-PQ: PR I NT "*-äZ2, NNNNNNN .. «-£Z9, 

<024 > 

994 

«-SZR.209: «-SZ5,1100000: «-Z5: «-Z5: «-Z0: «-LA: 

- 

633 

K): PR INT “HIE «-SZ1, NNNNNNN " 

<018> 


«-WL: H_C: RETURN 

< 120> 

640 

«-PB: PR I NT " «-ZS«SPACE > "; 

<073 > 




641 

«-C: «-LB:PRINT"£RAFIKDATEN1-B AUS IABELL 






E 5RAFIKREPEAT MAL ZEICHNEN;Z.5. "; 

<035> 




642 

PRINT"IAB NORMAL Sc SEPEAT=10: <4SPACE>" 


Listing 2. Dieses Demo-Programm zeigt Ihnen die Moglichkei- 


5 

< 116> 

ten dieser Basic-Erweiterung für einen Seikosha SP-1000VC. 
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HARDCOPY 


C 64 


Koala- 

Print 

Für Besitzer eines MPS 801, die ihre 
farbigen Blazing Paddies- oder Koala 
Painter-Bilder in Graustufen umge¬ 
setzt ausdrucken wollen, ist dieses 
Programm wie geschaffen. 



* .V-** 


A lle Besitzer eines MPS-801-Druckers können sich 
freuen: Dieses Programm druckt die Bilder der Grafik- 
Programme »Blazing Paddies« und »Koala Painter« 
inklusive Umrechnung der Farbwerte in neun Graustufen auf 
Ihrem Drucker aus. Mit etwas Übung im Umgang der Farb- 
Grau-Einstellung sind Ausdrucke wie in den Bildern 1 und 2 
möglich. 

Die Bedienung des Programms 

Das Hardcopy-Programm (Listing 1) müssen Sie mit dem 
MSE eingeben und speichern. Danach kann es ganz normal 
geladen und mit RUN gestartet werden. Im nun erscheinen¬ 
den Hauptmenü können Sie jetzt auswähien, ob Sie die vor¬ 
gegebenen Farbwerte verändern oder gleich drucken wol¬ 
len. 

Wird nichts geändert, so bleiben die voreingestellten 
Werte für die Farbübersetzung erhalten. Sie entsprechen in 
etwa dem Helligkeitseindruck des Originalbildes. 

Bevor das zu druckende Bild von Diskette geladen wird, 
muß noch angegeben werden, ob es sich um ein Koala- oder 
Blazing Paddles-Bild handelt. Das Programm möchte nun den 
Namen des Bildes wissen. Bei einem Koala-Bild ist es sinn¬ 
voll, den Namen folgendermaßen anzugeben: 

?PIC ? NAME* 

Ist der Lade- und Rechenvorgang abgeschlossen (maximal 
zwei Minuten), legt der Drucker los. 

Zu den Graustufen wäre noch zu sagen, daß der Wert 0 
schwarz entspricht, der Wert 8 bedeutet weiß und die Werte 
dazwischen sind Grautöne. 

Das integrierte Fastprint-System 
Bei jedem Bitmuster wird, bevor es an den Drucker geht, 
überprüft, ob es dem vorhergehenden Wert entspricht. Wenn 
ja, wird nicht gedruckt, sondern ein Zähler erhöht. Ist der 
Bitmuster-Wert ein anderer als der vorhergehende, erhält der 
Drucker die Anweisung, die noch ausstehenden Zeichen zu 
drucken. Dieser Befehl benötigt nur drei Byte und spart 
dadurch Speicherplatz im Puffer. Wird ein RETURN an die 
Fastprint-Routine gesendet, testet diese, ob die nachzuho¬ 
lenden Bitmuster Leerzeichen sind. Ist das der Fall, geht nur 
das RETURN an den Puffer und die sinnlose Bewegung des 
Druckkopfes, um nichts zu drucken, entfällt. Durch dieses 
System verkürzt sich die Dauer des Druckvorganges bis auf 
maximal ein Drittel der normalen Zeit. 

Geeignet ist das Programm für alle Drucker, die zum MPS 
801 kompatibel sind (zum Beispiel Seikosha GP100 VC). 

(Thomas Wenzel/dm) 



Bild 2. Auch so ein Wasserhahn kann reizvoll aussehen. 
Dieser Ausdruck brauchte nur 3,28 Minuten 
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C 64 


HARDCOPY 


name 

1 

koala- 

print 


0801 

1000 

0**1 

0**9 


03 

04 

09 

03 

80 

c9 

20 

07 

f 2 

dB 

0a 

cc 

c6 

a5 

10 

e6 

11 

Bd51 

0d59 

* 

3d 

a9 

0c 

36 

a0 

85 

00 

01 

11 

60 

fd 

01 

91 

01 

fd 

01 

00 

b3 

0801 


15 

08 

c2 

07 

9b 

2B 

32 

30 

00 

0abl 


a5 

10 

c9 

ff 

dB 

02 

c6 

11 

2b 

0d61 

: 

bi 

01 

bi 

01 

01 

01 

00 

01 

5d 

0B09 


37 

32 

29 

20 

48 

91 

4b 

53 

Bd 

0ab9 


a5 

10 

c9 

ff 

dB 

af 

a5 

ii 

lc 

0d69 

: 

bi 

01 

01 

01 

bi 

01 

01 

00 

67 

081 1 


4f 

46 

54 

00 

00 

00 

00 

«9 

ec 

0ac 1 


c9 

ff 

dB 

*9 

*5 

16 

18 

69 

31 

0d71 

i 

01 

00 

01 

01 

01 

01 

00 

01 

ed 

0819 


00 

*2 

10 

85 

62 

86 

63 

*9 

5* 

0ac9 


07 

B5 

16 

90 

02 

p6 

17 

*9 

31 

0d79 

8 

01 

00 

bi 

00 

bi 

01 

00 

01 

d5 

0821 


00 

*2 

a0 

aB 

00 

91 

62 

cB 

56 

Bad 1 


0d 

20 

f 2 

0* 

*5 

16 

c9 

84 

27 

0d81 

1 

00 

00 

01 

00 

01 

00 

01 

00 

d6 

0829 


d0 

fb 

e6 

63 

ca 

dB 

f 6 

a9 

7f 

0ad9 


dB 

87 

*5 

17 

c9 

02 

dB 

Bl 

ac 

0dB9 

8 

00 

01 

00 

01 

00 

00 

00 

01 

2c 

0831 


36 

85 

01 

a9 

00 

85 

90 

a9 

61 

Bael 


*9 

0d 

20 

f 2 

0a 

20 

d2 

ff 

64 

0d91 

8 

00 

01 

00 

00 

00 

00 

00 

00 

12 

0839 


00 

Bd 

21 

dB 

*9 

0b 

8d 

20 

cc 

0ae9 


20 

CC 

ff 

*2 

01 

20 

c3 

ff 

e4 

0d99 

8 

00 

00 

bi 

00 

00 

00 

00 

00 

da 

0841 


d0 

*2 

00 

20 

*3 

0 t* 

20 

*4 

5b 

0af 1 


60 

8d 

20 

d0 

c9 

0d 

fB 

lc 

3b 

Bdal 

8 

00 

00 

00 

00 

00 

ff 

Oe 

66 

ea 

0849 


ff 

c9 

31 

f0 

07 

c9 

32 

f0 

01 

0af 9 


c5 

30 

dB 

09 

a6 

31 

*5 

31 

lc 

0d*9 

8 

6* 

76 

7» 

86 

8* 

96 

9e 

00 

db 

0851 


Zf 

4c 

47 

08 

•9 

93 

20 

d2 

e7 

0b01 


dB 

02 

e6 

32 

60 

85 

33 

20 

11 

0db 1 

8 

b9 

*7 

0d 

BS 

03 

a9 

0d 

85 

ef 

0859 


ff 

«9 

0d 

20 

d2 

ff 

a2 

6e 

09 

0b 09 


72 

0b 

*5 

30 

20 

d2 

ff 

aS 

54 

0db9 

8 

04 

*0 

00 

aB 

00 

*5 

14 

85 

aa 

0B61 


20 

«3 

0p 

*0 

00 

b9 

t-0 

Bf 

5* 

0b 11 


33 

85 

30 

60 

aS 

30 

c9 

80 

23 

0dc 1 

8 

6e 

a5 

15 

85 

6f 

bl 

03 

fB 

6* 

0B69 


Bd 

87 

0f 

*2 

80 

20 

*3 

0p 

86 

0b 19 


f0 

08 

20 

72 

0b 

a5 

30 

20 

43 

0dc9 

8 

03 

20 

02 

0p 

c8 

e6 

14 

*5 

7e 

0871 


84 

02 

20 

p4 

ff 

a4 

02 

c9 

5c 

0b21 


d2 

ff 

«9 

00 

85 

32 

SS 

30 

be 

0ddl 

8 

14 

d0 

02 

*6 

15 

C0 

04 

d0 

b4 

0879 


30 

90 

f 7 

c9 

39 

b0 

f 3 

20 

51 

0b29 


*9 

0d 

20 

d2 

ff 

60 

*5 

32 

b9 

0dd9 

8 

ec 

*8 

*5 

6* 

85 

14 

*5 

6f 

df 

0BB1 


d2 

ff 

38 

b9 

30 

99 

fB 

0f 

50 

0b31 


f0 

16 

*9 

la 

20 

d2 

ff 

*9 

c6 

Bdel 

8 

B5 

15 

bl 

03 

f0 

03 

20 

02 

69 

0889 


cB 

C0 

10 

dB 

dB 

4c 

30 

08 

90 

0b39 


ff 

20 

d2 

ff 

aS 

30 

20 

d2 

ff 

0de9 

8 

0* 

cB 

p6 

14 

■5 

14 

dB 

02 

da 

0891 


*2 

Bd 

20 

*3 

0B 

20 

«4 

ff 

ec 

0b41 


ff 

20 

d2 

ff 

*9 

00 

Bü 

32 

la 

0df 1 

8 

e6 

15 

C0 

08 

dB 

ec 

60 

*4 

d2 

0899 


c9 

42 

f0 

07 

c9 

4b 

f0 

ld 

95 

0b49 


a5 

31 

f0 

24 

c9 

04 

b0 

Bd 

el 

0df 9 

8 

02 

b9 

f0 

0f 

a8 

20 

bl 

0d 

62 

0B*1 


4c 

96 

08 

20 

d2 

ff 

a9 

00 

12 

0b51 


a6 

31 

*5 

30 

20 

d2 

ff 

ca 

2d 

bp0i 

8 

60 

Bd 

3c 

03 

Br 

3d 

03 

Bc 

8f 

0Ba9 


*2 

b0 

8d 

7b 

0c 

Bp 

7d 

0c 

b9 

0b59 


dB 

fa 

20 

d2 

ff 

*9 

la 

20 

ff 

0e09 

8 

3e 

03 

20 

Bc 

0d 

ad 

3c 

03 

88 

08b 1 


Bd 

91 

0C 

Sr? 

93 

0C 

a9 

00 

lc 

0b61 


d2 

ff 

*5 

31 

20 

d2 

ff 

aS 

*6 

Bell 

X 

ae 

3d 

03 

ac 

3e 

03 

60 

*9 

B5 

08b9 


a2 

b4 

4c 

d5 

08 

20 

d2 

ff 

30 

0b69 


30 

20 

d2 

ff 

a9 

00 

B5 

0d 

29 

Bel 9 

8 

00 

85 

62 

*9 

10 

85 

63 

*9 

b8 

0Bcl 


*9 

40 

*2 

af 

Bd 

7b 

0c 

Ba 

2b 

0b71 


60 

*5 

32 

f0 

16 

a9 

la 

20 

a6 

0*21 

8 

00 

*0 

00 

*2 

lf 

91 

62 

cB 

5f 

08c9 


7d 

0c 

Bd 

91 

0c 

8b 

93 

0C 

7d 

0b79 


d2 

ff 

*9 

ff 

20 

d2 

ff 

*5 

99 

0*29 

8 

dB 

fb 

p6 

63 

ca 

d0 

f 6 

*9 

7f 

08dl 


*9 

28 

*2 

b3 

8d 

al 

0c 

Ba 

el 

BbBl 


30 

20 

d2 

ff 

20 

d2 

ff 

a9 

62 

0*31 

S 

00 

a2 

00 

9d 

00 

2f 

*8 

*0 

15 
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*3 

0c 

*2 

b3 

20 

*3 

Kp 

20 

39 
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00 

85 

32 

aS 

31 

f0 

27 

c9 

5B 

0e39 

8 

40 

d0 

f 8 

a9 

00 

B5 

a9 

B5 

32 

08p 1 


b0 

0e 

*5 

90 

c9 

40 

ea 

dB 

00 

0b91 


04 

b0 

0d 

a6 

31 

a5 

30 

20 

47 

0e41 

8 

aa 

85 

ab 

ad 

40 

03 

B5 

*7 

dB 

08e9 


f 1 

*2 

be 

20 

*3 

0B 

*9 

50 

dl 

0b99 


d2 

ff 

ca 

dB 

fa 

4c 

b3 

0b 

2e 

0e49 

3 

ad 

41 

03 

85 

«B 

*5 

*7 

85 

6a 

08f 1 


a2 

00 

Bd 

40 

03 

8e 

41 

03 

ae 

0b* 1 


*9 

la 

20 

d2 

ff 

*5 

31 

20 

ec 

0e51 

8 

14 

*9 

00 

B5 

15 

a6 

*8 

20 

54 

08f 9 


20 

18 

0e 

a9 

00 

a2 

50 

20 

75 

0ba9 


d2 

ff 

Bd 

21 

d0 

a5 

30 

20 

3e 

0*59 


45 

0C 

*5 

*9 

85 

14 

a5 

aa 

28 

0901 


el 

0e 

a9 

64 

8d 

41 

03 

20 

0f 

0bbl 


d2 

ff 

a9 

00 

B5 

31 

60 

ea 

26 
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8 

85 

15 

a6 

ab 

20 

f 8 

0d 

e6 

5c 

0909 


18 

0e 

a9 

40 

a2 
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